[Guile-commits] 02/02: Remove unused internal i18n functions

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit d84f25c2713f8b4bf5fba7d17e0284849d82c4ca
Author: Andy Wingo <address@hidden>
Date:   Wed Jun 22 16:46:08 2016 +0200

    Remove unused internal i18n functions
    
    * libguile/i18n.c (str_upcase, str_downcase, str_upcase_l)
      (str_downcase_l): Remove unused inline functions.  Based on a patch by
      Pedro Aguilar <address@hidden>.  Fixes #19172.
---
 libguile/i18n.c |   38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/libguile/i18n.c b/libguile/i18n.c
index 17e9eca..84c6bfc 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -834,44 +834,6 @@ compare_u32_strings_ci (SCM s1, SCM s2, SCM locale, const 
char *func_name)
 }
 #undef FUNC_NAME
 
-/* Store into DST an upper-case version of SRC.  */
-static inline void
-str_upcase (register char *dst, register const char *src)
-{
-  for (; *src != '\0'; src++, dst++)
-    *dst = toupper ((int) *src);
-  *dst = '\0';
-}
-
-static inline void
-str_downcase (register char *dst, register const char *src)
-{
-  for (; *src != '\0'; src++, dst++)
-    *dst = tolower ((int) *src);
-  *dst = '\0';
-}
-
-#ifdef USE_GNU_LOCALE_API
-static inline void
-str_upcase_l (register char *dst, register const char *src,
-             scm_t_locale locale)
-{
-  for (; *src != '\0'; src++, dst++)
-    *dst = toupper_l (*src, locale);
-  *dst = '\0';
-}
-
-static inline void
-str_downcase_l (register char *dst, register const char *src,
-               scm_t_locale locale)
-{
-  for (; *src != '\0'; src++, dst++)
-    *dst = tolower_l (*src, locale);
-  *dst = '\0';
-}
-#endif
-
-
 SCM_DEFINE (scm_string_locale_lt, "string-locale<?", 2, 1, 0,
            (SCM s1, SCM s2, SCM locale),
            "Compare strings @var{s1} and @var{s2} in a locale-dependent way."