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

Diff for /gforth/kernel/vars.fs between versions 1.35 and 1.37

version 1.35, 2003/05/11 17:17:14 version 1.37, 2006/01/31 15:25:44
Line 146  has? file [IF] Line 146  has? file [IF]
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   
  2user loadfilename     0 0 loadfilename 2! \ addr u for sourcefilename   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
                         \ is in a textfile                          \ is in a textfile
Line 157  has? file [IF] Line 157  has? file [IF]
 [THEN]  [THEN]
 [THEN]  [THEN]
   
    2user includefilename  0 0 includefilename 2! \ innermost included file
   
   
 User base ( -- a-addr ) \ core  User base ( -- a-addr ) \ core
 \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the  \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the
 \G number base used by default for number conversion during input and output.  \G number base used by default for number conversion during input and output.
Line 165  User dpl ( -- a-addr ) \ gforth Line 168  User dpl ( -- a-addr ) \ gforth
 \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the            \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 position of the decimal point in the most recent numeric conversion.
 \G Initialised to -1. After the conversion of a number containing no  \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.  \G 0. After the conversion of 234123.9 it contains 1, and so forth.
 -1 dpl !  -1 dpl !
   
Line 192  AUser dpp  normal-dp dpp ! Line 195  AUser dpp  normal-dp dpp !
 AUser LastCFA  AUser LastCFA
 AUser Last  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  
   
 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 !
           
Removed from v.1.35  
changed lines
  Added in v.1.37

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