Reorganize the gcc vendor import work area. This flattens out a bunch

of unnecessary path components that are relics of cvs2svn.

(These are directory moves)

1 files changed, 33 insertions, 0 deletions

diff --git a/libf2c/libF77/r_mod.c b/libf2c/libF77/r_mod.c
new file mode 100644
index 0000000..9518d66
--- /dev/null
+++ b/libf2c/libF77/r_mod.c
@@ -0,0 +1,33 @@
+#include "f2c.h"
+
+#ifdef IEEE_drem
+double drem (double, double);
+#else
+#undef abs
+#include <math.h>
+#endif
+double
+r_mod (real * x, real * y)
+{
+#ifdef IEEE_drem
+  double xa, ya, z;
+  if ((ya = *y) < 0.)
+    ya = -ya;
+  z = drem (xa = *x, ya);
+  if (xa > 0)
+    {
+      if (z < 0)
+	z += ya;
+    }
+  else if (z > 0)
+    z -= ya;
+  return z;
+#else
+  double quotient;
+  if ((quotient = (double) *x / *y) >= 0)
+    quotient = floor (quotient);
+  else
+    quotient = -floor (-quotient);
+  return (*x - (*y) * quotient);
+#endif
+}