cvsuser 04/10/15 01:45:37
Modified: languages/tcl tcl.pl
src dod.c
Log:
work around a NULL vtable due to wrong pmc_register
Revision Changes Path
1.8 +1 -1 parrot/languages/tcl/tcl.pl
Index: tcl.pl
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/tcl.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- tcl.pl 6 Oct 2004 01:18:09 -0000 1.7
+++ tcl.pl 15 Oct 2004 08:45:35 -0000 1.8
@@ -16,7 +16,7 @@
closedir(CMDDIR);
my $math_dir = "lib/functions";
-opendir(FUNCDIR,$math_dir) or die;
+opendir(FUNCDIR,$math_dir);
my @math_files = readdir(FUNCDIR);
closedir(FUNCDIR);
1.136 +5 -2 parrot/src/dod.c
Index: dod.c
===================================================================
RCS file: /cvs/public/parrot/src/dod.c,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -w -r1.135 -r1.136
--- dod.c 8 Oct 2004 14:42:03 -0000 1.135
+++ dod.c 15 Oct 2004 08:45:37 -0000 1.136
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: dod.c,v 1.135 2004/10/08 14:42:03 leo Exp $
+$Id: dod.c,v 1.136 2004/10/15 08:45:37 leo Exp $
=head1 NAME
@@ -313,7 +313,10 @@
* get created as constant PMCs
*/
for (i = enum_class_core_max; i < (unsigned int)enum_class_max; i++) {
- if (Parrot_base_vtables[i]->data)
+ /*
+ * XXX dynclasses groups have empty slots for abstract objects
+ */
+ if (Parrot_base_vtables[i] && Parrot_base_vtables[i]->data)
pobject_lives(interpreter, (PObj*)Parrot_base_vtables[i]->data);
}
