cvsuser 05/02/24 05:42:50
Modified: include/parrot dod.h
Log:
GMS generational MS 7 - remove warning
Revision Changes Path
1.27 +3 -3 parrot/include/parrot/dod.h
Index: dod.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/dod.h,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- dod.h 24 Feb 2005 11:56:43 -0000 1.26
+++ dod.h 24 Feb 2005 13:42:50 -0000 1.27
@@no-spam -1,7 +1,7 @@no-spam
/* dod.h
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: dod.h,v 1.26 2005/02/24 11:56:43 leo Exp $
+ * $Id: dod.h,v 1.27 2005/02/24 13:42:50 leo Exp $
* Overview:
* Handles dead object destruction of the various headers
* Data Structure and Algorithms:
@@no-spam -124,7 +124,7 @@no-spam
#if PARROT_GC_GMS
# define DOD_WRITE_BARRIER(interp, agg, old, new) do { \
UINTVAL gen_agg, gen_new; \
- if (PMC_IS_NULL(new)) \
+ if (!(new) || (new) == (void*)PMCNULL) \
break; \
gen_agg = PObj_to_GMSH(agg)->gen->gen_no; \
gen_new = PObj_to_GMSH(new)->gen->gen_no; \
@@no-spam -134,7 +134,7 @@no-spam
# define DOD_WRITE_BARRIER_KEY(interp, agg, old, old_key, new, new_key) do { \
UINTVAL gen_agg, gen_new, gen_key; \
- if (PMC_IS_NULL(new)) \
+ if (!(new) || (new) == (void*)PMCNULL) \
break; \
gen_agg = PObj_to_GMSH(agg)->gen->gen_no; \
gen_new = PObj_to_GMSH(new)->gen->gen_no; \