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

version 1.28, 2001/06/16 22:53:38 version 1.50, 2011/12/31 15:29:26
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,2006,2007,2011 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 hex \ everything now hex!                               11may93jaw  hex \ everything now hex!                               11may93jaw
   
Line 46  has? floating [IF] Line 45  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] 20 cells [ELSE] FF [THEN] Constant /line
   
   has? file [IF]
 40 Constant c/l  40 Constant c/l
 10 Constant l/s  10 Constant l/s
 400 Constant chars/block  400 Constant chars/block
   [THEN]
   
 20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )  20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   
   has? EC 0= [IF]
 create holdbuf word-pno-size chars allot  create holdbuf word-pno-size chars allot
 holdbuf word-pno-size chars + aconstant holdbuf-end  holdbuf word-pno-size chars + aconstant holdbuf-end
 avariable holdptr holdbuf-end holdptr a!  avariable holdptr holdbuf-end holdptr a!
 avariable holdend holdbuf-end holdend a!  avariable holdend holdbuf-end holdend a!
   [THEN]
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
Line 69  $400 Value def#tib Line 73  $400 Value def#tib
   
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot  has? no-userspace 0= [IF]
   Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells dup allot
   
 \ set user-pointer from cross-compiler right  \ set user-pointer from cross-compiler right
 main-task   main-task 
 UNLOCK tup ! LOCK  UNLOCK swap region user-region user-region setup-region LOCK
   
 Variable udp ( -- a-addr ) \ gforth  Variable udp ( -- a-addr ) \ gforth
 \G user area size  \G user area size
Line 81  Variable udp ( -- a-addr ) \ gforth Line 86  Variable udp ( -- a-addr ) \ gforth
 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 !
 AUser save-task        0 save-task !  AUser save-task        0 save-task !
   [THEN]
 AUser sp0 ( -- a-addr ) \ gforth  AUser sp0 ( -- a-addr ) \ gforth
 \G @code{User} variable -- initial value of the data stack pointer.  \G @code{User} variable -- initial value of the data stack pointer.
 \ sp0 is used by douser:, must be user  \ sp0 is used by douser:, must be user
     ' sp0 Alias s0 ( -- a-addr ) \ gforth  \    ' sp0 Alias s0 ( -- a-addr ) \ gforth
 \G OBSOLETE alias of @code{sp0}  \G OBSOLETE alias of @code{sp0}
   
 AUser rp0 ( -- a-addr ) \ gforth  AUser rp0 ( -- a-addr ) \ gforth
 \G @code{User} variable -- initial value of the return stack pointer.  \G @code{User} variable -- initial value of the return stack pointer.
     ' rp0 Alias r0 ( -- a-addr ) \ gforth  \    ' rp0 Alias r0 ( -- a-addr ) \ gforth
 \G OBSOLETE alias of @code{rp0}  \G OBSOLETE alias of @code{rp0}
   
 has? floating [IF]  has? floating [IF]
Line 101  AUser fp0 ( -- a-addr ) \ gforth Line 107  AUser fp0 ( -- a-addr ) \ gforth
 has? glocals [IF]  has? glocals [IF]
 AUser lp0 ( -- a-addr ) \ gforth  AUser lp0 ( -- a-addr ) \ gforth
 \G @code{User} variable -- initial value of the locals stack pointer.  \G @code{User} variable -- initial value of the locals stack pointer.
     ' lp0 Alias l0 ( -- a-addr ) \ gforth  \    ' lp0 Alias l0 ( -- a-addr ) \ gforth
 \G OBSOLETE alias of @code{lp0}  \G OBSOLETE alias of @code{lp0}
 [THEN]  [THEN]
   
 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 145  has? file [IF] Line 150  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
                         \ is in a textfile                          \ is in a textfile
Line 157  has? file [IF] Line 162  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
 \G number base used by default for number conversion during input and output.  \G stores the number base used by default for number conversion during
   \G input and output.  Don't store to @code{base}, use
   \G @code{base-execute} instead.
                        A base !                         A base !
 User dpl ( -- a-addr ) \ gforth  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 189  AUser dpp  normal-dp dpp ! Line 199  AUser dpp  normal-dp dpp !
                         \ the pointer to the current dictionary pointer                          \ the pointer to the current dictionary pointer
                         \ ist reset to normal-dp on (doerror)                          \ ist reset to normal-dp on (doerror)
                         \  (i.e. any throw caught by quit)                          \  (i.e. any throw caught by quit)
 AUser LastCFA  has? ec [IF]
       AUser LastCFA
   [THEN]
 AUser Last  AUser Last
   
 AUser last-compiled \ address of the last compiled xt  has? flash [IF]
                     \ 0 if last xt cannot be combined (basic block boundary)      AUser flash-dp
 0 last-compiled !      : rom  flash-dp dpp ! ;
       : ram  normal-dp dpp ! ;
 has? peephole  [IF]  
 0 value peeptable \ initialized in boot  
 [THEN]  [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]  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
                  \ frame of the current word                   \ frame of the current word

Removed from v.1.28  
changed lines
  Added in v.1.50


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