This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix small nits
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 10 Jun 1999 08:38:00 +0000 (08:38 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 10 Jun 1999 08:38:00 +0000 (08:38 +0000)
p4raw-id: //depot/perl@3526

cc_runtime.h
ext/B/B/CC.pm
run.c

index bb9b7dc..bb0e07a 100644 (file)
@@ -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;                         \
index e21909e..d2aae92 100644 (file)
@@ -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;
diff --git a/run.c b/run.c
index 9d3189d..0d9f7cf 100644 (file)
--- a/run.c
+++ b/run.c
@@ -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;