# New Ticket Created by Leopold Toetsch
# Please include the string: [perl #16095]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16095 >
Hi,
actually, this is the 2. attempt to get this in.
It resolves tickets #15712 which seems to be closed to early.
Anyway this patch makes e.g.
$ perl6 -C mops.p6
compile and run natively C.
[ Above command might need a newer perl6, or at least adaption of linked
parrot .o files - patch will follow after bigger rediffs. ]
......
/home/lt/src/parrot-007/languages/perl6/mops.c: In function `main':
/home/lt/src/parrot-007/languages/perl6/mops.c:216: warning: passing arg
2 of `run_compiled' from incompatible pointer type
/home/lt/src/parrot-007/languages/perl6/mops.c:216: warning: passing arg
3 of `run_compiled' from incompatible pointer type
......
M op/s: 2.966409
I didn't remove these warnings, because I actually don't know, what
parameters really should be there.
Please apply,
TIA,
leo
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/33373/27460/c23f51/pbc2c.pl.diff
--- pbc2c.pl Mon Aug 5 08:49:15 2002
+++ /home/lt/src/parrot-007/pbc2c.pl Mon Aug 5 10:23:07 2002
@@ -235,8 +235,8 @@
return 1;
}
interpreter->code = pf;
- runops(interpreter, pf, 0);
- exit(1);
+ run_compiled(interpreter, program_code, program_code);
+ exit(0);
}
static opcode_t* run_compiled(struct Parrot_Interp *interpreter, opcode_t
*cur_opcode, opcode_t *start_code){
