diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-22 22:30:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-22 22:30:05 +0000 |
| commit | 910e06714ae57f4d3d804265c3d148726c7a8a2b (patch) | |
| tree | 4b7a38ad29de464337a018aefc58c049c2040c9c /intrpvar.h | |
| parent | c2f617693870df2d42e43b7a3ccc75d8f071f4ba (diff) | |
| download | perl-910e06714ae57f4d3d804265c3d148726c7a8a2b.tar.gz | |
As best as I (and my minion, gcc -Os) can tell, PL_curcop and
PL_in_eval do not need to be volatile. This improves the generated code
measurably - for example toke.o is 1.5% smaller. Every little helps.
p4raw-id: //depot/perl@33355
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/intrpvar.h b/intrpvar.h index 06014efc23..4a62779288 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -124,7 +124,7 @@ PERLVAR(Idefstash, HV *) /* main symbol table */ PERLVAR(Icurstash, HV *) /* symbol table for current package */ PERLVAR(Irestartop, OP *) /* propagating an error from croak? */ -PERLVAR(Icurcop, COP * VOL) +PERLVAR(Icurcop, COP *) PERLVAR(Icurstack, AV *) /* THE STACK */ PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */ PERLVAR(Imainstack, AV *) /* the stack when nothing funny is @@ -189,7 +189,7 @@ PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */ PERLVAR(Icolorset, bool) /* from regcomp.c */ PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things down? */ -PERLVAR(Iin_eval, VOL U8) /* trap "fatal" errors? */ +PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */ PERLVAR(Itainted, bool) /* using variables controlled by $< */ /* This value may be set when embedding for full cleanup */ |