cvsuser 04/06/24 03:51:03
Modified: classes exception_handler.pmc
Log:
turn of marking of exception handlers
Revision Changes Path
1.9 +9 -1 parrot/classes/exception_handler.pmc
Index: exception_handler.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/exception_handler.pmc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- exception_handler.pmc 22 Feb 2004 17:48:41 -0000 1.8
+++ exception_handler.pmc 24 Jun 2004 10:51:03 -0000 1.9
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: exception_handler.pmc,v 1.8 2004/02/22 17:48:41 mikescott Exp $
+$Id: exception_handler.pmc,v 1.9 2004/06/24 10:51:03 leo Exp $
=head1 NAME
@@ -38,6 +38,14 @@
void init() {
PObj_get_FLAGS(SELF) &= ~PObj_private0_FLAG;
SUPER();
+ /*
+ * an exception handler has no separate context, its
+ * only a snapshot of an "earlier" context, which is
+ * contained in the interpreter's context - the stacks
+ * can only be deeper in the interpreter - so no
+ * mark of context is needed
+ */
+ PObj_custom_mark_CLEAR(SELF);
}
}
