# New Ticket Created by Leopold Toetsch
# Please include the string: [perl #17469]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17469 >
This patch is additionally needed for #17455. Due to missing
dependencies on build utilities, ths one was missing - sorry.
(Should these dependencies be in Makefile, or is a "make clean"
mandatory for such cases?)
Please apply,
leo
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/38207/31051/8f1806/jit2h.patch
--- parrot/jit2h.pl Mon Aug 5 08:49:15 2002
+++ parrot-leo/jit2h.pl Sat Sep 21 14:14:44 2002
@@ -95,6 +95,11 @@
#define JIT_EMIT 1
#include"parrot/jit_emit.h"
+#define IREG(i) interpreter->ctx.int_reg.registers[jit_info->cur_op[i]]
+#define NREG(i) interpreter->ctx.num_reg.registers[jit_info->cur_op[i]]
+#define PREG(i) interpreter->ctx.pmc_reg.registers[jit_info->cur_op[i]]
+#define SREG(i) interpreter->ctx.string_reg.registers[jit_info->cur_op[i]]
+#define CONST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]]
END_C
%core_ops = readjit("jit/$cpuarch/core.jit");
