From 0a574d6e232d3c652ebdcf1bd17c739c4373b905 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 17 Jul 1999 20:43:27 +0000 Subject: [PATCH] make CC.pm use a distinct CCPP() macro rather than PP() (suggested by Vishal Bhatia ) p4raw-id: //depot/perl@3687 --- cc_runtime.h | 1 + ext/B/B/CC.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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"; -- 2.7.4