gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x.fs between versions 1.131 and 1.134

version 1.131, 2003/01/30 17:11:02	version 1.134, 2003/03/09 15:16:52
Line 1	Line 1
\ converts primitives to, e.g., C code	\ converts primitives to, e.g., C code

\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 63 warnings off	Line 63 warnings off
\ warnings on	\ warnings on

include ./gray.fs	include ./gray.fs
32 constant max-effect \ number of things on one side of a stack effect	128 constant max-effect \ number of things on one side of a stack effect
4 constant max-stacks \ the max. number of stacks (including inst-stream).	4 constant max-stacks \ the max. number of stacks (including inst-stream).
255 constant maxchar	255 constant maxchar
maxchar 1+ constant eof-char	maxchar 1+ constant eof-char
Line 631 stack inst-stream IP Cell	Line 631 stack inst-stream IP Cell
: compute-offset-out ( addr1 addr2 -- )	: compute-offset-out ( addr1 addr2 -- )
['] stack-out compute-offset ;	['] stack-out compute-offset ;

: clear-stack ( stack -- )
dup stack-in off stack-out off ;

: compute-offsets ( -- )	: compute-offsets ( -- )
['] clear-stack map-stacks	prim prim-stacks-in max-stacks cells erase
	prim prim-stacks-out max-stacks cells erase
prim prim-effect-in prim prim-effect-in-end @ ['] compute-offset-in map-items	prim prim-effect-in prim prim-effect-in-end @ ['] compute-offset-in map-items
prim prim-effect-out prim prim-effect-out-end @ ['] compute-offset-out map-items	prim prim-effect-out prim prim-effect-out-end @ ['] compute-offset-out map-items
inst-stream stack-out @ 0= s" # can only be on the input side" ?print-error ;	inst-stream stack-out @ 0= s" # can only be on the input side" ?print-error ;

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

Removed from v.1.131
changed lines
	Added in v.1.134