Diff for /gforth/Attic/errore.fs between versions 1.7 and 1.9

version 1.7, 1995/11/07 18:06:38 version 1.9, 1997/01/04 16:32:28
Line 23 Line 23
 \ and deleting. Speed is not neccassary at this point.  \ and deleting. Speed is not neccassary at this point.
   
 AVARIABLE ErrLink              \ Linked list entry point  AVARIABLE ErrLink              \ Linked list entry point
 0 ErrLink !  NIL ErrLink !
   
 : ERR" ( n -- )  : ERR" ( n -- )
        ErrLink linked         ErrLink linked
        ,         ,
        [char] " word count         [char] " parse
        string, align ;         string, align ;
   
 decimal  decimal
   
 -1 ERR" Aborted"  -1 ERR" Aborted"
 ErrLink @ unlock reloff lock \ make sure that the terminating 0 is not relocated  -3 ERR" Stack overflow"
 -3 ERR" Stack overflow"                 -4 ERR" Stack underflow"  -4 ERR" Stack underflow"
 -5 ERR" Return stack overflow"          -6 ERR" Return stack undeflow"  -5 ERR" Return stack overflow"
 -7 ERR" Do-loops nested too deeply"     -8 ERR" Dictionary overflow"  -6 ERR" Return stack undeflow"
 -9 ERR" Invalid memory address"         -10 ERR" Division by zero"  -7 ERR" Do-loops nested too deeply"
 -11 ERR" Result out of range"           -12 ERR" Argument type mismatch"  -8 ERR" Dictionary overflow"
 -13 ERR" Undefined word"                -14 ERR" Interpreting a compile-only word"  -9 ERR" Invalid memory address"
 -15 ERR" Invalid FORGET"                -16 ERR" Attempt to use zero-length string as a name"  -10 ERR" Division by zero"
   -11 ERR" Result out of range"
   -12 ERR" Argument type mismatch"
   -13 ERR" Undefined word"
   -14 ERR" Interpreting a compile-only word"
   -15 ERR" Invalid FORGET"
   -16 ERR" Attempt to use zero-length string as a name"
 -17 ERR" Pictured numeric ouput string overflow"  -17 ERR" Pictured numeric ouput string overflow"
 -18 ERR" Parsed string overflow"        -19 ERR" Word name too long"  -18 ERR" Parsed string overflow"
 -20 ERR" Write to a read-only location" -21 ERR" Unsupported operation"  -19 ERR" Word name too long"
 -22 ERR" Control structure mismatch"    -23 ERR" Address alignment exception"  -20 ERR" Write to a read-only location"
 -24 ERR" Invalid numeric argument"      -25 ERR" Return stack imbalance"  -21 ERR" Unsupported operation"
 -26 ERR" Loop parameters unavailable"   -27 ERR" Invalid recursion"  -22 ERR" Control structure mismatch"
 -28 ERR" User interupt"                 -29 ERR" Compiler nesting"  -23 ERR" Address alignment exception"
 -30 ERR" Obsolescent feature"           -31 ERR" >BODY used on non-CREATEd definition"  -24 ERR" Invalid numeric argument"
 -32 ERR" Invalid name argument"         -33 ERR" Block read exception"  -25 ERR" Return stack imbalance"
 -34 ERR" Block write exception"         -35 ERR" Invalid block number"  -26 ERR" Loop parameters unavailable"
 -36 ERR" Invalid file position"         -37 ERR" File I/O exception"  -27 ERR" Invalid recursion"
 -38 ERR" Non-existent file"             -39 ERR" Unexpected end of file"  -28 ERR" User interupt"
   -29 ERR" Compiler nesting"
   -30 ERR" Obsolescent feature"
   -31 ERR" >BODY used on non-CREATEd definition"
   -32 ERR" Invalid name argument"
   -33 ERR" Block read exception"
   -34 ERR" Block write exception"
   -35 ERR" Invalid block number"
   -36 ERR" Invalid file position"
   -37 ERR" File I/O exception"
   -38 ERR" Non-existent file"
   -39 ERR" Unexpected end of file"
 -40 ERR" Invalid BASE for floating point conversion"  -40 ERR" Invalid BASE for floating point conversion"
 -41 ERR" Loss of precision"             -42 ERR" Floating-point divide by zero"  -41 ERR" Loss of precision"
   -42 ERR" Floating-point divide by zero"
 -43 ERR" Floating-point result out of range"  -43 ERR" Floating-point result out of range"
 -44 ERR" Floating-point stack overflow" -45 ERR" Floating-point stack underflow"  -44 ERR" Floating-point stack overflow"
   -45 ERR" Floating-point stack underflow"
 -46 ERR" Floating-point invalid argument"  -46 ERR" Floating-point invalid argument"
 -47 ERR" Compilation word list deleted" -48 ERR" invalid POSTPONE"  -47 ERR" Compilation word list deleted"
 -49 ERR" Search-order overflow"         -50 ERR" Search-order underflow"  -48 ERR" invalid POSTPONE"
 -51 ERR" Compilation word list changed" -52 ERR" Control-flow stack overflow"  -49 ERR" Search-order overflow"
 -53 ERR" Exception stack overflow"      -54 ERR" Floating-point underflow"  -50 ERR" Search-order underflow"
   -51 ERR" Compilation word list changed"
   -52 ERR" Control-flow stack overflow"
   -53 ERR" Exception stack overflow"
   -54 ERR" Floating-point underflow"
 -55 ERR" Floating-point unidentified fault"  -55 ERR" Floating-point unidentified fault"
 -56 ERR" QUIT"                          -57 ERR" Error in sending or receiving a character"  -56 ERR" QUIT"
   -57 ERR" Error in sending or receiving a character"
 -58 ERR" [IF], [ELSE], [THEN] error"  -58 ERR" [IF], [ELSE], [THEN] error"
   
 \ signals are handled with strsignal  \ signals are handled with strsignal

Removed from v.1.7  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>