cvsuser 04/02/25 12:39:11
Modified: src objects.c
Log:
Silence warnings
Revision Changes Path
1.39 +3 -5 parrot/src/objects.c
Index: objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -w -r1.38 -r1.39
--- objects.c 25 Feb 2004 14:48:51 -0000 1.38
+++ objects.c 25 Feb 2004 20:39:11 -0000 1.39
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: objects.c,v 1.38 2004/02/25 14:48:51 dan Exp $
+$Id: objects.c,v 1.39 2004/02/25 20:39:11 scog Exp $
=head1 NAME
@@ -248,7 +248,7 @@
/* Build a new vtable for this class
* The child class PMC gets a ParrotClass vtable, which is a
* good base to work from
- * XXX we are leaking ths vtable
+ * XXX we are leaking this vtable
*/
new_vtable = Parrot_clone_vtable(interpreter, new_class->vtable);
@@ -401,8 +401,6 @@
parent list and add them into the child if they're not already
in the child list */
if (!already_in) {
- INTVAL current_size;
-
/* First go put the new parent class on the search list */
current_size = VTABLE_elements(interpreter,
current_class_array);
@@ -431,7 +429,6 @@
}
/* We found it. Yay us. Add the parent class to the list */
if (!found) {
- INTVAL current_size;
current_size = VTABLE_elements(interpreter,
current_class_array);
VTABLE_set_integer_native(interpreter,
@@ -708,6 +705,7 @@
else {
internal_exception(INTERNAL_NOT_IMPLEMENTED, "Can't get non-core object
attribs yet");
}
+ return NULL;
}
void
