[svn:parrot] r43290 - branches/boehm_gc/compilers/imcc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Dec 28 22:32:28 2009
New Revision: 43290
URL: https://trac.parrot.org/parrot/changeset/43290

Log:
Fix IMCC to use mem_sys_free

Modified:
   branches/boehm_gc/compilers/imcc/imc.c
   branches/boehm_gc/compilers/imcc/instructions.c
   branches/boehm_gc/compilers/imcc/reg_alloc.c

Modified: branches/boehm_gc/compilers/imcc/imc.c
==============================================================================
--- branches/boehm_gc/compilers/imcc/imc.c	Mon Dec 28 22:14:17 2009	(r43289)
+++ branches/boehm_gc/compilers/imcc/imc.c	Mon Dec 28 22:32:28 2009	(r43290)
@@ -145,7 +145,7 @@
     IMCC_INFO(interp)->ghash.data = NULL;
 
     if (IMCC_INFO(interp)->state) {
-        free(IMCC_INFO(interp)->state->file);
+        mem_sys_free(IMCC_INFO(interp)->state->file);
         IMCC_INFO(interp)->state->file = NULL;
     }
 }
@@ -278,8 +278,8 @@
     if (unit->instance_of)
         mem_sys_free(unit->instance_of);
 
-    free(unit->hash.data);
-    free(unit);
+    mem_sys_free(unit->hash.data);
+    mem_sys_free(unit);
 }
 
 /*

Modified: branches/boehm_gc/compilers/imcc/instructions.c
==============================================================================
--- branches/boehm_gc/compilers/imcc/instructions.c	Mon Dec 28 22:14:17 2009	(r43289)
+++ branches/boehm_gc/compilers/imcc/instructions.c	Mon Dec 28 22:32:28 2009	(r43290)
@@ -650,9 +650,9 @@
 free_ins(ARGMOD(Instruction *ins))
 {
     ASSERT_ARGS(free_ins)
-    free(ins->format);
-    free(ins->opname);
-    free(ins);
+    mem_sys_free(ins->format);
+    mem_sys_free(ins->opname);
+    mem_sys_free(ins);
 }
 
 /*

Modified: branches/boehm_gc/compilers/imcc/reg_alloc.c
==============================================================================
--- branches/boehm_gc/compilers/imcc/reg_alloc.c	Mon Dec 28 22:14:17 2009	(r43289)
+++ branches/boehm_gc/compilers/imcc/reg_alloc.c	Mon Dec 28 22:32:28 2009	(r43290)
@@ -429,7 +429,7 @@
     fprintf(stderr, "reg_alloc.c: free_reglist\n");
 #endif
     if (unit->interference_graph) {
-        free(unit->interference_graph);
+        mem_sys_free(unit->interference_graph);
         unit->interference_graph = NULL;
     }
 
@@ -439,7 +439,7 @@
         for (i = 0; i < unit->n_symbols; i++)
             free_life_info(unit, unit->reglist[i]);
 
-        free(unit->reglist);
+        mem_sys_free(unit->reglist);
         unit->reglist   = NULL;
         unit->n_symbols = 0;
     }