1: \ Load in error strings
2:
3: \ Copyright (C) 1995-1997 Free Software Foundation, Inc.
4:
5: \ This file is part of Gforth.
6:
7: \ Gforth is free software; you can redistribute it and/or
8: \ modify it under the terms of the GNU General Public License
9: \ as published by the Free Software Foundation; either version 2
10: \ of the License, or (at your option) any later version.
11:
12: \ This program is distributed in the hope that it will be useful,
13: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
14: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: \ GNU General Public License for more details.
16:
17: \ You should have received a copy of the GNU General Public License
18: \ along with this program; if not, write to the Free Software
19: \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20:
21: : linked here over @ a, swap ! ;
22:
23: : ERR" ( n -- )
24: ErrLink linked
25: ,
26: [char] " parse
27: string, align ;
28:
29: decimal
30:
31: -1 ERR" Aborted"
32: -3 ERR" Stack overflow"
33: -4 ERR" Stack underflow"
34: -5 ERR" Return stack overflow"
35: -6 ERR" Return stack undeflow"
36: -7 ERR" Do-loops nested too deeply"
37: -8 ERR" Dictionary overflow"
38: -9 ERR" Invalid memory address"
39: -10 ERR" Division by zero"
40: -11 ERR" Result out of range"
41: -12 ERR" Argument type mismatch"
42: -13 ERR" Undefined word"
43: -14 ERR" Interpreting a compile-only word"
44: -15 ERR" Invalid FORGET"
45: -16 ERR" Attempt to use zero-length string as a name"
46: -17 ERR" Pictured numeric ouput string overflow"
47: -18 ERR" Parsed string overflow"
48: -19 ERR" Word name too long"
49: -20 ERR" Write to a read-only location"
50: -21 ERR" Unsupported operation"
51: -22 ERR" Control structure mismatch"
52: -23 ERR" Address alignment exception"
53: -24 ERR" Invalid numeric argument"
54: -25 ERR" Return stack imbalance"
55: -26 ERR" Loop parameters unavailable"
56: -27 ERR" Invalid recursion"
57: -28 ERR" User interrupt"
58: -29 ERR" Compiler nesting"
59: -30 ERR" Obsolescent feature"
60: -31 ERR" >BODY used on non-CREATEd definition"
61: -32 ERR" Invalid name argument"
62: -33 ERR" Block read exception"
63: -34 ERR" Block write exception"
64: -35 ERR" Invalid block number"
65: -36 ERR" Invalid file position"
66: -37 ERR" File I/O exception"
67: -38 ERR" Non-existent file"
68: -39 ERR" Unexpected end of file"
69: -40 ERR" Invalid BASE for floating point conversion"
70: -41 ERR" Loss of precision"
71: -42 ERR" Floating-point divide by zero"
72: -43 ERR" Floating-point result out of range"
73: -44 ERR" Floating-point stack overflow"
74: -45 ERR" Floating-point stack underflow"
75: -46 ERR" Floating-point invalid argument"
76: -47 ERR" Compilation word list deleted"
77: -48 ERR" invalid POSTPONE"
78: -49 ERR" Search-order overflow"
79: -50 ERR" Search-order underflow"
80: -51 ERR" Compilation word list changed"
81: -52 ERR" Control-flow stack overflow"
82: -53 ERR" Exception stack overflow"
83: -54 ERR" Floating-point underflow"
84: -55 ERR" Floating-point unidentified fault"
85: -56 ERR" QUIT"
86: -57 ERR" Error in sending or receiving a character"
87: -58 ERR" [IF], [ELSE], [THEN] error"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>