Commit 2c98a2d4 authored by Clint Adams's avatar Clint Adams

ieee754: rename local versions of nextdown, nextdownf, nextup, nextupf

parent 3fa1e798
haskell-ieee754 (0.7.8-4) unstable; urgency=medium
* Rename local versions of nextdown, nextdownf, nextup, nextupf,
because of prototype collision when building with
unregisterised GHC 8.0.
-- Clint Adams <clint@debian.org> Thu, 03 Nov 2016 13:25:14 -0400
haskell-ieee754 (0.7.8-3) unstable; urgency=medium
* Upload to unstable as part of GHC 8 transition.
......
--- a/Numeric/IEEE.hs
+++ b/Numeric/IEEE.hs
@@ -240,16 +240,16 @@
foreign import ccall unsafe "feqrelf"
c_feqrelf :: Float -> Float -> Int
-foreign import ccall unsafe "nextup"
+foreign import ccall unsafe "hsi7_nextup"
c_nextup :: Double -> Double
-foreign import ccall unsafe "nextupf"
+foreign import ccall unsafe "hsi7_nextupf"
c_nextupf :: Float -> Float
-foreign import ccall unsafe "nextdown"
+foreign import ccall unsafe "hsi7_nextdown"
c_nextdown :: Double -> Double
-foreign import ccall unsafe "nextdownf"
+foreign import ccall unsafe "hsi7_nextdownf"
c_nextdownf :: Float -> Float
foreign import ccall unsafe "ieeemean"
--- a/cbits/double.c
+++ b/cbits/double.c
@@ -41,7 +41,7 @@
/* ported from tango/math/IEEE.d */
double
-nextup (double x)
+hsi7_nextup (double x)
{
union double_t ps = { x };
@@ -64,9 +64,9 @@
/* ported from tango/math/IEEE.d */
double
-nextdown (double x)
+hsi7_nextdown (double x)
{
- return -nextup(-x);
+ return -hsi7_nextup(-x);
}
/* ported from tango/math/IEEE.d */
--- a/cbits/float.c
+++ b/cbits/float.c
@@ -42,7 +42,7 @@
/* ported from tango/math/IEEE.d */
float
-nextupf (float x)
+hsi7_nextupf (float x)
{
union float_t ps = { x };
@@ -65,9 +65,9 @@
/* ported from tango/math/IEEE.d */
float
-nextdownf (float x)
+hsi7_nextdownf (float x)
{
- return -nextupf(-x);
+ return -hsi7_nextupf(-x);
}
/* ported from tango/math/IEEE.d */
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment