[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.33 and 1.34

version 1.33, Sun Jan 28 22:43:39 2001 UTC version 1.34, Sat Feb 24 17:24:45 2001 UTC
Line 203 
Line 203 
     0 A, 0 ,  code-address! ;      0 A, 0 ,  code-address! ;
   
 [IFUNDEF] compile,  [IFUNDEF] compile,
 : compile, ( xt -- )    \ core-ext      compile-comma  defer compile, ( xt -- )        \ core-ext      compile-comma
     \G  Compile the word represented by the execution token @i{xt}      \G  Compile the word represented by the execution token @i{xt}
     \G  into the current definition.      \G  into the current definition.
     A, ;  
   ' , is compile,
 [THEN]  [THEN]
   
   : peephole-compile, ( xt -- )
       last-compiled @ ?dup if
           @ over peeptable peephole-opt ?dup if
               last-compiled @ ! drop EXIT
           then
       then
       here last-compiled !
       , ;
   
   ' peephole-compile, IS compile,
   
 : !does    ( addr -- ) \ gforth store-does  : !does    ( addr -- ) \ gforth store-does
     lastxt does-code! ;      lastxt does-code! ;
   
Line 508 
Line 520 
 [IFDEF] docol,  [IFDEF] docol,
 : (:noname) ( -- colon-sys )  : (:noname) ( -- colon-sys )
     \ common factor of : and :noname      \ common factor of : and :noname
     docol, ]comp defstart ] :-hook ;      docol, ]comp
 [ELSE]  [ELSE]
 : (:noname) ( -- colon-sys )  : (:noname) ( -- colon-sys )
     \ common factor of : and :noname      \ common factor of : and :noname
     docol: cfa, defstart ] :-hook ;      docol: cfa,
 [THEN]  [THEN]
       0 last-compiled ! defstart ] :-hook ;
   
 : : ( "name" -- colon-sys ) \ core      colon  : : ( "name" -- colon-sys ) \ core      colon
     Header (:noname) ;      Header (:noname) ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help