cvs commit: parrot/src stack_common.c

[Leopold Toetsch]

cvsuser     04/11/04 04:52:05

  Modified:    src      stack_common.c
  Log:
  indirect register frame 16 - dont zero stack memory
  
  Revision  Changes    Path
  1.23      +13 -2     parrot/src/stack_common.c
  
  Index: stack_common.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/stack_common.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- stack_common.c    4 Nov 2004 08:03:36 -0000       1.22
  +++ stack_common.c    4 Nov 2004 12:52:05 -0000       1.23
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2004 The Perl Foundation.  All Rights Reserved.
  -$Id: stack_common.c,v 1.22 2004/11/04 08:03:36 leo Exp $
  +$Id: stack_common.c,v 1.23 2004/11/04 12:52:05 leo Exp $
   
   =head1 NAME
   
  @@ -84,7 +84,18 @@
   Stack_Chunk_t *
   cst_new_stack_chunk(Parrot_Interp interpreter, Stack_Chunk_t *chunk)
   {
  -    Stack_Chunk_t *new_chunk = new_bufferlike_header(interpreter, chunk->size);
  +    Stack_Chunk_t *new_chunk;
  +    struct Small_Object_Pool *pool;
  +
  +    /*
  +     * get buffer directly from pool, we don't need zeroed
  +     * memory
  +     */
  +    pool = get_bufferlike_pool(interpreter, chunk->size);
  +    new_chunk = pool->get_free_object(interpreter, pool);
  +    PObj_bufstart(new_chunk) = NULL;
  +    PObj_buflen  (new_chunk) = 0;
  +
       new_chunk->size = chunk->size;
       new_chunk->name = chunk->name;
       return new_chunk;