diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-01 10:36:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-01 10:36:44 +0000 |
| commit | 601cee3b44d5dc2533c9ca9da3e2820c4464c2af (patch) | |
| tree | 32dc6fb6c508ef5b76316f454e0fb01b304c2539 /scope.h | |
| parent | 7623d4262995987d3de73f116de43554c077f9c7 (diff) | |
| download | perl-601cee3b44d5dc2533c9ca9da3e2820c4464c2af.tar.gz | |
For SAVEHINTS(), re-order the savestack to be (?:PTR, )? INT, PTR.
This brings it to the same order as save_aelem() or save_pushi32ptr().
p4raw-id: //depot/perl@34964
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -159,18 +159,18 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define SAVEHINTS() \ STMT_START { \ - SSCHECK(4); \ - if (PL_hints & HINT_LOCALIZE_HH) { \ - SSPUSHPTR(GvHV(PL_hintgv)); \ - GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \ - } \ if (PL_compiling.cop_hints_hash) { \ HINTS_REFCNT_LOCK; \ PL_compiling.cop_hints_hash->refcounted_he_refcnt++; \ HINTS_REFCNT_UNLOCK; \ } \ - SSPUSHPTR(PL_compiling.cop_hints_hash); \ + SSCHECK(4); \ + if (PL_hints & HINT_LOCALIZE_HH) { \ + SSPUSHPTR(GvHV(PL_hintgv)); \ + GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \ + } \ SSPUSHINT(PL_hints); \ + SSPUSHPTR(PL_compiling.cop_hints_hash); \ SSPUSHINT(SAVEt_HINTS); \ } STMT_END |