diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-13 14:37:10 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2023-02-13 16:01:46 +0000 |
commit | e7faea54386fae0e542ca8bfe43a8c5444c69114 (patch) | |
tree | 76b7c8f1a0db1bad966616b5a14d55491e5b5885 /pad.h | |
parent | 45826d9c097ca6244814faff2f85d6435067d27a (diff) | |
download | perl-e7faea54386fae0e542ca8bfe43a8c5444c69114.tar.gz |
Provide padname_dup_inc() and padnamelist_dup_inc()
Diffstat (limited to 'pad.h')
-rw-r--r-- | pad.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -330,6 +330,7 @@ Restore the old pad saved into the local variable C<opad> by C<PAD_SAVE_LOCAL()> #define PadnamelistMAX(pnl) (pnl)->xpadnl_fill #define PadnamelistMAXNAMED(pnl) (pnl)->xpadnl_max_named #define PadnamelistREFCNT(pnl) (pnl)->xpadnl_refcnt +#define PadnamelistREFCNT_inc(pnl) Perl_padnamelist_refcnt_inc(pnl) #define PadnamelistREFCNT_dec(pnl) Perl_padnamelist_free(aTHX_ pnl) #define PadARRAY(pad) AvARRAY(pad) @@ -387,6 +388,11 @@ Restore the old pad saved into the local variable C<opad> by C<PAD_SAVE_LOCAL()> # define PADNAMEt_OUR PADNAMEf_OUR #endif +#ifdef USE_ITHREADS +# define padnamelist_dup_inc(pnl,param) PadnamelistREFCNT_inc(padnamelist_dup(pnl,param)) +# define padname_dup_inc(pn,param) PadnameREFCNT_inc(padname_dup(pn,param)) +#endif + #ifdef DEBUGGING # define PAD_SV(po) pad_sv(po) # define PAD_SETSV(po,sv) pad_setsv(po,sv) |