[BACK]Return to vars.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/vars.fs between versions 1.28 and 1.34

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
Removed from v.1.28  
changed lines
  Added in v.1.34

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>