summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-05-28 12:05:54 -0600
committerKarl Williamson <public@khwilliamson.com>2011-07-03 14:05:45 -0600
commit97bb10756102d09d001fbe89b2900b64476199dd (patch)
treeac2571a8c11cf468da8668c990f172f27a335ac2 /regcomp.c
parent198a51c423625d3171d450af5573095cd2c99964 (diff)
downloadperl-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.c16
1 files changed, 0 insertions, 16 deletions
diff --git a/regcomp.c b/regcomp.c
index d2d6e55f60..8c23bd8ac8 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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)