PDCLIB-1 (PDCLIB-3) Make wide character classification/collation information locale...

[pdclib] / functions / wctype / towupper.c

diff --git a/functions/wctype/towupper.c b/functions/wctype/towupper.c
index faac657501cac24ec24b262673befcdb97f5713f..7b96a6100b964b322105e0617f634ee7664d5bc6 100644 (file)
--- a/functions/wctype/towupper.c
+++ b/functions/wctype/towupper.c
@@ -8,10 +8,10 @@
 #ifndef REGTEST\r
 #include <_PDCLIB_locale.h>\r
 \r
-wint_t towupper( wint_t wc )\r
+wint_t _PDCLIB_towupper_l( wint_t wc, locale_t l )\r
 {\r
     wint_t uwc = _PDCLIB_unpackwint( wc );\r
-    _PDCLIB_wcinfo_t *info = _PDCLIB_wcgetinfo( uwc );\r
+    _PDCLIB_wcinfo_t *info = _PDCLIB_wcgetinfo( l, uwc );\r
     if( info && info->upper != uwc ) \r
     {\r
         wc = info->upper;\r
@@ -19,6 +19,11 @@ wint_t towupper( wint_t wc )
     return wc;\r
 }\r
 \r
+wint_t towupper( wint_t wc )\r
+{\r
+    return _PDCLIB_towupper_l( wc, _PDCLIB_threadlocale() );\r
+}\r
+\r
 #endif\r
 \r
 #ifdef TEST\r