git.gag.com Git - debian/yforth/blob - exceptio.h

   1 /* yForth? - Written by Luca Padovani (C) 1996/97
   2  * ------------------------------------------------------------------------
   3  * This software is FreeWare as long as it comes with this header in each
   4  * source file, anyway you can use it or any part of it whatever
   5  * you want. It comes without any warranty, so use it at your own risk.
   6  * ------------------------------------------------------------------------
   7  * Module name:     exceptio.h
   8  * Abstract:        include file for "exception" word set
   9  */
  10
  11 #ifdef DECLARE_WORDS
  12 #       ifdef PROTOTYPES
  13 #               undef PROTOTYPES
  14 #       endif
  15 #       undef __EXCEPTION_H__
  16 #else
  17 #       ifndef PROTOTYPES
  18 #               define PROTOTYPES
  19 #       endif
  20 #endif
  21
  22 #ifndef __EXCEPTION_H__
  23 #define __EXCEPTION_H__
  24
  25 #include "yforth.h"
  26 #include "macro.h"
  27
  28 #ifdef PROTOTYPES
  29 struct exception_frame {
  30         jmp_buf catch_buf;
  31         Cell *sp, *rp, *bp;
  32         Real *fp;
  33         struct exception_frame *last;
  34 };
  35 #endif
  36
  37 /**************************************************************************/
  38 /* PROTOTYPES *************************************************************/
  39 /**************************************************************************/
  40
  41 code(catch,                                                     "catch",                                0)
  42 code(throw,                                                     "throw",                                0)
  43
  44 #ifdef PROTOTYPES
  45
  46 #endif
  47
  48 #endif
  49