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

Diff for /gforth/kernel/vars.fs between versions 1.1 and 1.5

version 1.1, 1997/05/21 20:40:18 version 1.5, 1998/11/21 20:24:16
Line 40  FF Constant /line Line 40  FF Constant /line
 10 Constant l/s  10 Constant l/s
 400 Constant chars/block  400 Constant chars/block
   
   $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   84 constant pad-minsize ( -- u )
   
 \ that's enough so long  \ that's enough so long
   
 \ User variables                                       13feb93py  \ User variables                                       13feb93py
Line 47  FF Constant /line Line 50  FF Constant /line
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  100 cells allot  Create main-task  100 cells allot
 main-task tup H ! minimal  
   
 Variable udp \ used by dovar:, must be variable  \ set user-pointer from cross-compiler right
   main-task 
   UNLOCK tup ! LOCK
   
   Variable udp
   
 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 !
 AUser save-task        0 save-task !  AUser save-task        0 save-task !
 AUser s0 \ used by douser:, must be user  AUser sp0       \ used by douser:, must be user
 AUser r0                  ' sp0 Alias s0
 AUser f0  AUser rp0       ' rp0 Alias r0
 AUser l0  AUser fp0       \ no f0, because this leads to unexpected results
 AUser handler  AUser lp0       ' lp0 Alias l0
   AUser handler   \ pointer to last throw frame
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
   
Line 66  AUser errorhandler Line 73  AUser errorhandler
   
 AUser "error            0 "error !  AUser "error            0 "error !
   
  User tibstack  [IFUNDEF] #tib          \ in ec-Version we may define this ourself
  User >tib   User tibstack          \ saves >tib in execute
  User #tib   User >tib              \ pointer to terminal input buffer
  User >in               0 >in !   User #tib              \ chars in terminal input buffer
    User >in               0 >in ! \ char number currently processed in tib
   [THEN]
  User blk               0 blk !   User blk               0 blk !
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   
Removed from v.1.1  
changed lines
  Added in v.1.5

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