gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.40, 2006/02/26 17:23:47	version 1.44, 2006/12/31 13:39:19
Line 1	Line 1
\ VARS.FS Kernal variables	\ VARS.FS Kernal variables

\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.

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

Line 46 has? floating [IF]	Line 46 has? floating [IF]
\G @i{c-char} is the character value for a space.	\G @i{c-char} is the character value for a space.
\ used by docon:, must be constant	\ used by docon:, must be constant

FF Constant /line	has? EC [IF] 40 [ELSE] FF [THEN] Constant /line

has? file [IF]	has? file [IF]
40 Constant c/l	40 Constant c/l
Line 114 AUser lp0 ( -- a-addr ) \ gforth	Line 114 AUser lp0 ( -- a-addr ) \ gforth

AUser handler \ pointer to last throw frame	AUser handler \ pointer to last throw frame
has? backtrace [IF]	has? backtrace [IF]
User backtrace-empty \ true if the next THROW should store a backtrace
AUser backtrace-rp0 \ rp at last call of interpret	AUser backtrace-rp0 \ rp at last call of interpret
[THEN]	[THEN]
\ AUser output	\ AUser output
Line 202 AUser dpp normal-dp dpp !	Line 201 AUser dpp normal-dp dpp !
AUser LastCFA	AUser LastCFA
AUser Last	AUser Last

	has? flash [IF]
	AUser flash-dp
	: rom flash-dp dpp ! ;
	: ram normal-dp dpp ! ;
	[THEN]

User max-name-length \ maximum length of all names defined yet	User max-name-length \ maximum length of all names defined yet
32 max-name-length !	32 max-name-length !