diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-27 10:41:41 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:19 +0000 |
| commit | 2ef9a108812a6ae3c346882b7338742e392deb89 (patch) | |
| tree | 7a6c2003ff6f9a17142adf21a1782e102ae112d8 /scope.h | |
| parent | 490576d1e8ab582703d23e8ba95d5e4a881c04dc (diff) | |
| download | perl-2ef9a108812a6ae3c346882b7338742e392deb89.tar.gz | |
add SAVEt_TMPSFLOOR save type and Perl_savetmps()
By making SAVETMPS have its own dedicated save type, it avoids having to
push the address of PL_tmps_floor onto the save stack each time.
By also giving it a dedicated save function, the function can do
the PL_tmpsfloor = PL_tmps_ix step too, making the binary slightly more
compact.
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -21,7 +21,7 @@ /* one arg */ -/*** SPARE 4 ***/ +#define SAVEt_TMPSFLOOR 4 #define SAVEt_BOOL 5 #define SAVEt_COMPILE_WARNINGS 6 #define SAVEt_COMPPAD 7 @@ -188,8 +188,8 @@ scope has the given name. Name must be a literal string. =cut */ -#define SAVETMPS Perl_save_strlen(aTHX_ (STRLEN *)&PL_tmps_floor), \ - PL_tmps_floor = PL_tmps_ix +#define SAVETMPS Perl_savetmps(aTHX) + #define FREETMPS if (PL_tmps_ix > PL_tmps_floor) free_tmps() #ifdef DEBUGGING |