[svn:parrot] r40841 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Aug 28 16:20:11 2009
New Revision: 40841
URL: https://trac.parrot.org/parrot/changeset/40841

Log:
[gc] mark stacktop in PackFile_fixup_subs

Modified:
   trunk/src/packfile.c

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Fri Aug 28 14:55:34 2009	(r40840)
+++ trunk/src/packfile.c	Fri Aug 28 16:20:11 2009	(r40841)
@@ -26,6 +26,7 @@
 
 #include "parrot/parrot.h"
 #include "parrot/embed.h"
+#include "parrot/extend.h"
 #include "parrot/packfile.h"
 #include "jit.h"
 #include "../compilers/imcc/imc.h"
@@ -4921,7 +4922,9 @@
 PackFile_fixup_subs(PARROT_INTERP, pbc_action_enum_t what, ARGIN_NULLOK(PMC *eval))
 {
     ASSERT_ARGS(PackFile_fixup_subs)
+    PARROT_CALLIN_START(interp);
     do_sub_pragmas(interp, interp->code, what, eval);
+    PARROT_CALLIN_END(interp);
 }