Diff for /gforth/prims2x.fs between versions 1.92 and 1.93

version 1.92, 2001/03/18 11:35:35 version 1.93, 2001/03/18 12:39:33
Line 493  does> ( item -- ) Line 493  does> ( item -- )
 : stack-type-name ( addr u "name" -- )  : stack-type-name ( addr u "name" -- )
     single 0 create-type ;      single 0 create-type ;
   
 s" Cell"  stack-type-name w  wordlist constant type-names \ this is here just to meet the requirement
 s" Float" stack-type-name r                      \ that a type be a word; it is never used for lookup
   
 s" IP" save-mem w make-stack inst-stream  : stack ( "name" "stack-pointer" "type" -- )
       \ define stack
       name { d: stack-name }
       name { d: stack-pointer }
       name { d: stack-type }
       get-current type-names set-current
       stack-type 2dup nextname stack-type-name
       set-current
       stack-pointer lastxt >body stack-name nextname make-stack ;
   
   stack inst-stream IP Cell
 ' inst-in-index inst-stream stack-in-index-xt !  ' inst-in-index inst-stream stack-in-index-xt !
 ' inst-stream <is> inst-stream-f  ' inst-stream <is> inst-stream-f
   
 s" sp" save-mem w make-stack data-stack   
 s" fp" save-mem r make-stack fp-stack  
 s" rp" save-mem w make-stack return-stack  
 \ !! initialize stack-in and stack-out  \ !! initialize stack-in and stack-out
   
 \ offset computation  \ offset computation

Removed from v.1.92  
changed lines
  Added in v.1.93


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