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

version 1.1, 1997/05/21 20:40:18 version 1.7, 1998/12/11 22:54:32
Line 1 Line 1
 \ VARS.FS      Kernal variables  \ VARS.FS      Kernal variables
   
 \ Copyright (C) 1995 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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
   
 \ initialized by COLD  \ initialized by COLD
   
 Create main-task  100 cells allot  Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] 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
   
 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]
   has? file [IF]
  User blk               0 blk !   User blk               0 blk !
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   
Line 82  AUser "error            0 "error ! Line 92  AUser "error            0 "error !
   
 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 95  AUser dpp  normal-dp dpp ! Line 106  AUser dpp  normal-dp dpp !
 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]
   

Removed from v.1.1  
changed lines
  Added in v.1.7


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