[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.6 and 1.7

version 1.6, Tue Dec 8 22:03:15 1998 UTC version 1.7, Fri Dec 11 22:54:32 1998 UTC
Line 49 
Line 49 
   
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  100 cells allot  Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot
   
 \ set user-pointer from cross-compiler right  \ set user-pointer from cross-compiler right
 main-task  main-task
Line 79 
Line 79 
  User #tib              \ chars in terminal input buffer   User #tib              \ chars in terminal input buffer
  User >in               0 >in ! \ char number currently processed in tib   User >in               0 >in ! \ char number currently processed in tib
 [THEN]  [THEN]
   has? file [IF]
  User blk               0 blk !   User blk               0 blk !
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   
Line 91 
Line 92 
   
 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]
   
  User base              A base !   User base              A base !
  User dpl               -1 dpl !   User dpl               -1 dpl !
Line 104 
Line 106 
 AUser LastCFA  AUser LastCFA
 AUser Last  AUser Last
   
   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
   [THEN]
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help