[svn:parrot] r49203 - trunk/src/pmc

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Tue Sep 21 17:56:54 2010
New Revision: 49203
URL: https://trac.parrot.org/parrot/changeset/49203

Log:
Patch to add init_int() VTABLE function for ExceptionHandler.  Courtesy NotFound++ .

Modified:
   trunk/src/pmc/exceptionhandler.pmc

Modified: trunk/src/pmc/exceptionhandler.pmc
==============================================================================
--- trunk/src/pmc/exceptionhandler.pmc	Tue Sep 21 17:01:01 2010	(r49202)
+++ trunk/src/pmc/exceptionhandler.pmc	Tue Sep 21 17:56:54 2010	(r49203)
@@ -61,6 +61,24 @@
 
 /*
 
+=item C<void init_int(INTVAL)>
+
+Initializes the exception handler with one handled type.
+
+=cut
+
+*/
+
+    VTABLE void init_int(INTVAL handledtype) {
+        Parrot_ExceptionHandler_attributes * const attrs = PARROT_EXCEPTIONHANDLER(SELF);
+        SELF.init();
+
+        attrs->handled_types        = Parrot_pmc_new_init_int(INTERP, enum_class_FixedIntegerArray, 1);
+        VTABLE_set_integer_keyed_int(INTERP, attrs->handled_types, 0, handledtype);
+    }
+
+/*
+
 =item C<void mark()>
 
 Mark any active exception handler data as live.