gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.33, 2007/12/31 19:02:24	version 1.34, 2012/09/17 20:10:23
Line 94 version-string 2constant gforth ( -- c-a	Line 94 version-string 2constant gforth ( -- c-a

: return-stack-cells ( -- n ) \ environment	: return-stack-cells ( -- n ) \ environment
\G Maximum size of the return stack, in cells.	\G Maximum size of the return stack, in cells.
[ forthstart 6 cells + ] literal @ cell / ;	[ forthstart 6 cells + ] literal @ cell/ ;

: stack-cells ( -- n ) \ environment	: stack-cells ( -- n ) \ environment
\G Maximum size of the data stack, in cells.	\G Maximum size of the data stack, in cells.
[ forthstart 4 cells + ] literal @ cell / ;	[ forthstart 4 cells + ] literal @ cell/ ;

: floating-stack ( -- n ) \ environment	: floating-stack ( -- n ) \ environment
\G @var{n} is non-zero, showing that Gforth maintains a separate	\G @var{n} is non-zero, showing that Gforth maintains a separate
\G floating-point stack of depth @var{n}.	\G floating-point stack of depth @var{n}.
[ forthstart 5 cells + ] literal @	[ forthstart 5 cells + ] literal @
[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;	[IFDEF] float/ float/ [ELSE] [ 1 floats ] Literal / [THEN] ;

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