gforth/errors.fs - diff

Return to errors.fs CVS log

Up to [gforth] / gforth

version 1.12, 2002/04/01 15:34:34	version 1.15, 2003/03/09 15:16:48
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 Free Software Foundation, Inc.

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

Line 90 decimal	Line 90 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 103 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