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 |