[svn:parrot] r44408 - in branches/boehm_gc_2: include/parrot src

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Feb 23 21:03:11 2010
New Revision: 44408
URL: https://trac.parrot.org/parrot/changeset/44408

Log:
Pass interp into free_values func

Modified:
   branches/boehm_gc_2/include/parrot/hash.h
   branches/boehm_gc_2/src/hash.c

Modified: branches/boehm_gc_2/include/parrot/hash.h
==============================================================================
--- branches/boehm_gc_2/include/parrot/hash.h	Tue Feb 23 21:02:48 2010	(r44407)
+++ branches/boehm_gc_2/include/parrot/hash.h	Tue Feb 23 21:03:11 2010	(r44408)
@@ -78,7 +78,7 @@
     hash_hash_key_fn hash_val;  /* generate a hash value for key */
 };
 
-typedef void (*value_free)(void *);
+typedef void (*value_free)(PARROT_INTERP, void *);
 
 /* To avoid creating OrderedHashItem PMC we reuse FixedPMCArray PMC */
 /* So, there is indexes to avoid using of "magick constants" */

Modified: branches/boehm_gc_2/src/hash.c
==============================================================================
--- branches/boehm_gc_2/src/hash.c	Tue Feb 23 21:02:48 2010	(r44407)
+++ branches/boehm_gc_2/src/hash.c	Tue Feb 23 21:03:11 2010	(r44408)
@@ -1079,7 +1079,7 @@
         HashBucket *bucket = hash->bi[i];
         while (bucket) {
             mem_internal_free(bucket->key);
-            func(bucket->value);
+            func(interp, bucket->value);
             bucket = bucket->next;
         }
     }