version 1.28, 2001/06/16 22:53:38
|
version 1.34, 2003/03/09 15:17:07
|
Line 1
|
Line 1
|
\ VARS.FS Kernal variables |
\ VARS.FS Kernal variables |
|
|
\ 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 145 has? file [IF]
|
Line 145 has? file [IF]
|
|
|
User loadfile 0 loadfile ! |
User loadfile 0 loadfile ! |
|
|
User loadfilename# 0 loadfilename# ! |
2user loadfilename 0 0 loadfilename 2! \ addr u for sourcefilename |
|
|
User loadline \ number of the currently interpreted |
User loadline \ number of the currently interpreted |
\ (in TIB) line if the interpretation |
\ (in TIB) line if the interpretation |
Line 192 AUser dpp normal-dp dpp !
|
Line 192 AUser dpp normal-dp dpp !
|
AUser LastCFA |
AUser LastCFA |
AUser Last |
AUser Last |
|
|
AUser last-compiled \ address of the last compiled xt |
AUser last-compiled \ last compile,d xt |
\ 0 if last xt cannot be combined (basic block boundary) |
\ 0 if last xt was dyn-compiled already (basic-block-end) |
0 last-compiled ! |
0 last-compiled ! |
|
AUser last-compiled-here \ where LAST-COMPILED should be stored |
|
|
has? peephole [IF] |
User max-name-length \ maximum length of all names defined yet |
0 value peeptable \ initialized in boot |
32 max-name-length ! |
[THEN] |
|
|
\ has? peephole [IF] |
|
\ 0 value peeptable \ initialized in boot |
|
\ [THEN] |
|
|
has? glocals [IF] |
has? glocals [IF] |
User locals-size \ this is the current size of the locals stack |
User locals-size \ this is the current size of the locals stack |