This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't set SvPADTMP() on PADGV's
authorDavid Mitchell <davem@iabyn.com>
Thu, 27 Feb 2014 15:30:26 +0000 (15:30 +0000)
committerDavid Mitchell <davem@iabyn.com>
Thu, 27 Feb 2014 16:16:18 +0000 (16:16 +0000)
commit60779a30f61297ad86e175f686b7bc697c7b8e51
treee1e560a9e7820e720fd99ef8f3d3c8ba46880dc6
parent89a18b40609cfdfc4af7414a628064c743b836bd
don't set SvPADTMP() on PADGV's

Under threaded builds, GVs for OPs are stored in the pad rather than
being directly attached to the op. For some reason, all such GV's were
getting the SvPADTMP flag set. There seems to be be no good reason for
this, and after skipping setting the flag, all tests still pass.

The advantage of not setting this flag is that there are quite a few
hot places in the code that do

    if (SvPADTMP(sv) && !IS_PADGV(sv)) {
        ...

I've replaced them all with

    if (SvPADTMP(sv)) {
        assert(!IS_PADGV(sv));
        ...

Since the IS_PADGV() macro expands to something quite heavyweight, this is
quite a saving: for example this commit reduces the size of pp_entersub by
111 bytes.
op.c
pp.c
pp_ctl.c
pp_hot.c
pp_sort.c
regexec.c