[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.61 and 1.62

version 1.61, Sun Nov 9 20:47:49 2003 UTC version 1.62, Mon Nov 10 15:47:40 2003 UTC
Line 264 
Line 264 
     latestxt does-code! ;      latestxt does-code! ;
   
 : (does>)  ( R: addr -- )  : (does>)  ( R: addr -- )
     r> cfaligned /does-handler + !does ;      r> cfaligned /does-handler + !does ; \ !! no gforth-native
   
   : (does>1)  ( addr r:retaddr -- )
       rdrop cfaligned /does-handler + !does ; \ !! no tail-call optimization
   
 : dodoes,  ( -- )  : dodoes,  ( -- )
   cfalign here /does-handler allot does-handler! ;    cfalign here /does-handler allot does-handler! ;
Line 509 
Line 512 
 :noname  :noname
     ;-hook ?struc      ;-hook ?struc
     [ has? xconds [IF] ] exit-like [ [THEN] ]      [ has? xconds [IF] ] exit-like [ [THEN] ]
     postpone (does>) dodoes,      here 4 cells + postpone aliteral postpone (does>1) dodoes,
     defstart :-hook ;      defstart :-hook ;
 interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core        does  interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core        does
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help