In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/8978b4ac1f6bf2c1c69a99d1d1db68ebdfcac193?hp=9dcb836830f7b4b182872b1181fb344b559c1d2e>

- Log -----------------------------------------------------------------
commit 8978b4ac1f6bf2c1c69a99d1d1db68ebdfcac193
Author: Nicholas Clark <[email protected]>
Date:   Sun Jun 12 09:27:06 2011 +0200

    Shrink struct am_table.
    
    Two members, flags and fallback, were using integer types considerably 
larger
    than the range of values that they needed to store.
-----------------------------------------------------------------------

Summary of changes:
 perl.h |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/perl.h b/perl.h
index 8963f50..fceb220 100644
--- a/perl.h
+++ b/perl.h
@@ -5037,14 +5037,17 @@ EXTCONST U8 PL_magic_data[256];
 END_EXTERN_C
 
 struct am_table {
-  U32 flags;
+  U8 flags;
+  U8 fallback;
+  U16 spare;
   U32 was_ok_sub;
   long was_ok_am;
-  long fallback;
   CV* table[NofAMmeth];
 };
 struct am_table_short {
-  U32 flags;
+  U8 flags;
+  U8 fallback;
+  U16 spare;
   U32 was_ok_sub;
   long was_ok_am;
 };

--
Perl5 Master Repository

Reply via email to