cvsuser 04/10/29 02:35:04
Modified: src packfile.c
Log:
hopefully fixed #32196
Revision Changes Path
1.178 +5 -2 parrot/src/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -r1.177 -r1.178
--- packfile.c 28 Oct 2004 11:24:38 -0000 1.177
+++ packfile.c 29 Oct 2004 09:35:04 -0000 1.178
@@ -2,7 +2,7 @@
Copyright (C) 2001-2002 Gregor N. Purdy. All rights reserved.
This program is free software. It is subject to the same license as
Parrot itself.
-$Id: packfile.c,v 1.177 2004/10/28 11:24:38 leo Exp $
+$Id: packfile.c,v 1.178 2004/10/29 09:35:04 leo Exp $
=head1 NAME
@@ -343,6 +343,7 @@
struct PackFile_FixupTable *ft;
struct PackFile_ConstTable *ct;
PMC *sub_pmc;
+ STRING *name;
ft = cs->fixups;
if (!ft)
@@ -357,7 +358,9 @@
ci = ft->fixups[i]->offset;
sub_pmc = ct->constants[ci]->u.key;
pobject_lives(interpreter, (PObj *)sub_pmc);
- pobject_lives(interpreter, (PObj *)PMC_sub(sub_pmc)->name);
+ name = PMC_sub(sub_pmc)->name;
+ if (name)
+ pobject_lives(interpreter, (PObj *)name);
break;
}
}
