Diff for /gforth/kernel/vars.fs between versions 1.10 and 1.13

version 1.10, 1999/02/03 00:10:26 version 1.13, 1999/03/08 21:36:08
Line 46  FF Constant /line Line 46  FF Constant /line
 400 Constant chars/block  400 Constant chars/block
   
 $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )  $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   create holdbuf word-pno-size chars allot
   holdbuf word-pno-size chars + aconstant holdbuf-end
   avariable holdptr holdbuf-end holdptr a!
   avariable holdend holdbuf-end holdend a!
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
   
 \ that's enough so long  \ that's enough so long
   
 \ User variables                                       13feb93py  \ User variables                                       13feb93py
Line 86  AUser lp0 ( -- a-addr ) \ gforth Line 92  AUser lp0 ( -- a-addr ) \ gforth
 \G OBSOLETE alias of @code{lp0}  \G OBSOLETE alias of @code{lp0}
   
 AUser handler   \ pointer to last throw frame  AUser handler   \ pointer to last throw frame
 AUser backtrace-empty \ true if the next THROW should store a backtrace  User backtrace-empty \ true if the next THROW should store a backtrace
   AUser backtrace-rp0 \ rp at last call of interpret
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
   
Line 136  has? file [IF] Line 143  has? file [IF]
  User dpl               -1 dpl !   User dpl               -1 dpl !
   
  User state ( -- a-addr ) \ core,tools-ext   User state ( -- a-addr ) \ core,tools-ext
  \G USER VARIABLE: a-addr is the address of a cell containing   \G Recommended reading: @cite{@code{State}-smartness--Why it is evil
  \G the compilation state flag. 0 => interpreting, -1 => compiling.   \G and how to exorcise it},
  \G A program shall not directly alter the value of @code{state}. The   \G @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
  \G following Standard words alter the value in @code{state}:   \G version: Don't use @code{state}! @xref{Interpretation and
  \G @code{:} (colon) @code{;} (semicolon) @code{abort} @code{quit}   \G Compilation Semantics} for an alternative. USER VARIABLE: a-addr
  \G @code{:noname} @code{[} (left-bracket) @code{]} (right-bracket)   \G is the address of a cell containing the compilation state flag. 0
  \G @code{;code}   \G => interpreting, -1 => compiling.  A program shall not directly
    \G alter the value of @code{state}. The following Standard words
    \G alter the value in @code{state}: @code{:} (colon) @code{;}
    \G (semicolon) @code{abort} @code{quit} @code{:noname} @code{[}
    \G (left-bracket) @code{]} (right-bracket) @code{;code}
                         0 state !                          0 state !
   
 AUser normal-dp         \ the usual dictionary pointer  AUser normal-dp         \ the usual dictionary pointer

Removed from v.1.10  
changed lines
  Added in v.1.13


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