--- gforth/kernel/vars.fs	2002/02/04 21:25:18	1.29
+++ gforth/kernel/vars.fs	2003/10/03 09:14:27	1.36
@@ -1,6 +1,6 @@
 \ 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.
 
@@ -69,11 +69,11 @@ $400 Value def#tib
 
 \ initialized by COLD
 
-Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot
+Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells dup allot
 
 \ set user-pointer from cross-compiler right
 main-task 
-UNLOCK tup ! LOCK
+UNLOCK swap region user-region user-region setup-region LOCK
 
 Variable udp ( -- a-addr ) \ gforth
 \G user area size
@@ -145,7 +145,7 @@ has? file [IF]
 
  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
                         \ (in TIB) line if the interpretation
@@ -165,7 +165,7 @@ User dpl ( -- a-addr ) \ gforth
 \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the 		
 \G position of the decimal point in the most recent numeric conversion.
 \G Initialised to -1. After the conversion of a number containing no
-\G decimal point, @code{@ dpl} is -1. After the conversion of @code{2.} it holds
+\G decimal point, @code{dpl} is -1. After the conversion of @code{2.} it holds
 \G 0. After the conversion of 234123.9 it contains 1, and so forth.
 -1 dpl !
 
@@ -192,14 +192,12 @@ AUser dpp		normal-dp dpp !
 AUser LastCFA
 AUser Last
 
-AUser last-compiled \ last compile,d xt
-                    \ 0 if last xt was dyn-compiled already (basic-block-end)
-0 last-compiled !
-AUser last-compiled-here \ where LAST-COMPILED should be stored
-
-has? peephole  [IF]
-0 value peeptable \ initialized in boot
-[THEN]
+User max-name-length \ maximum length of all names defined yet
+32 max-name-length !
+    
+\  has? peephole  [IF]
+\  0 value peeptable \ initialized in boot
+\  [THEN]
 
 has? glocals [IF]
 User locals-size \ this is the current size of the locals stack