[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.47 and 1.50

version 1.47, Mon Dec 31 18:40:26 2007 UTC version 1.50, Sat Dec 31 15:29:26 2011 UTC
Line 1 
Line 1 
 \ VARS.FS      Kernal variables  \ VARS.FS      Kernal variables
   
 \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2011 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 45 
Line 45 
 \G @i{c-char} is the character value for a space.  \G @i{c-char} is the character value for a space.
 \ used by docon:, must be constant  \ used by docon:, must be constant
   
 has? EC [IF] 40 [ELSE] FF [THEN] Constant /line  has? EC [IF] 20 cells [ELSE] FF [THEN] Constant /line
   
 has? file [IF]  has? file [IF]
 40 Constant c/l  40 Constant c/l
Line 199 
Line 199 
                         \ the pointer to the current dictionary pointer                          \ the pointer to the current dictionary pointer
                         \ ist reset to normal-dp on (doerror)                          \ ist reset to normal-dp on (doerror)
                         \  (i.e. any throw caught by quit)                          \  (i.e. any throw caught by quit)
   has? ec [IF]
 AUser LastCFA  AUser LastCFA
   [THEN]
 AUser Last  AUser Last
   
 has? flash [IF]  has? flash [IF]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help