Merging pp_bit_or and pp_bit_xor shrinks the object code by about .7K.

The overloading tests are not free.

p4raw-id: //depot/perl@27126

1 files changed, 5 insertions, 1 deletions

diff --git a/pp.h b/pp.h
index c4a700e221..5c2fbc8080 100644
--- a/pp.h
+++ b/pp.h
@@ -414,7 +414,11 @@ and C<PUSHu>.
 #define tryAMAGICbinW(meth,assign,set) \
     tryAMAGICbinW_var(CAT2(meth,_amg),assign,set)
 
-#define tryAMAGICbin(meth,assign) tryAMAGICbinW(meth,assign,SETsv)
+#define tryAMAGICbin_var(meth_enum,assign) \
+		tryAMAGICbinW_var(meth_enum,assign,SETsv)
+#define tryAMAGICbin(meth,assign) \
+		tryAMAGICbin_var(CAT2(meth,_amg),assign)
+
 #define tryAMAGICbinSET(meth,assign) tryAMAGICbinW(meth,assign,SETs)
 
 #define tryAMAGICbinSET_var(meth_enum,assign) \