summaryrefslogtreecommitdiff
path: root/libguile/i18n.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-09-09 22:03:42 +0200
committerLudovic Courtès <ludo@gnu.org>2008-09-09 22:03:42 +0200
commit53f4876abcebf3f05d2a88bba3a898ddcda25a74 (patch)
tree7413b4f4ab565e4784f26ee347e2a1ff46ea467e /libguile/i18n.c
parent69f23174d313650ca8fb0f69ede45c48d7a26b05 (diff)
parent242ebeaf083cc43a9df18ac4436178d9b3ff66e5 (diff)
downloadguile-53f4876abcebf3f05d2a88bba3a898ddcda25a74.tar.gz
Merge branch 'master' into strftime-gnulib
Conflicts: libguile/ChangeLog srfi/ChangeLog test-suite/ChangeLog
Diffstat (limited to 'libguile/i18n.c')
-rw-r--r--libguile/i18n.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/i18n.c b/libguile/i18n.c
index 43381f4ed..5d2d976fd 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006, 2007 Free Software Foundation, Inc.
+/* Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@@ -769,7 +769,7 @@ static inline void
str_upcase (register char *dst, register const char *src)
{
for (; *src != '\0'; src++, dst++)
- *dst = toupper (*src);
+ *dst = toupper ((int) *src);
*dst = '\0';
}
@@ -777,7 +777,7 @@ static inline void
str_downcase (register char *dst, register const char *src)
{
for (; *src != '\0'; src++, dst++)
- *dst = tolower (*src);
+ *dst = tolower ((int) *src);
*dst = '\0';
}
@@ -1120,13 +1120,13 @@ SCM_DEFINE (scm_char_locale_downcase, "char-locale-downcase", 1, 1, 0,
if (c_locale != NULL)
{
#ifdef USE_GNU_LOCALE_API
- c_result = tolower_l (c_chr, c_locale);
+ c_result = tolower_l ((int) c_chr, c_locale);
#else
- RUN_IN_LOCALE_SECTION (c_locale, c_result = tolower (c_chr));
+ RUN_IN_LOCALE_SECTION (c_locale, c_result = tolower ((int) c_chr));
#endif
}
else
- c_result = tolower (c_chr);
+ c_result = tolower ((int) c_chr);
return (SCM_MAKE_CHAR (c_result));
}
@@ -1150,13 +1150,13 @@ SCM_DEFINE (scm_char_locale_upcase, "char-locale-upcase", 1, 1, 0,
if (c_locale != NULL)
{
#ifdef USE_GNU_LOCALE_API
- c_result = toupper_l (c_chr, c_locale);
+ c_result = toupper_l ((int) c_chr, c_locale);
#else
- RUN_IN_LOCALE_SECTION (c_locale, c_result = toupper (c_chr));
+ RUN_IN_LOCALE_SECTION (c_locale, c_result = toupper ((int) c_chr));
#endif
}
else
- c_result = toupper (c_chr);
+ c_result = toupper ((int) c_chr);
return (SCM_MAKE_CHAR (c_result));
}