# New Ticket Created by Steve Peters
# Please include the string: [perl #51004]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51004 >
Index: src/exec.c
===================================================================
--- src/exec.c (revision 25874)
+++ src/exec.c (working copy)
@@ -98,7 +98,7 @@
/* TODO Go zero the calls to jited opcodes. */
/* Place the program code in the data section. */
/* program_code */
- add_data_member(obj, interp->code->base.pf->src,
+ add_data_member(obj, (void *)interp->code->base.pf->src,
interp->code->base.pf->size);
/* opcode_map */
add_data_member(obj, jit_info->arena.op_map, (jit_info->arena.map_size+1) *
Index: src/interpreter.c
===================================================================
--- src/interpreter.c (revision 25874)
+++ src/interpreter.c (working copy)
@@ -1113,7 +1113,6 @@
op_variant = Parrot_sprintf_c(interp, "%s_ops%s",
new_lib->name, cg_lib->suffix);
lib_variant = Parrot_load_lib(interp, op_variant, NULL);
-#endif
/*
* XXX running CG and CGP ops currently works only via the wrapper
*/
@@ -1129,12 +1128,15 @@
new_init_func((long) ops_addr);
}
else {
+#endif
size_t i;
/* if not install wrappers */
/* fill new entries with the wrapper op */
for (i = n_old; i < n_tot; ++i)
ops_addr[i] = (cg_lib->op_func_table)[CORE_OPS_wrapper__];
+#if 0
}
+#endif
/*
* if we are running this core, update event check ops
*/
