gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.27, 2001/03/18 22:20:27	version 1.30, 2003/01/19 23:35:35
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-2003 Free Software Foundation, Inc.

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

Line 76 main-task	Line 76 main-task
UNLOCK tup ! LOCK	UNLOCK tup ! LOCK

Variable udp ( -- a-addr ) \ gforth	Variable udp ( -- a-addr ) \ gforth
\ user area size? -anton	\G user area size

AUser next-task main-task next-task !	AUser next-task main-task next-task !
AUser prev-task main-task prev-task !	AUser prev-task main-task prev-task !
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]	has? peephole [IF]
0 value peeptable \ initialized in boot	0 value peeptable \ initialized in boot