[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