summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-07-17 22:41:21 -0600
committerKarl Williamson <khw@cpan.org>2015-01-21 22:47:29 -0700
commit551cedb5d968fde8fe046c53d838e2443711be06 (patch)
tree0f9706da720b386ed4dd4808ea19068c3c67da8f /regcomp.c
parentf5f6ef08c1abd79ad7eef5ae34b8fcf92c4919fa (diff)
downloadperl-551cedb5d968fde8fe046c53d838e2443711be06.tar.gz
Move inline fcn to #included file
Future commits will want this function to be able to be used in more than one core file.
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c21
1 files changed, 0 insertions, 21 deletions
diff --git a/regcomp.c b/regcomp.c
index f38ed9c19c..9c1efc6d99 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8009,27 +8009,6 @@ S__invlist_array_init(SV* const invlist, const bool will_have_0)
return zero_addr + *offset;
}
-PERL_STATIC_INLINE UV*
-S_invlist_array(SV* const invlist)
-{
- /* Returns the pointer to the inversion list's array. Every time the
- * length changes, this needs to be called in case malloc or realloc moved
- * it */
-
- PERL_ARGS_ASSERT_INVLIST_ARRAY;
-
- /* Must not be empty. If these fail, you probably didn't check for <len>
- * being non-zero before trying to get the array */
- assert(_invlist_len(invlist));
-
- /* The very first element always contains zero, The array begins either
- * there, or if the inversion list is offset, at the element after it.
- * The offset header field determines which; it contains 0 or 1 to indicate
- * how much additionally to add */
- assert(0 == *(SvPVX(invlist)));
- return ((UV *) SvPVX(invlist) + *get_invlist_offset_addr(invlist));
-}
-
PERL_STATIC_INLINE void
S_invlist_set_len(pTHX_ SV* const invlist, const UV len, const bool offset)
{