cvs commit: parrot/src headers.c

[Leopold Toetsch]

cvsuser     04/05/07 08:34:32

  Modified:    src      headers.c
  Log:
  assert an assumption
  
  Revision  Changes    Path
  1.53      +3 -1      parrot/src/headers.c
  
  Index: headers.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/headers.c,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -w -r1.52 -r1.53
  --- headers.c 23 Apr 2004 09:21:12 -0000      1.52
  +++ headers.c 7 May 2004 15:34:32 -0000       1.53
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: headers.c,v 1.52 2004/04/23 09:21:12 jrieks Exp $
  +$Id: headers.c,v 1.53 2004/05/07 15:34:32 leo Exp $
   
   =head1 NAME
   
  @@ -15,6 +15,7 @@
   */
   
   #include "parrot/parrot.h"
  +#include <assert.h>
   
   #define GC_DEBUG_PMC_HEADERS_PER_ALLOC 1
   #define GC_DEBUG_BUFFER_HEADERS_PER_ALLOC 1
  @@ -244,6 +245,7 @@
       pool = flags & PObj_constant_FLAG ?
           interpreter->arena_base->constant_pmc_pool :
           interpreter->arena_base->pmc_pool;
  +    assert(sizeof(Dead_PObj) <= sizeof(PMC));
       pmc = pool->get_free_object(interpreter, pool);
       /* clear flags, set is_PMC_FLAG */
       if (flags & PObj_is_PMC_EXT_FLAG) {