gforth/errors.fs - diff

Return to errors.fs CVS log

Up to [gforth] / gforth

version 1.5, 1998/05/13 16:47:22	version 1.7, 1999/02/03 00:10:20
Line 1	Line 1
\ Load in error strings	\ Load in error strings

\ Copyright (C) 1995-1997 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 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 THROW value in the range
\G {-4095...-256}. Consecutive calls to EXCEPTION return	\G (-4095...-256). Consecutive calls to 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 error message.
next-exception @ errstring	next-exception @ errstring