# 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){