diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-09-16 17:59:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-09-16 17:59:17 +0000 |
| commit | 31a3f62b2ac970a35132adc90a3ff50651e70b8f (patch) | |
| tree | 192405e1c0a0a8244c4e9d3cc96670c10767755b /thrdvar.h | |
| parent | cc8d50a7c6a04d7a7e152c0e2861bc370cc6c9e6 (diff) | |
| download | perl-31a3f62b2ac970a35132adc90a3ff50651e70b8f.tar.gz | |
Shrink the interpreter structure by 4 bytes (usually) by making
PL_in_eval a U8 and PL_delaymagic a U16. (And corresponding changes
in struct block_eval in cop.h to avoid any possible compiler warnings)
p4raw-id: //depot/perl@28855
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -118,8 +118,8 @@ PERLVAR(Tcurstash, HV *) /* symbol table for current package */ PERLVAR(Trestartop, OP *) /* propagating an error from croak? */ PERLVARI(Tcurcop, COP * VOL, &PL_compiling) -PERLVAR(Tin_eval, VOL int) /* trap "fatal" errors? */ -PERLVAR(Tdelaymagic, int) /* ($<,$>) = ... */ +PERLVAR(Tin_eval, VOL U8) /* trap "fatal" errors? */ +PERLVAR(Tdelaymagic, U16) /* ($<,$>) = ... */ PERLVARI(Tdirty, bool, FALSE) /* in the middle of tearing things down? */ PERLVAR(Tlocalizing, int) /* are we processing a local() list? */ |