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

Diff for /gforth/kernel/vars.fs between versions 1.34 and 1.36

version 1.34, 2003/03/09 15:17:07 version 1.36, 2003/10/03 09:14:27
Line 69  $400 Value def#tib Line 69  $400 Value def#tib
   
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot  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 165  User dpl ( -- a-addr ) \ gforth Line 165  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 192  AUser dpp  normal-dp dpp ! Line 192  AUser dpp  normal-dp dpp !
 AUser LastCFA  AUser LastCFA
 AUser Last  AUser Last
   
 AUser last-compiled \ last compile,d xt  
                     \ 0 if last xt was dyn-compiled already (basic-block-end)  
 0 last-compiled !  
 AUser last-compiled-here \ where LAST-COMPILED should be stored  
   
 User max-name-length \ maximum length of all names defined yet  User max-name-length \ maximum length of all names defined yet
 32 max-name-length !  32 max-name-length !
           
Removed from v.1.34  
changed lines
  Added in v.1.36

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