cvsuser 03/12/02 18:52:57
Modified: . vtable.tbl
classes parrotobject.pmc
Log:
Add "isa" for base object.
Revision Changes Path
1.51 +4 -4 parrot/vtable.tbl
Index: vtable.tbl
===================================================================
RCS file: /cvs/public/parrot/vtable.tbl,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -w -r1.50 -r1.51
--- vtable.tbl 25 Nov 2003 13:20:43 -0000 1.50
+++ vtable.tbl 3 Dec 2003 02:52:52 -0000 1.51
@@ -1,4 +1,4 @@
-# $Id: vtable.tbl,v 1.50 2003/11/25 13:20:43 leo Exp $
+# $Id: vtable.tbl,v 1.51 2003/12/03 02:52:52 mrjoltcola Exp $
# [MAIN] #default section name
void init()
@@ -280,9 +280,9 @@
INTVAL does_keyed(PMC* key, STRING* method)
INTVAL does_keyed_int(INTVAL key, STRING* method)
-INTVAL isa(STRING* method)
-INTVAL isa_keyed(PMC* key, STRING* method)
-INTVAL isa_keyed_int(INTVAL key, STRING* method)
+INTVAL isa(STRING* _class)
+INTVAL isa_keyed(PMC* key, STRING* _class)
+INTVAL isa_keyed_int(INTVAL key, STRING* _class)
void freeze(visit_info* info)
void thaw (visit_info* info)
1.8 +5 -1 parrot/classes/parrotobject.pmc
Index: parrotobject.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotobject.pmc,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- parrotobject.pmc 2 Dec 2003 11:16:03 -0000 1.7
+++ parrotobject.pmc 3 Dec 2003 02:52:57 -0000 1.8
@@ -1,7 +1,7 @@
/* parrotobject.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: parrotobject.pmc,v 1.7 2003/12/02 11:16:03 leo Exp $
+ * $Id: parrotobject.pmc,v 1.8 2003/12/03 02:52:57 mrjoltcola Exp $
* Overview:
* These are the vtable functions for the ParrotObject base class
* Data Structure and Algorithms:
@@ -34,6 +34,10 @@
INTVAL type() { /* pmc2c.pl doesn't like empty classes */
return SELF->vtable->base_type;
}
+
+ INTVAL isa(STRING * classname) {
+ return Parrot_object_isa(INTERP, SELF, classname);
+ }
/* Figure out which method PMC we need. By default we just defer to the
* system method lookup code
