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

Diff for /gforth/kernel/vars.fs between versions 1.4 and 1.8

version 1.4, 1997/07/06 15:56:17 version 1.8, 1998/12/19 13:43:18
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 63  AUser save-task        0 save-task ! Line 63  AUser save-task        0 save-task !
 AUser sp0       \ used by douser:, must be user  AUser sp0       \ used by douser:, must be user
                 ' sp0 Alias s0                  ' sp0 Alias s0
 AUser rp0       ' rp0 Alias r0  AUser rp0       ' rp0 Alias r0
 AUser fp0       ' fp0 Alias f0  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 output  \ AUser output
Line 79  AUser "error            0 "error ! Line 79  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 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 104  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.4  
changed lines
  Added in v.1.8

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