[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.47 and 1.48

version 1.47, Wed Dec 25 21:16:55 2002 UTC version 1.48, Thu Dec 26 19:16:17 2002 UTC
Line 212 
Line 212 
   
 defer basic-block-end ( -- )  defer basic-block-end ( -- )
   
 : bb-end ( -- )  :noname ( -- )
     0 last-compiled ! ;      0 last-compiled ! ;
 ' bb-end is basic-block-end  is basic-block-end
   
 has? peephole [IF]  has? peephole [IF]
   
Line 243 
Line 243 
     last-compiled @ if      last-compiled @ if
         last-compiled @ dyn-compile!          last-compiled @ dyn-compile!
         0 last-compiled !          0 last-compiled !
     then ;      then
       finish-code ;
 is basic-block-end  is basic-block-end
   
 : static-compile, ( xt -- )  : static-compile, ( xt -- )
Line 276 
Line 277 
         dodefer: OF >body POSTPONE lit-perform , EXIT ENDOF          dodefer: OF >body POSTPONE lit-perform , EXIT ENDOF
         dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF          dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF
         \ dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF          \ dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF
           \ code words and ;code-defined words (code words could be optimized):
           dup in-dictionary? IF drop POSTPONE literal POSTPONE execute EXIT THEN
     ENDCASE      ENDCASE
     static-compile, ;      static-compile, ;
   
Line 341 
Line 344 
   
 : POSTPONE ( "name" -- ) \ core  : POSTPONE ( "name" -- ) \ core
     \g Compiles the compilation semantics of @i{name}.      \g Compiles the compilation semantics of @i{name}.
     COMP' postpone, ; immediate restrict      COMP' postpone, ; immediate
   
 \ \ recurse                                                     17may93jaw  \ \ recurse                                                     17may93jaw
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help