gforth/errors.fs - diff

Return to errors.fs CVS log

Up to [gforth] / gforth

version 1.6, 1998/12/08 22:02:41	version 1.9, 1999/03/23 20:24:17
Line 29	Line 29

variable next-exception -2048 next-exception !	variable next-exception -2048 next-exception !

: exception ( addr u -- n )	: exception ( addr u -- n ) \ exception- gforth
\G @var{n} is a previously unused THROW value in the range	\G @var{n} is a previously unused @code{throw} value in the range
\G {-4095...-256}. Consecutive calls to EXCEPTION return	\G (-4095...-256). Consecutive calls to @code{exception} return
\G consecutive decreasing numbers. Gforth uses the string	\G consecutive decreasing numbers. Gforth uses the string
\G @var{addr u} as error message.	\G @var{addr u} as an error message.
next-exception @ errstring	next-exception @ errstring
next-exception @	next-exception @
-1 next-exception +! ;	-1 next-exception +! ;
Line 44 decimal	Line 44 decimal
-3 s" Stack overflow" rot errstring	-3 s" Stack overflow" rot errstring
-4 s" Stack underflow" rot errstring	-4 s" Stack underflow" rot errstring
-5 s" Return stack overflow" rot errstring	-5 s" Return stack overflow" rot errstring
-6 s" Return stack undeflow" rot errstring	-6 s" Return stack underflow" rot errstring
-7 s" Do-loops nested too deeply" rot errstring	-7 s" Do-loops nested too deeply" rot errstring
-8 s" Dictionary overflow" rot errstring	-8 s" Dictionary overflow" rot errstring
-9 s" Invalid memory address" rot errstring	-9 s" Invalid memory address" rot errstring