[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.2 and 1.3

version 1.2, Fri Jun 6 17:28:17 1997 UTC version 1.3, Sun Jul 6 13:40:50 1997 UTC
Line 50 
Line 50 
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  100 cells allot  Create main-task  100 cells allot
 main-task tup H ! minimal  
   \ set user-pointer from cross-compiler right
   main-task
   UNLOCK tup ! LOCK
   
 Variable udp \ used by dovar:, must be variable  Variable udp \ used by dovar:, must be variable
   
 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       ' fp0 Alias f0
 AUser handler  AUser lp0       ' lp0 Alias l0
   AUser handler   \ pointer to last throw frame
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
   
Line 69 
Line 73 
   
 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 !
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help