Move regcurly to regcomp.c (from inline.h)

This function is called only at compile time; experience has shown that
compile-time operations are not time-critical.  And future commits will
lengthen it, making it not practically inlinable anyway.

1 files changed, 0 insertions, 30 deletions

diff --git a/inline.h b/inline.h
index 96f706ed8b..5ada1555d1 100644
--- a/inline.h
+++ b/inline.h
@@ -1994,36 +1994,6 @@ S_lossless_NV_to_IV(const NV nv, IV *ivp)
 
 #endif
 
-/* ------------------ regcomp.c, toke.c ------------ */
-
-#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C)
-
-/*
- - regcurly - a little FSA that accepts {\d+,?\d*}
-    Pulled from reg.c.
- */
-PERL_STATIC_INLINE bool
-S_regcurly(const char *s)
-{
-    PERL_ARGS_ASSERT_REGCURLY;
-
-    if (*s++ != '{')
-	return FALSE;
-    if (!isDIGIT(*s))
-	return FALSE;
-    while (isDIGIT(*s))
-	s++;
-    if (*s == ',') {
-	s++;
-	while (isDIGIT(*s))
-	    s++;
-    }
-
-    return *s == '}';
-}
-
-#endif
-
 /* ------------------ pp.c, regcomp.c, toke.c, universal.c ------------ */
 
 #if defined(PERL_IN_PP_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_UNIVERSAL_C)