[svn:parrot] r43678 - branches/pmc_freeze_with_pmcs/src/pmc

darbelo at svn.parrot.org darbelo at svn.parrot.org
Mon Feb 1 05:18:16 UTC 2010


Author: darbelo
Date: Mon Feb  1 05:18:15 2010
New Revision: 43678
URL: https://trac.parrot.org/parrot/changeset/43678

Log:
Replace direct access to thaw_ptr with calls to the set_pointer() VTABLE.

Modified:
   branches/pmc_freeze_with_pmcs/src/pmc/fixedpmcarray.pmc
   branches/pmc_freeze_with_pmcs/src/pmc/imageio.pmc
   branches/pmc_freeze_with_pmcs/src/pmc/object.pmc
   branches/pmc_freeze_with_pmcs/src/pmc/parrotinterpreter.pmc
   branches/pmc_freeze_with_pmcs/src/pmc/schedulermessage.pmc

Modified: branches/pmc_freeze_with_pmcs/src/pmc/fixedpmcarray.pmc
==============================================================================
--- branches/pmc_freeze_with_pmcs/src/pmc/fixedpmcarray.pmc	Mon Feb  1 05:07:31 2010	(r43677)
+++ branches/pmc_freeze_with_pmcs/src/pmc/fixedpmcarray.pmc	Mon Feb  1 05:18:15 2010	(r43678)
@@ -714,7 +714,7 @@
         PMC   **pos    = PMC_array(SELF);
 
         for (i = 0; i < n; ++i, ++pos) {
-            info->thaw_ptr = pos;
+            VTABLE_set_pointer(interp, info, pos);
             (info->visit_pmc_now)(INTERP, *pos, info);
         }
 

Modified: branches/pmc_freeze_with_pmcs/src/pmc/imageio.pmc
==============================================================================
--- branches/pmc_freeze_with_pmcs/src/pmc/imageio.pmc	Mon Feb  1 05:07:31 2010	(r43677)
+++ branches/pmc_freeze_with_pmcs/src/pmc/imageio.pmc	Mon Feb  1 05:18:15 2010	(r43678)
@@ -445,7 +445,7 @@
 */
 
 VTABLE void push_pmc(PMC *v) {
-    PARROT_IMAGEIO(SELF)->thaw_ptr = &v;
+    VTABLE_set_pointer(interp, SELF, &v);
     (PARROT_IMAGEIO(SELF)->visit_pmc_now)(INTERP, v, SELF);
 }
 
@@ -519,7 +519,7 @@
 
 VTABLE PMC *shift_pmc() {
     PMC *result;
-    PARROT_IMAGEIO(SELF)->thaw_ptr = &result;
+    VTABLE_set_pointer(interp, SELF, &result);
     (PARROT_IMAGEIO(SELF)->visit_pmc_now)(interp, NULL, PARROT_IMAGEIO(SELF));
     return result;
 }

Modified: branches/pmc_freeze_with_pmcs/src/pmc/object.pmc
==============================================================================
--- branches/pmc_freeze_with_pmcs/src/pmc/object.pmc	Mon Feb  1 05:07:31 2010	(r43677)
+++ branches/pmc_freeze_with_pmcs/src/pmc/object.pmc	Mon Feb  1 05:18:15 2010	(r43678)
@@ -746,7 +746,7 @@
 
         /* 2) visit the attributes */
         pos      = &obj_data->attrib_store;
-        info->thaw_ptr = pos;
+        VTABLE_set_pointer(interp, info, pos);
         (info->visit_pmc_now)(INTERP, *pos, info);
     }
 

Modified: branches/pmc_freeze_with_pmcs/src/pmc/parrotinterpreter.pmc
==============================================================================
--- branches/pmc_freeze_with_pmcs/src/pmc/parrotinterpreter.pmc	Mon Feb  1 05:07:31 2010	(r43677)
+++ branches/pmc_freeze_with_pmcs/src/pmc/parrotinterpreter.pmc	Mon Feb  1 05:18:15 2010	(r43678)
@@ -715,7 +715,7 @@
         else
             pos = &INTERP->HLL_info;
 
-        info->thaw_ptr = pos;
+        VTABLE_set_pointer(interp, info, pos);
         (info->visit_pmc_now)(INTERP, *pos, info);
     }
 

Modified: branches/pmc_freeze_with_pmcs/src/pmc/schedulermessage.pmc
==============================================================================
--- branches/pmc_freeze_with_pmcs/src/pmc/schedulermessage.pmc	Mon Feb  1 05:07:31 2010	(r43677)
+++ branches/pmc_freeze_with_pmcs/src/pmc/schedulermessage.pmc	Mon Feb  1 05:18:15 2010	(r43678)
@@ -223,7 +223,7 @@
 
         /* 1) visit message data */
         pos            = &core_struct->data;
-        info->thaw_ptr = pos;
+        VTABLE_set_pointer(interp, info, pos);
         (info->visit_pmc_now)(INTERP, *pos, info);
     }
 


More information about the parrot-commits mailing list