summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1996-02-13 09:51:13 +0000
committerRoland McGrath <roland@gnu.org>1996-02-13 09:51:13 +0000
commit3585d6bf303a8a9ea9cbb84210bb62e997206697 (patch)
tree1ee51ce8e246b0eb4c856e5c5765bafd04ad6e23
parent01f3e03bcd992cc2917f5d228e763ef3d65e67ad (diff)
Sat Feb 10 13:09:03 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
* sysdeps/m68k/fpu/isinfl.c, sysdeps/m68k/fpu/isnanl.c, sysdeps/m68k/isinfl.c, sysdeps/m68k/isnanl.c: New files. * sysdeps/m68k/fpu/isinfl.c, sysdeps/m68k/fpu/isnanl.c, sysdeps/m68k/isinfl.c, sysdeps/m68k/isnanl.c: New files.
-rw-r--r--ChangeLog3
-rw-r--r--sysdeps/m68k/fpu/isinfl.c4
-rw-r--r--sysdeps/m68k/fpu/isnanl.c4
-rw-r--r--sysdeps/m68k/isinfl.c45
-rw-r--r--sysdeps/m68k/isnanl.c41
5 files changed, 97 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index b9ab9a4a93..1775010a3a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
Sat Feb 10 13:09:03 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
+ * sysdeps/m68k/fpu/isinfl.c, sysdeps/m68k/fpu/isnanl.c,
+ sysdeps/m68k/isinfl.c, sysdeps/m68k/isnanl.c: New files.
+
* sysdeps/unix/sysv/linux/sys/mman.h: Define MAP_ANON and
MAP_FILE if not already defined.
diff --git a/sysdeps/m68k/fpu/isinfl.c b/sysdeps/m68k/fpu/isinfl.c
new file mode 100644
index 0000000000..f3eeaa2b30
--- /dev/null
+++ b/sysdeps/m68k/fpu/isinfl.c
@@ -0,0 +1,4 @@
+#define FUNC __isinfl
+#include <isinf.c>
+
+weak_alias (__isinfl, isinfl)
diff --git a/sysdeps/m68k/fpu/isnanl.c b/sysdeps/m68k/fpu/isnanl.c
new file mode 100644
index 0000000000..0f48a73fbc
--- /dev/null
+++ b/sysdeps/m68k/fpu/isnanl.c
@@ -0,0 +1,4 @@
+#define FUNC __isnanl
+#include <isinf.c>
+
+weak_alias (__isnanl, isnanl)
diff --git a/sysdeps/m68k/isinfl.c b/sysdeps/m68k/isinfl.c
new file mode 100644
index 0000000000..1b06d47d52
--- /dev/null
+++ b/sysdeps/m68k/isinfl.c
@@ -0,0 +1,45 @@
+/* Copyright (C) 1991, 1992, 1995 Free Software Foundation, Inc.
+This file is part of the GNU C Library.
+
+The GNU C Library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Library General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+The GNU C Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Library General Public License for more details.
+
+You should have received a copy of the GNU Library General Public
+License along with the GNU C Library; see the file COPYING.LIB. If
+not, write to the Free Software Foundation, Inc., 675 Mass Ave,
+Cambridge, MA 02139, USA. */
+
+#include <math.h>
+#include "ieee754.h"
+
+#undef __isinfl
+#undef isinfl
+
+
+/* Return 0 if VALUE is finite or NaN, +1 if it
+ is +Infinity, -1 if it is -Infinity. */
+int
+__isinfl (long double value)
+{
+ union ieee854_long_double u;
+
+ u.d = value;
+
+ /* An IEEE 854 infinity has an exponent with the
+ maximum possible value and a zero mantissa.
+ In Motorola's interpretation the integer bit is ignored. */
+ if ((u.ieee.exponent & 0x7fff) == 0x7fff &&
+ (u.ieee.mantissa0 & 0x7fffffff) == 0 && u.ieee.mantissa1 == 0)
+ return u.ieee.negative ? -1 : 1;
+
+ return 0;
+}
+
+weak_alias (__isinfl, isinfl);
diff --git a/sysdeps/m68k/isnanl.c b/sysdeps/m68k/isnanl.c
new file mode 100644
index 0000000000..38a9616593
--- /dev/null
+++ b/sysdeps/m68k/isnanl.c
@@ -0,0 +1,41 @@
+/* Copyright (C) 1991, 1992, 1995 Free Software Foundation, Inc.
+This file is part of the GNU C Library.
+
+The GNU C Library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Library General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+The GNU C Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Library General Public License for more details.
+
+You should have received a copy of the GNU Library General Public
+License along with the GNU C Library; see the file COPYING.LIB. If
+not, write to the Free Software Foundation, Inc., 675 Mass Ave,
+Cambridge, MA 02139, USA. */
+
+#include <math.h>
+#include "ieee754.h"
+
+#undef __isnanl
+#undef isnanl
+
+
+/* Return nonzero if VALUE is not a number. */
+int
+__isnanl (long double value)
+{
+ union ieee854_long_double u;
+
+ u.d = value;
+
+ /* IEEE 854 NaN's have the maximum possible
+ exponent and a nonzero mantissa. In Motorola's
+ interpretation the integer bit is ignored. */
+ return ((u.ieee.exponent & 0x7fff) == 0x7fff &&
+ ((u.ieee.mantissa0 & 0x7fffffff) != 0 || u.ieee.mantissa1 != 0));
+}
+
+weak_alias (__isnanl, isnanl);