[perl #41032] [PATCH] Compiling Parrot with the new Borland C++

[via RT]

# New Ticket Created by  Steve Peters 
# Please include the string:  [perl #41032]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41032 >


It took some tweaking to get some of the warnings shut off, but the
attached patch actually gets the files to compile, although it doesn't
actually build a parrot to test with.  Expect a few more patches over the
next week to finish this off.

Steve Peters
[EMAIL PROTECTED]

--- parrot-old/src/pic.c        2006-11-18 18:16:41.921875000 -0600
+++ parrot/src/pic.c    2006-11-18 16:06:35.312500000 -0600
@@ -83,7 +83,7 @@
 #  include "parrot/oplib/core_ops_cgp.h"
 #endif
 
-#if HAS_JIT
+#ifdef HAS_JIT
 #include "parrot/exec.h"
 #include "jit.h"
 #endif
@@ -484,7 +484,6 @@
 is_pic_func(Interp *interp, void **pc, Parrot_MIC *mic, int core_type)
 {
     PMC *sub, *sig_args, *sig_results;
-    char *base;
     parrot_context_t *ctx;
     opcode_t *op, n;
     int flags;
@@ -507,7 +506,6 @@
      * pc is at set_args
      */
 
-    base = (char*)interp->ctx.bp.regs_i;
     ctx = CONTEXT(interp->ctx);
     sig_args = (PMC*)(pc[1]);
     ASSERT_SIG_PMC(sig_args);
@@ -543,7 +541,6 @@
 parrot_PIC_prederef(Interp *interp, opcode_t op, void **pc_pred, int core)
 {
     op_func_t * const prederef_op_func = interp->op_lib->op_func_table;
-    char * const _reg_base = (char*)interp->ctx.bp.regs_i;
     opcode_t * const cur_opcode = (opcode_t*)pc_pred;
     Parrot_MIC *mic = NULL;
 
--- parrot-old/src/pic_jit.c    2006-11-18 18:16:41.140625000 -0600
+++ parrot/src/pic_jit.c        2006-11-18 16:08:04.765625000 -0600
@@ -38,7 +38,7 @@
 #  include "parrot/oplib/core_ops_cgp.h"
 #endif
 
-#if HAS_JIT
+#ifdef HAS_JIT
 #include "parrot/exec.h"
 #include "jit.h"
 
@@ -261,7 +261,6 @@
 {
 
     opcode_t *base, *start, *end;
-    STRING * const name = VTABLE_get_string(interp, sub);
 
     *flags = 0;
 
--- parrot-old/src/mmd.c        2006-11-18 18:16:43.859375000 -0600
+++ parrot/src/mmd.c    2006-11-18 18:30:03.640625000 -0600
@@ -135,7 +135,7 @@
             func = D2FPTR(PMC_struct_val(method));
             *is_pmc = 0;
             mmd_register(interp, func_nr, left_type, r,
-                    PMC_struct_val(method));
+                    (void (*)())PMC_struct_val(method));
         }
         else {
             *is_pmc = 1;