version 1.28, 2002/01/17 12:02:55
|
version 1.34, 2012/09/17 20:10:23
|
Line 1
|
Line 1
|
\ environmental queries |
\ environmental queries |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000 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. |
|
|
\ Gforth is free software; you can redistribute it and/or |
\ Gforth is free software; you can redistribute it and/or |
\ modify it under the terms of the GNU General Public License |
\ modify it under the terms of the GNU General Public License |
\ as published by the Free Software Foundation; either version 2 |
\ as published by the Free Software Foundation, either version 3 |
\ of the License, or (at your option) any later version. |
\ of the License, or (at your option) any later version. |
|
|
\ This program is distributed in the hope that it will be useful, |
\ This program is distributed in the hope that it will be useful, |
Line 15
|
Line 15
|
\ GNU General Public License for more details. |
\ GNU General Public License for more details. |
|
|
\ 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, write to the Free Software |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
\ wordlist constant environment-wordlist |
\ wordlist constant environment-wordlist |
|
|
Line 95 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 |