diff options
-rw-r--r-- | cc_runtime.h | 4 | ||||
-rw-r--r-- | ext/B/B/CC.pm | 8 | ||||
-rw-r--r-- | run.c | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/cc_runtime.h b/cc_runtime.h index bb9b7dc5d9..bb0e07a58c 100644 --- a/cc_runtime.h +++ b/cc_runtime.h @@ -1,4 +1,4 @@ -#define DOOP(ppname) PUTBACK; PL_op = ppname(ARGS); SPAGAIN +#define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN #define PP_LIST(g) do { \ dMARK; \ @@ -43,7 +43,7 @@ JMPENV_PUSH(ret); \ switch (ret) { \ case 0: \ - PL_op = ppaddr(ARGS); \ + PL_op = ppaddr(aTHX); \ PL_retstack[PL_retstack_ix - 1] = Nullop; \ if (PL_op != nxt) CALLRUNOPS(); \ JMPENV_POP; \ diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index e21909ec75..d2aae923f0 100644 --- a/ext/B/B/CC.pm +++ b/ext/B/B/CC.pm @@ -149,7 +149,7 @@ sub init_pp { declare("SV", "**svp"); map { declare("SV", "*$_") } qw(sv src dst left right); declare("MAGIC", "*mg"); - $decl->add("static OP * $ppname (ARGSproto);"); + $decl->add("static OP * $ppname (pTHX);"); debug "init_pp: $ppname\n" if $debug_queue; } @@ -1000,7 +1000,7 @@ sub pp_entersub { write_back_stack(); my $sym = doop($op); runtime("while (PL_op != ($sym)->op_next && PL_op != (OP*)0 ){"); - runtime("PL_op = (*PL_op->op_ppaddr)(ARGS);"); + runtime("PL_op = (*PL_op->op_ppaddr)(aTHX);"); runtime("SPAGAIN;}"); $know_op = 0; invalidate_lexicals(REGISTER|TEMPORARY); @@ -1043,7 +1043,7 @@ sub pp_leavewrite { my $sym = doop($op); # XXX Is this the right way to distinguish between it returning # CvSTART(cv) (via doform) and pop_return()? - #runtime("if (PL_op) PL_op = (*PL_op->op_ppaddr)(ARGS);"); + #runtime("if (PL_op) PL_op = (*PL_op->op_ppaddr)(aTHX);"); runtime("SPAGAIN;"); $know_op = 0; invalidate_lexicals(REGISTER|TEMPORARY); @@ -1531,7 +1531,7 @@ XS(boot_$cmodule) SAVESPTR(PL_op); PL_curpad = AvARRAY($curpad_sym); PL_op = $start; - pp_main(ARGS); + pp_main(aTHX); FREETMPS; LEAVE; ST(0) = &PL_sv_yes; @@ -28,7 +28,7 @@ Perl_runops_standard(pTHX) { dTHR; - while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ) ; + while ( PL_op = (CALLOP->op_ppaddr)(aTHX) ) ; TAINT_NOT; return 0; @@ -53,7 +53,7 @@ Perl_runops_debug(pTHX) DEBUG_t(debop(PL_op)); DEBUG_P(debprof(PL_op)); } - } while ( PL_op = (CALLOP->op_ppaddr)(ARGS) ); + } while ( PL_op = (CALLOP->op_ppaddr)(aTHX) ); TAINT_NOT; return 0; |