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

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

version 1.10, 1999/02/03 00:10:26 version 1.12, 1999/02/22 21:39:44
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 136  has? file [IF] Line 142  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.12

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