cvs commit: parrot/src headers.c

[Peter Gibbs]

cvsuser     03/12/10 12:01:32

  Modified:    src      headers.c
  Log:
  Fix error if DOD is invoked when a sized_header_pool exists but has no memory 
allocated.
  
  Revision  Changes    Path
  1.43      +3 -2      parrot/src/headers.c
  
  Index: headers.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/headers.c,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -w -r1.42 -r1.43
  --- headers.c 27 Oct 2003 15:14:35 -0000      1.42
  +++ headers.c 10 Dec 2003 20:01:32 -0000      1.43
  @@ -1,7 +1,7 @@
   /* headers.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: headers.c,v 1.42 2003/10/27 15:14:35 leo Exp $
  + *     $Id: headers.c,v 1.43 2003/12/10 20:01:32 petergibbs Exp $
    *  Overview:
    *     Header management functions. Handles getting of various headers,
    *     and pool creation
  @@ -278,7 +278,8 @@
               start_arena_memory;
   
       for (i = 0; i < interpreter->arena_base->num_sized; i++) {
  -        if (interpreter->arena_base->sized_header_pools[i]) {
  +        if (interpreter->arena_base->sized_header_pools[i] &&
  +            interpreter->arena_base->sized_header_pools[i]->start_arena_memory) {
               if (min > interpreter->arena_base->
                       sized_header_pools[i]->start_arena_memory)
                   min = interpreter->arena_base->sized_header_pools[i]->