version 1.27, 2001/09/16 10:20:39
|
version 1.28, 2002/01/17 12:02:55
|
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 |