This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo in op.h
authorAaron Crane <arc@cpan.org>
Tue, 8 Jul 2014 23:33:47 +0000 (00:33 +0100)
committerAaron Crane <arc@cpan.org>
Tue, 8 Jul 2014 23:33:47 +0000 (00:33 +0100)
This caused all OP structures to be larger than intended; for example, it
made `struct op` 48 bytes rather than 40 on Mac OS X x86-64.

op.h

diff --git a/op.h b/op.h
index 3b8eb17..9f94caf 100644 (file)
--- a/op.h
+++ b/op.h
@@ -52,7 +52,7 @@ typedef PERL_BITFIELD16 Optype;
     PERL_BITFIELD16 op_savefree:1;     \
     PERL_BITFIELD16 op_static:1;       \
     PERL_BITFIELD16 op_folded:1;       \
-    PERL_BITFIELD16 op_lastsib;                \
+    PERL_BITFIELD16 op_lastsib:1;       \
     PERL_BITFIELD16 op_spare:1;                \
     U8         op_flags;               \
     U8         op_private;