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

version 1.11, 1999/02/21 14:55:45 version 1.13, 1999/03/08 21:36:08
Line 49  $20 8 2* cells + 2 + cell+ constant word Line 49  $20 8 2* cells + 2 + cell+ constant word
 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!
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
Line 91  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 141  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.11  
changed lines
  Added in v.1.13


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