cvsuser 04/03/09 13:36:05
Modified: src objects.c
Log:
Add in some accessor macros to start the rework
Revision Changes Path
1.53 +7 -2 parrot/src/objects.c
Index: objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -w -r1.52 -r1.53
--- objects.c 6 Mar 2004 07:35:29 -0000 1.52
+++ objects.c 9 Mar 2004 21:36:05 -0000 1.53
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: objects.c,v 1.52 2004/03/06 07:35:29 leo Exp $
+$Id: objects.c,v 1.53 2004/03/09 21:36:05 dan Exp $
=head1 NAME
@@ -21,6 +21,11 @@
#include "parrot/parrot.h"
#include <assert.h>
+/* Get entry y from the attribute array of PMC x */
+#define get_attrib_num(x, y) ((PMC *)PObj_bufstart((Buffer *)PMC_data(x)))+y
+/* Set entry y of PMC x to z */
+#define set_attrib_num(x, y, z) ((PMC *)PObj_bufstart((Buffer *)PMC_data(x)))+y = z
+
static PMC *
clone_array(Parrot_Interp interpreter, PMC *source_array) {
PMC *new_array;
@@ -45,7 +50,7 @@
=cut
-*/
+v*/
static PMC *
find_global(Parrot_Interp interpreter, STRING *class, STRING *globalname)
