[gforth] / gforth / except.fs  

gforth: gforth/except.fs

Diff for /gforth/except.fs between version 1.9 and 1.10

version 1.9, Sun Nov 23 22:52:29 2003 UTC version 1.10, Fri May 26 21:18:45 2006 UTC
Line 85 
Line 85 
     lp@ >r      lp@ >r
     handler @ >r      handler @ >r
     rp@ handler !      rp@ handler !
     backtrace-empty on  
     >r ;      >r ;
   
 : try ( compilation  -- orig ; run-time  -- ) \ gforth  : try ( compilation  -- orig ; run-time  -- ) \ gforth
Line 126 
Line 125 
 :noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception  :noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
     ?DUP IF      ?DUP IF
         [ here forthstart 9 cells + ! ]          [ here forthstart 9 cells + ! ]
         store-backtrace          store-backtrace error-stack off
         handler @ ?dup-0=-IF          handler @ ?dup-0=-IF
             >stderr cr ." uncaught exception: " .error cr              >stderr cr ." uncaught exception: " .error cr
             2 (bye)              2 (bye)
Line 140 
Line 139 
         rdrop 'throw r> perform          rdrop 'throw r> perform
     THEN ;      THEN ;
 is throw  is throw
   [IFDEF] throw>error
   :noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
       ?DUP IF
           handler @ ?dup-0=-IF
               >stderr cr ." uncaught exception: " .error cr
               2 (bye)
   \           quit
           THEN
           rp!
           r> handler !
           r> lp!
           r> fp!
           r> swap >r sp! drop r>
           rdrop 'throw r> perform
       THEN ;
   is throw>error
   [THEN]

Generate output suitable for use with a patch program
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help