install-reloc: Support multi-binary installation.

[gnulib.git] / lib / fmodl.c

diff --git a/lib/fmodl.c b/lib/fmodl.c
index a7ccd8b..8a9636f 100644 (file)
--- a/lib/fmodl.c
+++ b/lib/fmodl.c
@@ -1,5 +1,5 @@
 /* Remainder.
-   Copyright (C) 2011-2012 Free Software Foundation, Inc.
+   Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -29,51 +29,7 @@ fmodl (long double x, long double y)
 
 #else
 
-long double
-fmodl (long double x, long double y)
-{
-  long double q = - truncl (x / y);
-  long double r = fmal (q, y, x); /* = x + q * y, computed in one step */
-  /* Correct possible rounding errors in the quotient x / y.  */
-  if (y >= 0)
-    {
-      if (x >= 0)
-        {
-          /* Expect 0 <= r < y.  */
-          if (r < 0)
-            q += 1, r = fmal (q, y, x);
-          else if (r >= y)
-            q -= 1, r = fmal (q, y, x);
-        }
-      else
-        {
-          /* Expect - y < r <= 0.  */
-          if (r > 0)
-            q -= 1, r = fmal (q, y, x);
-          else if (r <= - y)
-            q += 1, r = fmal (q, y, x);
-        }
-    }
-  else
-    {
-      if (x >= 0)
-        {
-          /* Expect 0 <= r < - y.  */
-          if (r < 0)
-            q -= 1, r = fmal (q, y, x);
-          else if (r >= - y)
-            q += 1, r = fmal (q, y, x);
-        }
-      else
-        {
-          /* Expect y < r <= 0.  */
-          if (r > 0)
-            q += 1, r = fmal (q, y, x);
-          else if (r <= y)
-            q -= 1, r = fmal (q, y, x);
-        }
-    }
-  return r;
-}
+# define USE_LONG_DOUBLE
+# include "fmod.c"
 
 #endif