gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.30, 2003/01/19 23:35:35	version 1.33, 2003/02/06 20:42:26
Line 1	Line 1
\ VARS.FS Kernal variables	\ VARS.FS Kernal variables

\ Copyright (C) 1995-2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000 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 197 AUser last-compiled \ last compile,d xt	Line 197 AUser last-compiled \ last compile,d xt
0 last-compiled !	0 last-compiled !
AUser last-compiled-here \ where LAST-COMPILED should be stored	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