Merge the implementation of B::COP::{file,stashpv} using ALIAS.

On this platform, this reduces the object size by about .5K, for an unthreaded
build.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 9dd6d06..6f9f9c8 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1254,16 +1254,16 @@ COP_filegv(o)
        B::COP  o
 
 #else
-#define COP_stashpv(o) CopSTASHPV(o)
-#define COP_file(o)    CopFILE(o)
 
 char *
 COP_stashpv(o)
        B::COP  o
-
-char *
-COP_file(o)
-       B::COP  o
+    ALIAS:
+       file = 1
+    CODE:
+       RETVAL = ix ? CopFILE(o) : CopSTASHPV(o);
+    OUTPUT:
+       RETVAL
 
 #endif