gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.27, 2001/09/16 10:20:39	version 1.30, 2003/01/20 17:07:37
Line 107 version-string 2constant gforth ( -- c-a	Line 107 version-string 2constant gforth ( -- c-a
[ forthstart 5 cells + ] literal @	[ forthstart 5 cells + ] literal @
[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;	[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;

\ !! max-float
15 constant #locals \ 1000 64 /	15 constant #locals \ 1000 64 /
\ One local can take up to 64 bytes, the size of locals-buffer is 1000	\ One local can take up to 64 bytes, the size of locals-buffer is 1000
maxvp constant wordlists	maxvp constant wordlists