[BACK]Return to errore.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

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

version 1.7, 1995/11/07 18:06:38 version 1.8, 1996/07/16 20:57:07
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"                 -4 ERR" Stack underflow"  -3 ERR" Stack overflow"                 -4 ERR" Stack underflow"
 -5 ERR" Return stack overflow"          -6 ERR" Return stack undeflow"  -5 ERR" Return stack overflow"          -6 ERR" Return stack undeflow"
 -7 ERR" Do-loops nested too deeply"     -8 ERR" Dictionary overflow"  -7 ERR" Do-loops nested too deeply"     -8 ERR" Dictionary overflow"
Removed from v.1.7  
changed lines
  Added in v.1.8

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