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

ieee754: Upgrading from 0.7.8 to 0.7.9

parent 579422b9
haskell-ieee754 (0.7.9-1) unstable; urgency=medium
* New upstream release
-- Clint Adams <clint@debian.org> Sat, 17 Jun 2017 14:53:14 -0400
haskell-ieee754 (0.7.8-4) unstable; urgency=medium
* Rename local versions of nextdown, nextdownf, nextup, nextupf,
......
--- 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