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

version 1.72, 2001/01/23 10:05:36 version 1.73, 2001/01/23 17:05:40
Line 164  create stacks max-stacks cells allot \ a Line 164  create stacks max-stacks cells allot \ a
     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  does> ( item -- ) Line 419  does> ( item -- )
     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

Removed from v.1.72  
changed lines
  Added in v.1.73


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