This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use ASSUME in op.c:newBINOP
authorFather Chrysostomos <sprout@cpan.org>
Sun, 19 Jan 2014 01:07:33 +0000 (17:07 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 19 Jan 2014 03:11:58 +0000 (19:11 -0800)
This causes op.o to drop by 56 bytes for me under clang.

op.c

diff --git a/op.c b/op.c
index bb58bf6..eadcc2e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4242,7 +4242,7 @@ Perl_newBINOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
     dVAR;
     BINOP *binop;
 
-    assert((PL_opargs[type] & OA_CLASS_MASK) == OA_BINOP
+    ASSUME((PL_opargs[type] & OA_CLASS_MASK) == OA_BINOP
        || type == OP_SASSIGN || type == OP_NULL );
 
     NewOp(1101, binop, 1, BINOP);