cvsuser 04/05/07 11:16:55
Modified: src headers.c
Log:
assrt only for ARENA_DOD_FLAGS
Revision Changes Path
1.54 +3 -1 parrot/src/headers.c
Index: headers.c
===================================================================
RCS file: /cvs/public/parrot/src/headers.c,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -w -r1.53 -r1.54
--- headers.c 7 May 2004 15:34:32 -0000 1.53
+++ headers.c 7 May 2004 18:16:55 -0000 1.54
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: headers.c,v 1.53 2004/05/07 15:34:32 leo Exp $
+$Id: headers.c,v 1.54 2004/05/07 18:16:55 leo Exp $
=head1 NAME
@@ -245,7 +245,9 @@
pool = flags & PObj_constant_FLAG ?
interpreter->arena_base->constant_pmc_pool :
interpreter->arena_base->pmc_pool;
+#if ARENA_DOD_FLAGS
assert(sizeof(Dead_PObj) <= sizeof(PMC));
+#endif
pmc = pool->get_free_object(interpreter, pool);
/* clear flags, set is_PMC_FLAG */
if (flags & PObj_is_PMC_EXT_FLAG) {
