[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.24 and 1.25

version 1.24, Sat Sep 23 15:47:12 2000 UTC version 1.25, Sun Oct 29 20:27:03 2000 UTC
Line 37 
Line 37 
 \G @code{Constant} -- @code{1 cells}  \G @code{Constant} -- @code{1 cells}
 [THEN]  [THEN]
   
   has? floating [IF]
 1 floats Constant float ( -- u ) \ gforth  1 floats Constant float ( -- u ) \ gforth
 \G @code{Constant} -- the number of address units corresponding to a floating-point number.  \G @code{Constant} -- the number of address units corresponding to a floating-point number.
   [THEN]
   
 20 Constant bl ( -- c-char ) \ core b-l  20 Constant bl ( -- c-char ) \ core b-l
 \G @i{c-char} is the character value for a space.  \G @i{c-char} is the character value for a space.
Line 58 
Line 60 
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
   $400 Value def#tib
   \G default size of terminal input buffer. Default size is 1K
   
 \ that's enough so long  \ that's enough so long
   
Line 88 
Line 92 
     ' 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]
 AUser fp0 ( -- a-addr ) \ gforth  AUser fp0 ( -- a-addr ) \ gforth
 \G @code{User} variable -- initial value of the floating-point stack pointer.  \G @code{User} variable -- initial value of the floating-point stack pointer.
 \ no f0, because this leads to unexpected results when using hex  \ no f0, because this leads to unexpected results when using hex
   [THEN]
   
   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]
   
 AUser handler   \ pointer to last throw frame  AUser handler   \ pointer to last throw frame
 has? backtrace [IF]  has? backtrace [IF]
Line 109 
Line 117 
   
 AUser "error            0 "error !  AUser "error            0 "error !
   
   has? new-input [IF]
       User current-input
   [ELSE]
 [IFUNDEF] #tib          \ in ec-Version we may define this ourself  [IFUNDEF] #tib          \ in ec-Version we may define this ourself
  User tibstack          \ saves >tib in execute   User tibstack          \ saves >tib in execute
  User >tib              \ pointer to terminal input buffer   User >tib              \ pointer to terminal input buffer
Line 123 
Line 134 
  \G parse area.   \G parse area.
                         0 >in ! \ char number currently processed in tib                          0 >in ! \ char number currently processed in tib
 [THEN]  [THEN]
   
 has? file [IF]  has? file [IF]
  User blk ( -- a-addr ) \ block b-l-k   User blk ( -- a-addr ) \ block b-l-k
  \G @code{User} variable -- @i{a-addr} is the address of a cell containing zero   \G @code{User} variable -- @i{a-addr} is the address of a cell containing zero
Line 143 
Line 155 
 2User linestart         \ starting file postition of  2User linestart         \ starting file postition of
                         \ the current interpreted line (in TIB)                          \ the current interpreted line (in TIB)
 [THEN]  [THEN]
   [THEN]
   
  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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help