cvsuser 03/08/01 10:22:17
Modified: classes parrotclass.pmc
Log:
Use a more appropriate macro
Revision Changes Path
1.5 +2 -2 parrot/classes/parrotclass.pmc
Index: parrotclass.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotclass.pmc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- parrotclass.pmc 21 Jul 2003 18:00:29 -0000 1.4
+++ parrotclass.pmc 1 Aug 2003 17:22:17 -0000 1.5
@@ -1,7 +1,7 @@
/* parrotclass.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: parrotclass.pmc,v 1.4 2003/07/21 18:00:29 chromatic Exp $
+ * $Id: parrotclass.pmc,v 1.5 2003/08/01 17:22:17 scog Exp $
* Overview:
* These are the vtable functions for the ParrotClass base class
* Data Structure and Algorithms:
@@ -39,7 +39,7 @@
/* But we are a class, really */
PObj_is_class_SET(SELF);
/* And, coincidentally, data points to a PMC. Fancy that... */
- PObj_get_FLAGS(SELF) |= PObj_is_PMC_ptr_FLAG;
+ PObj_flag_SET(is_PMC_ptr, SELF);
}
INTVAL type () {
