diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-05-28 12:05:54 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-07-03 14:05:45 -0600 |
commit | 97bb10756102d09d001fbe89b2900b64476199dd (patch) | |
tree | ac2571a8c11cf468da8668c990f172f27a335ac2 /regcomp.c | |
parent | 198a51c423625d3171d450af5573095cd2c99964 (diff) | |
download | perl-97bb10756102d09d001fbe89b2900b64476199dd.tar.gz |
regcomp.c: Rmv no longer called function
This hasn't been used since 626725768b7b17463e9ec7b92e2da37105036252
Author: Nicholas Clark <nick@ccl4.org>
Date: Thu May 26 22:29:40 2011 -0600
regcomp.c: Fix memory leak regression
here was a remaining memory leak in the new inversion lists data
structure under threading. This solves it by changing the
implementation to use a SVpPV instead of doing our own memory
management. Then the already existing code for handling SVs
returns the memory when done.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -5879,22 +5879,6 @@ S_invlist_set_len(pTHX_ SV* const invlist, const UV len) SvCUR_set(invlist, len * sizeof(UV)); } -PERL_STATIC_INLINE void -S_invlist_set_max(pTHX_ SV* const invlist, const UV max) -{ - - /* Sets the maximum number of elements storable in the inversion list - * without having to realloc() */ - - PERL_ARGS_ASSERT_INVLIST_SET_MAX; - - if (max < invlist_len(invlist)) { - Perl_croak(aTHX_ "panic: Can't make max size '%"UVuf"' less than current length %"UVuf" in inversion list", invlist_max(invlist), invlist_len(invlist)); - } - - SvLEN_set(invlist, max * sizeof(UV)); -} - #ifndef PERL_IN_XSUB_RE SV* Perl__new_invlist(pTHX_ IV initial_size) |