version 1.33, 2007/12/31 19:02:24
|
version 1.36, 2012/12/31 15:25:18
|
Line 1
|
Line 1
|
\ environmental queries |
\ environmental queries |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2007 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2007,2012 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 17
|
Line 17
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
|
|
|
[IFUNDEF] cell/ : cell/ 1 cells / ; [THEN] |
|
[IFUNDEF] float/ : float/ 1 floats / ; [THEN] |
|
|
\ wordlist constant environment-wordlist |
\ wordlist constant environment-wordlist |
|
|
vocabulary environment ( -- ) \ gforth |
vocabulary environment ( -- ) \ gforth |
Line 94 version-string 2constant gforth ( -- c-a
|
Line 97 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 |