From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 17 Jul 1999 20:43:27 +0000 (+0000)
Subject: make CC.pm use a distinct CCPP() macro rather than PP()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a574d6e232d3c652ebdcf1bd17c739c4373b905;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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";