diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2004-07-15 18:52:49 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2004-07-15 16:52:49 +0000 |
| commit | 3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9 (patch) | |
| tree | 5f8cfd6717d2fc2edd87b592618718293587582c /libf2c/libF77/r_mod.c | |
| parent | 48b456474c69a132da15996c61009e35efa59492 (diff) | |
| download | gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.zip gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.gz gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.bz2 | |
libf2c: Removed.
2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>
* libf2c: Removed.
* gcc/gccbug.in: Updated because of libf2c removal.
* maintainer-scripts/gcc_release: Ditto.
From-SVN: r84759
Diffstat (limited to 'libf2c/libF77/r_mod.c')
| -rw-r--r-- | libf2c/libF77/r_mod.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/libf2c/libF77/r_mod.c b/libf2c/libF77/r_mod.c deleted file mode 100644 index 9518d66..0000000 --- a/libf2c/libF77/r_mod.c +++ /dev/null @@ -1,33 +0,0 @@ -#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 -} |