Author: cotto
Date: Tue Mar 24 09:22:34 2009
New Revision: 37675
URL: https://trac.parrot.org/parrot/changeset/37675
Log:
[PMC] a couple more unionval->vtable fixes
Modified:
trunk/src/inter_cb.c
Modified: trunk/src/inter_cb.c
==============================================================================
--- trunk/src/inter_cb.c Tue Mar 24 09:21:24 2009 (r37674)
+++ trunk/src/inter_cb.c Tue Mar 24 09:22:34 2009 (r37675)
@@ -139,9 +139,9 @@
* _D ... user_data is 1st parameter
*/
if (type == 'C')
- PMC_data(cb) = F2DPTR(Parrot_callback_C);
+ VTABLE_set_pointer(interp, cb, F2DPTR(Parrot_callback_C));
else
- PMC_data(cb) = F2DPTR(Parrot_callback_D);
+ VTABLE_set_pointer(interp, cb, F2DPTR(Parrot_callback_D));
gc_register_pmc(interp, cb);
return cb;
@@ -345,7 +345,7 @@
case 'p':
/* created a UnManagedStruct */
p_param = pmc_new(interp, enum_class_UnManagedStruct);
- PMC_data(p_param) = external_data;
+ VTABLE_set_pointer(interp, p_param, external_data);
pasm_sig[2] = 'P';
param = (void*) p_param;
break;