make CC.pm use a distinct CCPP() macro rather than PP()

(suggested by Vishal Bhatia <vishalb@my-deja.com>)

p4raw-id: //depot/perl@3687

diff --git a/cc_runtime.h b/cc_runtime.h
index 110b106..dbc7475 100644 (file)
--- a/cc_runtime.h
+++ b/cc_runtime.h
@@ -1,4 +1,5 @@
 #define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN
+#define CCPP(s)   OP * s(pTHX)
 
 #define PP_LIST(g) do {                        \
        dMARK;                          \

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index 98c9318..f912c41 100644 (file)
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -124,7 +124,7 @@ sub output_runtime {
     print qq(#include "cc_runtime.h"\n);
     foreach $ppdata (@pp_list) {
        my ($name, $runtime, $declare) = @$ppdata;
-       print "\nstatic\nPP($name)\n{\n";
+       print "\nstatic\nCCPP($name)\n{\n";
        my ($type, $varlist, $line);
        while (($type, $varlist) = each %$declare) {
            print "\t$type ", join(", ", @$varlist), ";\n";