cvsuser 04/11/05 00:46:17
Modified: src gc_ims.c
Log:
minor speedup
Revision Changes Path
1.14 +2 -3 parrot/src/gc_ims.c
Index: gc_ims.c
===================================================================
RCS file: /cvs/public/parrot/src/gc_ims.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- gc_ims.c 4 Nov 2004 12:52:26 -0000 1.13
+++ gc_ims.c 5 Nov 2004 08:46:17 -0000 1.14
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-$Id: gc_ims.c,v 1.13 2004/11/04 12:52:26 leo Exp $
+$Id: gc_ims.c,v 1.14 2004/11/05 08:46:17 leo Exp $
=head1 NAME
@@ -490,8 +490,7 @@
/* Setup memory for the new objects */
new_arena = mem_sys_allocate(sizeof(struct Small_Object_Arena));
size = ALLOCATION_BLOCK_SIZE;
- /* could be mem_sys_allocate too, but calloc is fast */
- new_arena->start_objects = mem_sys_allocate_zeroed(size);
+ new_arena->start_objects = mem_sys_allocate(size);
Parrot_append_arena_in_pool(interpreter, pool, new_arena, size);
