diff options
author | Zefram <zefram@fysh.org> | 2010-10-28 22:01:11 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-28 17:51:44 -0700 |
commit | 3987a177937fb7957caa003cdf4c6dee1bb97f71 (patch) | |
tree | ad6d7e97944a83eb44ed9b79043c206c3dd1c585 /scope.h | |
parent | 691135482762ce9dc9654f3848979dfe881cceb5 (diff) | |
download | perl-3987a177937fb7957caa003cdf4c6dee1bb97f71.tar.gz |
add SAVEFREECOPHH()
Add the facility for the save stack to free (decrement the refcount of)
a COPHH*.
Diffstat (limited to 'scope.h')
-rw-r--r-- | scope.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -58,6 +58,7 @@ #define SAVEt_I32_SMALL 47 #define SAVEt_INT_SMALL 48 #define SAVEt_GVSV 49 +#define SAVEt_FREECOPHH 50 #define SAVEf_SETMAGIC 1 #define SAVEf_KEEPOLDELEM 2 @@ -184,6 +185,7 @@ scope has the given name. Name must be a literal string. #define SAVEGENERICPV(s) save_generic_pvref((char**)&(s)) #define SAVESHAREDPV(s) save_shared_pvref((char**)&(s)) #define SAVESETSVFLAGS(sv,mask,val) save_set_svflags(sv,mask,val) +#define SAVEFREECOPHH(h) save_pushptr((void *)(h), SAVEt_FREECOPHH) #define SAVEDELETE(h,k,l) \ save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l)) #define SAVEHDELETE(h,s) \ |