This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge the implementation of B::COP::{io,warnings} using ALIAS.
authorNicholas Clark <nick@ccl4.org>
Mon, 8 Nov 2010 09:31:39 +0000 (09:31 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 8 Nov 2010 09:31:39 +0000 (09:31 +0000)
On this platform, this reduces the object size by about .5K.

ext/B/B.xs

index cfc0517..06d89b1 100644 (file)
@@ -1275,22 +1275,13 @@ COP_arybase(o)
 void
 COP_warnings(o)
        B::COP  o
 void
 COP_warnings(o)
        B::COP  o
-       PPCODE:
-#if PERL_VERSION >= 9
-       ST(0) = make_warnings_object(aTHX_ o);
-#else
-       ST(0) = make_sv_object(aTHX_ NULL, o->cop_warnings);
-#endif
-       XSRETURN(1);
-
-void
-COP_io(o)
-       B::COP  o
-       PPCODE:
+    ALIAS:
+       io = 1
+    PPCODE:
 #if PERL_VERSION >= 9
 #if PERL_VERSION >= 9
-       ST(0) = make_cop_io_object(aTHX_ o);
+       ST(0) = ix ? make_cop_io_object(aTHX_ o) : make_warnings_object(aTHX_ o);
 #else
 #else
-       ST(0) = make_sv_object(aTHX_ NULL, o->cop_io);
+       ST(0) = make_sv_object(aTHX_ NULL, ix ? o->cop_io : o->cop_warnings);
 #endif
        XSRETURN(1);
 
 #endif
        XSRETURN(1);