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.31, 2003/03/09 15:16:47
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 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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