cvsuser 02/11/13 17:38:05
Modified: include/parrot exceptions.h parrot.h
Log:
Start of exception stuff
Revision Changes Path
1.21 +21 -1 parrot/include/parrot/exceptions.h
Index: exceptions.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/exceptions.h,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- exceptions.h 14 Oct 2002 03:14:23 -0000 1.20
+++ exceptions.h 14 Nov 2002 01:38:04 -0000 1.21
@@ -1,7 +1,7 @@
/* exceptions.h
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: exceptions.h,v 1.20 2002/10/14 03:14:23 sfink Exp $
+ * $Id: exceptions.h,v 1.21 2002/11/14 01:38:04 dan Exp $
* Overview:
* define the internal interpreter exceptions
* Data Structure and Algorithms:
@@ -52,6 +52,26 @@
#define OUT_OF_BOUNDS 1
#define JIT_ERROR 1
#define ILL_INHERIT 2
+
+typedef enum {
+ EXCEPT_normal = 0,
+ EXCEPT_warning = 1,
+ EXCEPT_error = 2,
+ EXCEPT_severe = 3,
+ EXCEPT_fatal = 4,
+ EXCEPT_doomed = 5
+} exception_severity;
+
+/* Right now there's nothing special for the jump buffer, but there might be one
later, so we wrap it in a struct so that we can expand it later */
+struct Parrot_exception {
+ Parrot_jump_buff destination;
+ long language;
+ long system;
+ exception_severity severity;
+ long error;
+ };
+
+typedef struct Parrot_exception Parrot_exception;
#endif
1.56 +5 -1 parrot/include/parrot/parrot.h
Index: parrot.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/parrot.h,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -w -r1.55 -r1.56
--- parrot.h 10 Nov 2002 11:16:12 -0000 1.55
+++ parrot.h 14 Nov 2002 01:38:05 -0000 1.56
@@ -1,7 +1,7 @@
/* parrot.h
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: parrot.h,v 1.55 2002/11/10 11:16:12 leo Exp $
+ * $Id: parrot.h,v 1.56 2002/11/14 01:38:05 dan Exp $
* Overview:
* General header file includes for the parrot interpreter
* Data Structure and Algorithms:
@@ -65,6 +65,10 @@
# include <sys/stat.h>
#endif
+#ifdef HAS_HEADER_SETJMP
+# include <setjmp.h>
+typedef jmp_buf Parrot_jump_buff;
+#endif
#define NUM_REGISTERS 32
#define PARROT_MAGIC 0x13155a1
