Author: stefanbidi
Date: Sat Feb 14 18:51:40 2015
New Revision: 38341
URL: http://svn.gna.org/viewcvs/gnustep?rev=38341&view=rev
Log:
* Source/GSUnicode.c: Fix logical error in isnan/isinf functions.
Modified:
libs/corebase/trunk/ChangeLog
libs/corebase/trunk/Source/GSUnicode.c
Modified: libs/corebase/trunk/ChangeLog
URL:
http://svn.gna.org/viewcvs/gnustep/libs/corebase/trunk/ChangeLog?rev=38341&r1=38340&r2=38341&view=diff
==============================================================================
--- libs/corebase/trunk/ChangeLog (original)
+++ libs/corebase/trunk/ChangeLog Sat Feb 14 18:51:40 2015
@@ -1,3 +1,6 @@
+2014-02-14 Stefan Bidigaray <[email protected]>
+ * Source/GSUnicode.c: Fix logical error in isnan/isinf functions.
+
2014-02-13 Stefan Bidigaray <[email protected]>
* Source/GSUnicode.c: Completed isnan/isinf functions for long double.
Modified: libs/corebase/trunk/Source/GSUnicode.c
URL:
http://svn.gna.org/viewcvs/gnustep/libs/corebase/trunk/Source/GSUnicode.c?rev=38341&r1=38340&r2=38341&view=diff
==============================================================================
--- libs/corebase/trunk/Source/GSUnicode.c (original)
+++ libs/corebase/trunk/Source/GSUnicode.c Sat Feb 14 18:51:40 2015
@@ -1335,7 +1335,7 @@
l |= -l;
l = ((h & 0x7FF00000) ^ 0x7FF00000) - ((UInt32) l >> 31);
- return l & (h >> 30);
+ return (l >> 31) & (h >> 30);
}
#if SIZEOF_LONG_DOUBLE > SIZEOF_DOUBLE
@@ -1386,7 +1386,7 @@
l |= -l;
l = ((h & 0x7FFF) ^ 0x7FFF) - ((UInt32)l >> 31);
- return l & ((h << 16) >> 30);
+ return (l >> 31) & ((h << 16) >> 30);
}
#elif SIZEOF_LONG_DOUBLE == 16
static int
@@ -1432,9 +1432,9 @@
#endif
l |= (h & 0x0000FFFFFFFFFFFF);
l |= -l;
- l = ((h & 0x7FFF000000000000) ^ 0x7FFF000000000000) - ((UInt32) l >> 63);
-
- return l & (h >> 62);
+ l = ((h & 0x7FFF000000000000) ^ 0x7FFF000000000000) - ((UInt64) l >> 63);
+
+ return (l >> 63) & (h >> 62);
}
#else
#error Unsupported size of long double!
_______________________________________________
Gnustep-cvs mailing list
[email protected]
https://mail.gna.org/listinfo/gnustep-cvs
