summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2014-08-30 09:47:19 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2014-08-30 09:47:19 -0700
commit88366fcf88e5bccc4d0bcff798beb3ef27aaa496 (patch)
treed9ef8381d75ea4f014fd2f0517594a0c609439db
parent4051f5379cea70610814c61cfa581d9b235ecc46 (diff)
downloademacs-88366fcf88e5bccc4d0bcff798beb3ef27aaa496.tar.gz
* sysdep.c (str_collate): Clear errno just before wcscoll(_l).
One can't hoist this out of the 'if', because intervening calls to newlocale, twolower, etc. can change errno.
-rw-r--r--src/ChangeLog6
-rw-r--r--src/sysdep.c4
2 files changed, 8 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index dece8255a05..b348932f0a9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2014-08-30 Paul Eggert <eggert@cs.ucla.edu>
+
+ * sysdep.c (str_collate): Clear errno just before wcscoll(_l).
+ One can't hoist this out of the 'if', because intervening calls to
+ newlocale, twolower, etc. can change errno.
+
2014-08-30 Eli Zaretskii <eliz@gnu.org>
* sysdep.c (str_collate) [__STDC_ISO_10646__]: Improve the
diff --git a/src/sysdep.c b/src/sysdep.c
index 8b62c8c4f62..34fd8b1044b 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3740,8 +3740,6 @@ str_collate (Lisp_Object s1, Lisp_Object s2,
FETCH_STRING_CHAR_ADVANCE (*(p2+i-1), s2, i, i_byte);
*(p2+len) = 0;
- errno = 0;
-
if (STRINGP (locale))
{
locale_t loc = newlocale (LC_COLLATE_MASK | LC_CTYPE_MASK,
@@ -3757,6 +3755,7 @@ str_collate (Lisp_Object s1, Lisp_Object s2,
*p = towlower_l (*p, loc);
}
+ errno = 0;
res = wcscoll_l (p1, p2, loc);
err = errno;
freelocale (loc);
@@ -3771,6 +3770,7 @@ str_collate (Lisp_Object s1, Lisp_Object s2,
*p = towlower (*p);
}
+ errno = 0;
res = wcscoll (p1, p2);
err = errno;
}