From 31a3f62b2ac970a35132adc90a3ff50651e70b8f Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 16 Sep 2006 17:59:17 +0000 Subject: [PATCH] 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 --- cop.h | 4 ++-- thrdvar.h | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cop.h b/cop.h index 5bc36bd..a630b64 100644 --- a/cop.h +++ b/cop.h @@ -358,8 +358,8 @@ struct block_sub { /* eval context */ struct block_eval { - I32 old_in_eval; - I32 old_op_type; + U8 old_in_eval; + U16 old_op_type; SV * old_namesv; OP * old_eval_root; SV * cur_text; diff --git a/thrdvar.h b/thrdvar.h index 1b68a87..581d60f 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -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? */ -- 2.7.4