cvsuser 05/03/22 06:29:21
Modified: src pmc.c
Log:
fix vtable expansion logic
Revision Changes Path
1.99 +5 -2 parrot/src/pmc.c
Index: pmc.c
===================================================================
RCS file: /cvs/public/parrot/src/pmc.c,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- pmc.c 18 Mar 2005 08:29:26 -0000 1.98
+++ pmc.c 22 Mar 2005 14:29:21 -0000 1.99
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pmc.c,v 1.98 2005/03/18 08:29:26 leo Exp $
+$Id: pmc.c,v 1.99 2005/03/22 14:29:21 leo Exp $
=head1 NAME
@@ -373,9 +373,12 @@
*/
INTVAL new_max = class_table_size + 10;
INTVAL new_size = new_max * sizeof(VTABLE *);
+ INTVAL i;
new_vtable_table = mem_sys_realloc(Parrot_base_vtables, new_size);
- /* XXX Should set all the empty slots to the null PMC's
+ /* Should set all the empty slots to the null PMC's
vtable pointer */
+ for (i = class_table_size; i < new_max; ++i)
+ new_vtable_table[i] = NULL;
Parrot_base_vtables = new_vtable_table;
class_table_size = new_max;
}
