[BACK]Return to comp.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/comp.fs between versions 1.106 and 1.107

version 1.106, 2010/12/31 18:09:02 version 1.107, 2011/09/01 20:09:23
Line 69 Line 69
 \ : faligned ( addr -- f-addr ) \ float f-aligned  \ : faligned ( addr -- f-addr ) \ float f-aligned
 \     [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;   \     [ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; 
   
   has? ec 0= [IF]
 : falign ( -- ) \ float f-align  : falign ( -- ) \ float f-align
     \G If the data-space pointer is not float-aligned, reserve      \G If the data-space pointer is not float-aligned, reserve
     \G enough space to align it.      \G enough space to align it.
Line 76 Line 77
     ?DO      ?DO
         bl c,          bl c,
     LOOP ;      LOOP ;
   [THEN]
   
 : maxalign ( -- ) \ gforth  : maxalign ( -- ) \ gforth
     \G Align data-space pointer for all alignment requirements.      \G Align data-space pointer for all alignment requirements.
Line 99 Line 101
 \ information through global variables), but they are useful for dealing  \ information through global variables), but they are useful for dealing
 \ with existing/independent defining words  \ with existing/independent defining words
   
 defer (header)  
 defer header ( -- ) \ gforth  
 ' (header) IS header  
   
 : string, ( c-addr u -- ) \ gforth  : string, ( c-addr u -- ) \ gforth
     \G puts down string as cstring      \G puts down string as cstring
     dup [ has? rom [IF] ] $E0 [ [ELSE] ] alias-mask [ [THEN] ] or c,      dup [ has? rom [IF] ] $E0 [ [ELSE] ] alias-mask [ [THEN] ] or c,
Line 145  variable next-prelude Line 143  variable next-prelude
 [ [THEN] ]  [ [THEN] ]
     cfalign ;      cfalign ;
   
   has? ec [IF]
   : header ( "name" -- )
       parse-name name-too-short? header, ;
   [ELSE]
   defer (header)
   defer header ( -- ) \ gforth
   ' (header) IS header
   
 : input-stream-header ( "name" -- )  : input-stream-header ( "name" -- )
     parse-name name-too-short? header, ;      parse-name name-too-short? header, ;
   
Line 156  variable next-prelude Line 162  variable next-prelude
   
 2variable nextname-string  2variable nextname-string
   
 has? OS [IF]  
 : nextname-header ( -- )  : nextname-header ( -- )
     nextname-string 2@ header,      nextname-string 2@ header,
     nextname-string free-mem-var      nextname-string free-mem-var
     input-stream ;      input-stream ;
 [THEN]  
   
 \ the next name is given in the string  \ the next name is given in the string
   
 has? OS [IF]  
 : nextname ( c-addr u -- ) \ gforth  : nextname ( c-addr u -- ) \ gforth
     \g The next defined word will have the name @var{c-addr u}; the      \g The next defined word will have the name @var{c-addr u}; the
     \g defining word will leave the input stream alone.      \g defining word will leave the input stream alone.
Line 173  has? OS [IF] Line 176  has? OS [IF]
     nextname-string free-mem-var      nextname-string free-mem-var
     save-mem nextname-string 2!      save-mem nextname-string 2!
     ['] nextname-header IS (header) ;      ['] nextname-header IS (header) ;
 [THEN]  
   
 : noname-header ( -- )  : noname-header ( -- )
     0 last ! cfalign      0 last ! cfalign
Line 184  has? OS [IF] Line 186  has? OS [IF]
     \g leave the input stream alone. The xt of the defined word will      \g leave the input stream alone. The xt of the defined word will
     \g be given by @code{latestxt}.      \g be given by @code{latestxt}.
     ['] noname-header IS (header) ;      ['] noname-header IS (header) ;
   [THEN]
   
 : latestxt ( -- xt ) \ gforth  : latestxt ( -- xt ) \ gforth
     \G @i{xt} is the execution token of the last word defined.      \G @i{xt} is the execution token of the last word defined.
Removed from v.1.106  
changed lines
  Added in v.1.107

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>