summaryrefslogtreecommitdiff
path: root/gv.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-22 21:45:26 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-09-22 21:56:36 -0700
commit39ff6c37b02dc106ce36a529c4fdd80ac93c7ada (patch)
tree90ac730de63170892c809a04599ae81058c8c531 /gv.h
parent9d27f1291975183b2c21d24d15bedf5f24622faa (diff)
downloadperl-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.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/gv.h b/gv.h
index 2b29b6d8d2..cf096c3f87 100644
--- a/gv.h
+++ b/gv.h
@@ -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) */
};