diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-22 21:45:26 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-22 21:56:36 -0700 |
commit | 39ff6c37b02dc106ce36a529c4fdd80ac93c7ada (patch) | |
tree | 90ac730de63170892c809a04599ae81058c8c531 /gv.h | |
parent | 9d27f1291975183b2c21d24d15bedf5f24622faa (diff) | |
download | perl-39ff6c37b02dc106ce36a529c4fdd80ac93c7ada.tar.gz |
gv.h: Make gp_line and gp_flags into a bitfield
This reduces the allocated size on Windows, where an
extra header is added to what gets allocated. See
<https://rt.perl.org/Ticket/Display.html?id=15667#txn-1309657>.
Diffstat (limited to 'gv.h')
-rw-r--r-- | gv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -18,8 +18,8 @@ struct gp { AV * gp_av; /* array value */ CV * gp_form; /* format value */ GV * gp_egv; /* effective gv, if *glob */ - line_t gp_line; /* line first declared at (for -w) */ - U32 gp_flags; + U32 gp_line:31; /* line first declared at (for -w) */ + U32 gp_flags:1; HEK * gp_file_hek; /* file first declared in (for -w) */ }; |