cvsuser 03/11/19 08:32:32
Modified: src pmc_freeze.c
Log:
Adjust to hash API changes
Revision Changes Path
1.2 +2 -2 parrot/src/pmc_freeze.c
Index: pmc_freeze.c
===================================================================
RCS file: /cvs/public/parrot/src/pmc_freeze.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- pmc_freeze.c 19 Nov 2003 15:43:35 -0000 1.1
+++ pmc_freeze.c 19 Nov 2003 16:32:31 -0000 1.2
@@ -1,7 +1,7 @@
/* pmc_freeze.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: pmc_freeze.c,v 1.1 2003/11/19 15:43:35 dan Exp $
+ * $Id: pmc_freeze.c,v 1.2 2003/11/19 16:32:31 dan Exp $
* Overview:
* Freeze and thaw functionality
* Data Structure and Algorithms:
@@ -296,7 +296,7 @@
/* we must use PMCs here, so that they get marked properly */
info->todo = pmc_new(interpreter, enum_class_Array);
info->seen = pmc_new_noinit(interpreter, enum_class_PerlHash);
- hash = new_hash_x(interpreter, int_compare, key_hash_int,
+ hash = new_hash_x(interpreter, enum_type_INTVAL, 0, Hash_key_type_int,
int_compare, key_hash_int,
(hash_mark_key_fn) NULL);
hash->entry_type = enum_type_int;
PObj_custom_mark_SET(info->seen);
