[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.35 and 1.36

version 1.35, Mon Feb 26 15:14:21 2001 UTC version 1.36, Sun Mar 18 22:20:27 2001 UTC
Line 210 
Line 210 
 ' , is compile,  ' , is compile,
 [THEN]  [THEN]
   
   has? peephole [IF]
 : peephole-compile, ( xt -- )  : peephole-compile, ( xt -- )
     last-compiled @ ?dup if      last-compiled @ ?dup if
         @ over peeptable peephole-opt ?dup if          @ over peeptable peephole-opt ?dup if
Line 239 
Line 240 
     peephole-compile, ;      peephole-compile, ;
   
 ' compile-to-prims, IS compile,  ' compile-to-prims, IS compile,
   [ELSE]
   ' , is compile,
   [THEN]
   
 : !does    ( addr -- ) \ gforth store-does  : !does    ( addr -- ) \ gforth store-does
     lastxt does-code! ;      lastxt does-code! ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help