[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

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

version 1.25, Sun Oct 29 20:27:03 2000 UTC version 1.32, Mon Jan 20 19:17:59 2003 UTC
Line 76 
Line 76 
 UNLOCK tup ! LOCK  UNLOCK tup ! LOCK
   
 Variable udp ( -- a-addr ) \ gforth  Variable udp ( -- a-addr ) \ gforth
 \ user area size? -anton  \G user area size
   
 AUser next-task        main-task next-task !  AUser next-task        main-task next-task !
 AUser prev-task        main-task prev-task !  AUser prev-task        main-task prev-task !
Line 145 
Line 145 
   
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   
  User loadfilename#     0 loadfilename# !   2user loadfilename     0 0 loadfilename 2! \ addr u for sourcefilename
   
  User loadline          \ number of the currently interpreted   User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation                          \ (in TIB) line if the interpretation
Line 192 
Line 192 
 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
   
   has? peephole  [IF]
   0 value peeptable \ initialized in boot
   [THEN]
   
 has? glocals [IF]  has? glocals [IF]
 User locals-size \ this is the current size of the locals stack  User locals-size \ this is the current size of the locals stack
                  \ frame of the current word                   \ frame of the current word

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help