diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-04-10 14:49:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-04-10 14:49:31 +0000 |
| commit | c4bd3ae5119ffa374bc2a939fae6f0e624cc7804 (patch) | |
| tree | 07d2f4eb851148631155acca8aa7b41177233b13 /embed.fnc | |
| parent | 1cdf7faf9fb9e7feb64bb63a4448c8361e406417 (diff) | |
| download | perl-c4bd3ae5119ffa374bc2a939fae6f0e624cc7804.tar.gz | |
S_forget_pmop() only needs a flags argument for the ithreads case,
because PmopSTASH_free() is a no-op in an unthreaded perl.
p4raw-id: //depot/perl@30891
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1195,7 +1195,11 @@ pR |OP* |ck_trunc |NN OP *o pR |OP* |ck_unpack |NN OP *o sRn |bool |is_handle_constructor|NN const OP *o|I32 numargs sR |I32 |is_list_assignment|NULLOK const OP *o -s |void |forget_pmop |NN PMOP *const o|U32 flags +# ifdef USE_ITHREADS +so |void |forget_pmop |NN PMOP *const o|U32 flags +# else +so |void |forget_pmop |NN PMOP *const o +# endif s |void |find_and_forget_pmops |NN OP *o s |void |cop_free |NN COP *cop s |OP* |modkids |NULLOK OP *o|I32 type |