gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.60, 2000/12/30 15:22:52	version 1.62, 2001/01/06 19:29:14
Line 125 end-struct type%	Line 125 end-struct type%
s" sp" save-mem s" (Cell)" make-stack data-stack	s" sp" save-mem s" (Cell)" make-stack data-stack
s" fp" save-mem s" " make-stack fp-stack	s" fp" save-mem s" " make-stack fp-stack
s" rp" save-mem s" (Cell)" make-stack return-stack	s" rp" save-mem s" (Cell)" make-stack return-stack
s" ip" save-mem s" error don't use # on results" make-stack inst-stream	s" IP" save-mem s" error don't use # on results" make-stack inst-stream
' inst-in-index inst-stream stack-in-index-xt !	' inst-in-index inst-stream stack-in-index-xt !
\ !! initialize stack-in and stack-out	\ !! initialize stack-in and stack-out

Line 383 warnings @ [IF]	Line 383 warnings @ [IF]
>r	>r
." FETCH_DCELL("	." FETCH_DCELL("
r@ item-name 2@ type ." , "	r@ item-name 2@ type ." , "
r@ item-in-index r@ item-stack @ 2dup stack-access	r@ item-in-index r@ item-stack @ 2dup ." (Cell)" stack-access
." , " -1 under+ stack-access	." , " -1 under+ ." (Cell)" stack-access
." );" cr	." );" cr
rdrop ;	rdrop ;

Line 798 does> ( item -- )	Line 798 does> ( item -- )

: process-file ( addr u xt -- )	: process-file ( addr u xt -- )
>r	>r
2dup filename 2!	save-mem 2dup filename 2!
0 function-number !	0 function-number !
r/o open-file abort" cannot open file"	r/o open-file abort" cannot open file"
warnings @ if	warnings @ if