gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x.fs between versions 1.3 and 1.7

version 1.3, 1994/07/07 14:59:26	version 1.7, 1994/09/08 17:20:12
Line 15	Line 15
\ 5) Words that call NEXT themselves have to be done very carefully.	\ 5) Words that call NEXT themselves have to be done very carefully.
\	\
\ To do:	\ To do:
\ add the store optimization for doubles
\ regarding problem 1 above: It would be better (for over) to implement	\ regarding problem 1 above: It would be better (for over) to implement
\ the alternative	\ the alternative

warnings off	warnings off

	[IFUNDEF] vocabulary include search-order.fs [THEN]
include gray.fs	include gray.fs
include search-order.fs

100 constant max-effect \ number of things on one side of a stack effect	100 constant max-effect \ number of things on one side of a stack effect
4096 constant batch-size \ no meaning, just make sure it's >0	4096 constant batch-size \ no meaning, just make sure it's >0
Line 89 variable effect-out-end ( pointer )	Line 88 variable effect-out-end ( pointer )
2variable effect-in-size	2variable effect-in-size
2variable effect-out-size	2variable effect-out-size

variable primitive-number -8 primitive-number !	variable primitive-number -9 primitive-number !

\ for several reasons stack items of a word are stored in a wordlist	\ for several reasons stack items of a word are stored in a wordlist
\ since neither forget nor marker are implemented yet, we make a new	\ since neither forget nor marker are implemented yet, we make a new
Line 524 set-current	Line 523 set-current
." NEXT_P1;" cr	." NEXT_P1;" cr
stores	stores
fill-tos	fill-tos
." NEXT1_P2;" cr	." NEXT_P2;" cr
." }" cr	." }" cr
cr	cr
;	;
Line 544 set-current	Line 543 set-current
warnings @ if	warnings @ if
." ------------ CUT HERE -------------" cr endif	." ------------ CUT HERE -------------" cr endif
r> primfilter ;	r> primfilter ;

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

Removed from v.1.3
changed lines
	Added in v.1.7