From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 29 May 2011 15:54:42 +0000 (-0600)
Subject: regcomp.c: Move a function around
X-Git-Tag: accepted/trunk/20130322.191538~3467^2~25
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c56a880ba85aad6b8ba68de20153733c725a5c9c;p=platform%2Fupstream%2Fperl.git

regcomp.c: Move a function around

This is so functions that operate on the same data are adjacent
---

diff --git a/regcomp.c b/regcomp.c
index 8635a10..31dd6db 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5878,6 +5878,17 @@ S_invlist_len(pTHX_ SV* const invlist)
     return *get_invlist_len_addr(invlist);
 }
 
+PERL_STATIC_INLINE void
+S_invlist_set_len(pTHX_ SV* const invlist, const UV len)
+{
+    /* Sets the current number of elements stored in the inversion list */
+
+    PERL_ARGS_ASSERT_INVLIST_SET_LEN;
+
+    SvCUR_set(invlist, TO_INTERNAL_SIZE(len));
+    *get_invlist_len_addr(invlist) = len;
+}
+
 PERL_STATIC_INLINE UV
 S_invlist_max(pTHX_ SV* const invlist)
 {
@@ -5889,16 +5900,6 @@ S_invlist_max(pTHX_ SV* const invlist)
     return FROM_INTERNAL_SIZE(SvLEN(invlist));
 }
 
-PERL_STATIC_INLINE void
-S_invlist_set_len(pTHX_ SV* const invlist, const UV len)
-{
-    /* Sets the current number of elements stored in the inversion list */
-
-    PERL_ARGS_ASSERT_INVLIST_SET_LEN;
-
-    SvCUR_set(invlist, TO_INTERNAL_SIZE(len));
-    *get_invlist_len_addr(invlist) = len;
-}
 
 #ifndef PERL_IN_XSUB_RE
 SV*