version 1.32, 2007/12/31 18:40:24
|
version 1.34, 2012/09/17 20:10:23
|
Line 1
|
Line 1
|
\ environmental queries |
\ environmental queries |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2007 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 |