[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.72 and 1.73

version 1.72, Tue Jan 23 10:05:36 2001 UTC version 1.73, Tue Jan 23 17:05:40 2001 UTC
Line 164 
Line 164 
     save-mem r@ stack-pointer 2!      save-mem r@ stack-pointer 2!
     ['] stack-in-index r> stack-in-index-xt ! ;      ['] stack-in-index r> stack-in-index-xt ! ;
   
 s" sp" save-mem s" Cell"  save-mem s" (Cell)" make-stack data-stack  
 s" fp" save-mem s" Float" save-mem s" "       make-stack fp-stack  
 s" rp" save-mem s" Cell"  save-mem s" (Cell)" make-stack return-stack  
 s" IP" save-mem s" Cell"  save-mem s" error don't use # on results" make-stack inst-stream  
 ' inst-in-index inst-stream stack-in-index-xt !  
 \ !! initialize stack-in and stack-out  
   
 \ stack items  \ stack items
   
 : init-item ( addr u addr1 -- )  : init-item ( addr u addr1 -- )
Line 426 
Line 419 
     stack item item-stack !      stack item item-stack !
     item declaration ;      item declaration ;
   
   s" sp" save-mem s" Cell"  save-mem s" (Cell)" make-stack data-stack
   s" fp" save-mem s" Float" save-mem s" "       make-stack fp-stack
   s" rp" save-mem s" Cell"  save-mem s" (Cell)" make-stack return-stack
   s" IP" save-mem s" Cell"  save-mem s" error don't use # on results" make-stack inst-stream
   ' inst-in-index inst-stream stack-in-index-xt !
   \ !! initialize stack-in and stack-out
   
 \ offset computation  \ offset computation
 \ the leftmost (i.e. deepest) item has offset 0  \ the leftmost (i.e. deepest) item has offset 0
 \ the rightmost item has the highest offset  \ the rightmost item has the highest offset

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help