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

version 1.5, 1998/11/21 20:24:16 version 1.9, 1999/01/03 21:48:39
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 49  $20 8 2* cells + 2 + cell+ constant word Line 49  $20 8 2* cells + 2 + cell+ constant word
   
 \ 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 
 UNLOCK tup ! LOCK  UNLOCK tup ! LOCK
   
 Variable udp  Variable udp \ user area size? -anton
   
 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 66  AUser rp0 ' rp0 Alias r0 Line 66  AUser rp0 ' rp0 Alias r0
 AUser fp0       \ no f0, because this leads to unexpected results  AUser fp0       \ no f0, because this leads to unexpected results
 AUser lp0       ' lp0 Alias l0  AUser lp0       ' lp0 Alias l0
 AUser handler   \ pointer to last throw frame  AUser handler   \ pointer to last throw frame
   AUser backtrace-empty \ true if the next THROW should store a backtrace
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
   
Line 79  AUser "error            0 "error ! Line 80  AUser "error            0 "error !
  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  AUser "error            0 "error ! Line 93  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 104  AUser dpp  normal-dp dpp ! Line 107  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.5  
changed lines
  Added in v.1.9


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