diff options
author | Karl Williamson <khw@cpan.org> | 2014-07-17 22:41:21 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-01-21 22:47:29 -0700 |
commit | 551cedb5d968fde8fe046c53d838e2443711be06 (patch) | |
tree | 0f9706da720b386ed4dd4808ea19068c3c67da8f /regcomp.c | |
parent | f5f6ef08c1abd79ad7eef5ae34b8fcf92c4919fa (diff) | |
download | perl-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.c | 21 |
1 files changed, 0 insertions, 21 deletions
@@ -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) { |