This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In B.xs, move conditionally defined PMOP macros to their points of use.
authorNicholas Clark <nick@ccl4.org>
Fri, 29 Oct 2010 18:55:49 +0000 (19:55 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 29 Oct 2010 18:58:45 +0000 (19:58 +0100)
Remove the definition for PMOP_pmflags, now unused.

ext/B/B.xs

index ab8bca0..bdbaa75 100644 (file)
@@ -1007,14 +1007,7 @@ LISTOP_children(o)
            i++;
        RETVAL = i;
     OUTPUT:
-        RETVAL
-
-#ifdef USE_ITHREADS
-#define PMOP_pmstashpv(o)      PmopSTASHPV(o);
-#else
-#define PMOP_pmstash(o)                PmopSTASH(o);
-#endif
-#define PMOP_pmflags(o)                o->op_pmflags
+       RETVAL
 
 MODULE = B     PACKAGE = B::PMOP               PREFIX = PMOP_
 
@@ -1067,12 +1060,14 @@ PMOP_pmreplroot(o)
 #endif
 
 #ifdef USE_ITHREADS
+#define PMOP_pmstashpv(o)      PmopSTASHPV(o);
 
 char*
 PMOP_pmstashpv(o)
        B::PMOP         o
 
 #else
+#define PMOP_pmstash(o)                PmopSTASH(o);
 
 B::HV
 PMOP_pmstash(o)