[cage] clean init and destroy on several pmc, TT #895

git-svn-id: https://svn.parrot.org/parrot/trunk@40365 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Aug 1, 2009 · 9d29343 · 9d29343
1 parent a727d55
commit 9d29343
Show file tree

Hide file tree

Showing 8 changed files with 11 additions and 2 deletions.
diff --git a/src/pmc/fixedintegerarray.pmc b/src/pmc/fixedintegerarray.pmc
@@ -155,6 +155,7 @@ Destroys the array.
         if (int_array)
             mem_sys_free(int_array);
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 
 /*

diff --git a/src/pmc/fixedpmcarray.pmc b/src/pmc/fixedpmcarray.pmc
@@ -87,6 +87,7 @@ Destroys the array.
             mem_sys_free(PMC_array(SELF));
         }
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 
 /*

diff --git a/src/pmc/fixedstringarray.pmc b/src/pmc/fixedstringarray.pmc
@@ -69,6 +69,7 @@ Destroys the array.
             mem_sys_free(str_array);
 
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 
 /*

diff --git a/src/pmc/float.pmc b/src/pmc/float.pmc
@@ -34,8 +34,8 @@ Initializes the number to zero.
     VTABLE void init() {
         Parrot_Float_attributes * const fattr = mem_allocate_zeroed_typed(Parrot_Float_attributes);
 
-        fattr->fv      = 0.0;
         PMC_data(SELF) = fattr;
+        SET_ATTR_fv(INTERP, SELF, 0.0);
 
         PObj_active_destroy_SET(SELF);
     }
@@ -51,6 +51,7 @@ Destroy this PMC.
 
     VTABLE void destroy() {
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 /*
 

diff --git a/src/pmc/hash.pmc b/src/pmc/hash.pmc
@@ -409,6 +409,7 @@ Free hash structure.
             parrot_hash_destroy(INTERP, hash);
 
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 /*
 

diff --git a/src/pmc/object.pmc b/src/pmc/object.pmc
@@ -153,6 +153,7 @@ Free the object's underlying struct.
 */
     VTABLE void destroy() {
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }
 
 /*

diff --git a/src/pmc/parrotinterpreter.pmc b/src/pmc/parrotinterpreter.pmc
@@ -277,8 +277,10 @@ Destroys the PMC.
 */
 
     VTABLE void destroy() {
-        if (PMC_data(SELF))
+        if (PMC_data(SELF)) {
             mem_sys_free(PMC_data(SELF));
+            PMC_data(SELF) = NULL;
+        }
     }
 
 

diff --git a/src/pmc/unmanagedstruct.pmc b/src/pmc/unmanagedstruct.pmc
@@ -691,6 +691,7 @@ Destroys the subroutine.
 
     VTABLE void destroy() {
         mem_sys_free(PMC_data(SELF));
+        PMC_data(SELF) = NULL;
     }