[gforth] / gforth / Attic / exceptions.fs  

gforth: gforth/Attic/exceptions.fs

Diff for /gforth/Attic/exceptions.fs between version 1.5 and 1.6

version 1.5, Sun Dec 12 20:39:00 1999 UTC version 1.6, Thu Dec 30 20:43:25 1999 UTC
Line 18 
Line 18 
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
   \ !! use a separate exception stack?           anton
   
   \ user-definable rollback actions
   
 Defer 'catch  Defer 'catch
 Defer 'throw  Defer 'throw
   
Line 32 
Line 36 
 : (try) ( -- )  : (try) ( -- )
     \ inline argument: address of the handler      \ inline argument: address of the handler
     r>      r>
     'catch  
     dup dup @ + >r \ recovery address      dup dup @ + >r \ recovery address
       rp@ 'catch >r
     sp@ >r      sp@ >r
     fp@ >r      fp@ >r
     lp@ >r      lp@ >r
Line 52 
Line 56 
     rdrop \ lp      rdrop \ lp
     rdrop \ fp      rdrop \ fp
     rdrop \ sp      rdrop \ sp
       r> rp!
     rdrop \ recovery address      rdrop \ recovery address
     >r ;      >r ;
   
Line 85 
Line 90 
         r> lp!          r> lp!
         r> fp!          r> fp!
         r> swap >r sp! drop r>          r> swap >r sp! drop r>
         'throw          rdrop 'throw
     THEN ;      THEN ;
 is throw  is throw
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help