summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-06-12 09:27:06 +0200
committerNicholas Clark <nick@ccl4.org>2011-06-12 09:27:06 +0200
commit8978b4ac1f6bf2c1c69a99d1d1db68ebdfcac193 (patch)
tree9bfd3211718fb10e6ff1c668420316419314cfc8 /perl.h
parent9dcb836830f7b4b182872b1181fb344b559c1d2e (diff)
downloadperl-8978b4ac1f6bf2c1c69a99d1d1db68ebdfcac193.tar.gz
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.
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl.h b/perl.h
index 8963f5084d..fceb220df0 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;
};