cvsuser 04/11/24 23:45:17
Modified: src sub.c
Log:
mark rest of current context items
Revision Changes Path
1.81 +11 -5 parrot/src/sub.c
Index: sub.c
===================================================================
RCS file: /cvs/public/parrot/src/sub.c,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- sub.c 7 Nov 2004 15:29:59 -0000 1.80
+++ sub.c 25 Nov 2004 07:45:16 -0000 1.81
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: sub.c,v 1.80 2004/11/07 15:29:59 leo Exp $
+$Id: sub.c,v 1.81 2004/11/25 07:45:16 leo Exp $
=head1 NAME
@@ -69,7 +69,7 @@
void
mark_context(Interp* interpreter, struct Parrot_Context* ctx)
{
- PObj *cont;
+ PObj *obj;
mark_stack(interpreter, ctx->pad_stack);
mark_stack(interpreter, ctx->user_stack);
@@ -80,9 +80,15 @@
mark_pmc_register_stack(interpreter, ctx->pmc_reg_stack);
mark_reg_stack(interpreter, ctx->reg_stack);
- cont = (PObj*)ctx->current_cont;
- if (cont && !PObj_live_TEST(cont))
- pobject_lives(interpreter, cont);
+ obj = (PObj*)ctx->current_sub;
+ if (obj)
+ pobject_lives(interpreter, obj);
+ obj = (PObj*)ctx->current_object;
+ if (obj)
+ pobject_lives(interpreter, obj);
+ obj = (PObj*)ctx->current_cont;
+ if (obj && !PObj_live_TEST(obj))
+ pobject_lives(interpreter, obj);
}
/*
