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

Diff for /gforth/kernel/comp.fs between versions 1.57 and 1.58

version 1.57, 2003/08/23 20:16:09 version 1.58, 2003/10/03 09:14:27
Line 222  defer compile, ( xt -- ) \ core-ext comp Line 222  defer compile, ( xt -- ) \ core-ext comp
 defer basic-block-end ( -- )  defer basic-block-end ( -- )
   
 :noname ( -- )  :noname ( -- )
     0 last-compiled ! ;      ;
 is basic-block-end  is basic-block-end
   
 has? peephole [IF]  has? peephole [IF]
Line 232  has? peephole [IF] Line 232  has? peephole [IF]
     \ compile xt, appending its code to the current dynamic superinstruction      \ compile xt, appending its code to the current dynamic superinstruction
     here swap , compile-prim1 ;      here swap , compile-prim1 ;
           
 \ static only  
 \  : peephole-compile, ( xt -- )  
 \      \ compile xt, possibly combining it with the previous compiled xt  
 \      \ into a superinstruction (static superinstructions)  
 \      last-compiled @ ?dup if  
 \       @ over peeptable peephole-opt ?dup if  
 \           last-compiled @ ! drop EXIT  
 \       then  
 \      then  
 \      here last-compiled !  
 \      dyn-compile, ;  
   
 \ combine greedy static with dynamic  
 \  : dyn-compile! ( xt -- )  
 \      \ compile xt, appending its code to the current dynamic superinstruction  
 \      last-compiled-here @ tuck ! compile-prim1 ;  
   
 \  :noname ( -- )  
 \      last-compiled @ if  
 \       last-compiled @ dyn-compile!  
 \       0 last-compiled !  
 \      then ;  
 \  is basic-block-end  
   
 \  : peephole-compile, ( xt -- )  
 \      \ compile xt, possibly combining it with the previous compiled xt  
 \      \ into a superinstruction (static superinstructions)  
 \      last-compiled @ ?dup if  
 \       over peeptable peephole-opt ?dup if ( xt comb-xt )  
 \           last-compiled ! drop EXIT  
 \       then ( xt )  
 \       last-compiled @ dyn-compile!  
 \      then ( xt )  
 \      last-compiled !  
 \      here last-compiled-here ! 0 , ;  
   
 : compile-to-prims, ( xt -- )  : compile-to-prims, ( xt -- )
     \G compile xt to use primitives (and their peephole optimization)      \G compile xt to use primitives (and their peephole optimization)
     \G instead of ","-ing the xt.      \G instead of ","-ing the xt.
Removed from v.1.57  
changed lines
  Added in v.1.58

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