diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2012-10-31 02:13:42 -0400 |
|---|---|---|
| committer | Jan Dubois <jand@activestate.com> | 2012-11-08 16:54:55 -0800 |
| commit | 9399a70c62d6e4622406f3db44ff4235a362d1a0 (patch) | |
| tree | 89e521e112a42a29252880a94a2b8c52a3c21a4e /perl.h | |
| parent | 073dd0357a846739ff3ae9a14379de2302d5e877 (diff) | |
| download | perl-9399a70c62d6e4622406f3db44ff4235a362d1a0.tar.gz | |
create aTHXa, some unused dTHXs removed in /win32/*
dTHXes that were unused, or because Newx/Safefree were the only things
called were removed. In some places the dTHX turned into dTHXa and aTHXa
so the context is not fetched until it is actually used
(locality/frees a C stack slot or frees a non-volatile register). Also see
http://www.nntp.perl.org/group/perl.perl5.porters/2012/10/msg194414.html
and http://www.nntp.perl.org/group/perl.perl5.porters/2012/10/msg194861.html
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -172,6 +172,7 @@ # define tTHX PerlInterpreter* # define pTHX register tTHX my_perl PERL_UNUSED_DECL # define aTHX my_perl +# define aTHXa(a) aTHX = (tTHX)a # ifdef PERL_GLOBAL_STRUCT # define dTHXa(a) dVAR; pTHX = (tTHX)a # else @@ -364,6 +365,7 @@ # define pTHX_ # define aTHX # define aTHX_ +# define aTHXa(a) NOOP # define dTHXa(a) dNOOP # define dTHX dNOOP # define pTHX_1 1 |