[perl #51004] [PATCH] Silence warnings when compiling with Intel C++

# 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
      */

• [perl #51004] [PATCH] Silence warnings when compiling with Intel C++ by Steve Peters
• Re: [perl #51004] [PATCH] Silence warnings when compiling with Intel C++ by chromatic