gforth/errors.fs - diff

Return to errors.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/errors.fs between versions 1.12 and 1.17

version 1.12, 2002/04/01 15:34:34	version 1.17, 2007/12/31 17:34:58
Line 1	Line 1
\ Load in error strings	\ Load in error strings

\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999,2003,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 18	Line 18
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

[IFUNDEF] linked \ defined by chains.fs?!	: linked ( addr -- )
: linked here over @ a, swap ! ;	here over @ a, swap ! ;
[THEN]

: errstring ( addr u n -- )	: errstring ( addr u n -- )
ErrLink linked	ErrLink linked
Line 90 decimal	Line 89 decimal
\ Gforth's errors:	\ Gforth's errors:

-2048 s" Cannot tick compile-only word (try COMP' ... DROP)" rot errstring	-2048 s" Cannot tick compile-only word (try COMP' ... DROP)" rot errstring
	-2049 s" Write to broken pipe" rot errstring

variable next-exception -2049 next-exception !	variable next-exception -2050 next-exception !

: exception ( addr u -- n ) \ exception- gforth	: exception ( addr u -- n ) \ exception- gforth
\G @var{n} is a previously unused @code{throw} value in the range	\G @var{n} is a previously unused @code{throw} value in the range
Line 102 variable next-exception -2049 next-excep	Line 102 variable next-exception -2049 next-excep
next-exception @	next-exception @
-1 next-exception +! ;	-1 next-exception +! ;

	-2049 constant broken-pipe-error ( -- n ) \ gforth
	\G the error number for a broken pipe

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

Removed from v.1.12
changed lines
	Added in v.1.17