cvsuser 03/12/12 01:36:54
Modified: src objects.c
Log:
use get_string_keyed_int
Revision Changes Path
1.27 +7 -10 parrot/src/objects.c
Index: objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -w -r1.26 -r1.27
--- objects.c 5 Dec 2003 16:41:00 -0000 1.26
+++ objects.c 12 Dec 2003 09:36:54 -0000 1.27
@@ -1,7 +1,7 @@
/* objects.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: objects.c,v 1.26 2003/12/05 16:41:00 leo Exp $
+ * $Id: objects.c,v 1.27 2003/12/12 09:36:54 leo Exp $
* Overview:
* Handles class and object manipulation
* Data Structure and Algorithms:
@@ -378,9 +378,8 @@
/* See if we get lucky and its in the class of the PMC */
FQ_method = string_concat(interpreter,
- VTABLE_get_string(interpreter,
- VTABLE_get_pmc_keyed_int(interpreter,
- (PMC *)PMC_data(class), PCD_CLASS_NAME)),
+ VTABLE_get_string_keyed_int(interpreter,
+ (PMC *)PMC_data(class), PCD_CLASS_NAME),
shortcut_name, 0);
method = find_global(interpreter, FQ_method);
@@ -402,9 +401,8 @@
classsearch_array, searchoffset);
FQ_method = string_concat(interpreter,
- VTABLE_get_string(interpreter,
- VTABLE_get_pmc_keyed_int(interpreter,
- (PMC *)PMC_data(curclass), PCD_CLASS_NAME)),
+ VTABLE_get_string_keyed_int(interpreter,
+ (PMC *)PMC_data(curclass), PCD_CLASS_NAME),
shortcut_name, 0);
method = find_global(interpreter, FQ_method);
}
@@ -421,9 +419,8 @@
PMC *attr_hash;
class_array = (PMC*) PMC_data(class);
- class_name = VTABLE_get_string(interpreter,
- VTABLE_get_pmc_keyed_int(interpreter,
- class_array, PCD_CLASS_NAME));
+ class_name = VTABLE_get_string_keyed_int(interpreter,
+ class_array, PCD_CLASS_NAME);
/*
* our attributes start at offset found in hash at PCD_ATTRIB_OFFS
*/
