github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-13 23:27:12 +00:00
Code Issues Projects Releases Wiki Activity

Clean up medleyfp.h. (#127)

Browse Source 
* Include <ieeefp.h> for Solaris.
* Remove sections for sparc and Sun i386 for non-Solaris.
* Have Linux use the same code as FreeBSD and macOS.
* Make the FreeBSD / Linux / macOS code path the default, if nothing
  special is defined since it is the modern way.
* Remove fpstatus_() usage from the ancient days.
This commit is contained in:
Bruce Mitchener 2020-12-23 14:23:26 +07:00 committed by GitHub
parent 0c8ae869b9
commit 72948ae0fd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
inc/medleyfp.h
View File

@ -27,7 +27,6 @@
#ifdef FLTINT
volatile extern int FP_error;
/* Note that a compiler may very likely move code around the arithmetic
operation, causing this test (set by an interrupt handler) to be
incorrect. For example, the Sun SPARC compiler with -O2 makes
@ -37,49 +36,19 @@ volatile extern int FP_error;
#define FPCLEAR FP_error = 0;
#define FPTEST(result) FP_error
#else
/* fpstatus_ is a FORTRAN library routine (in libc) which
can be called to determine floating point status results.
Documented in the Sun manual, "Floating Point Programmer's Guide",
(Rev. A 19-Sep-86), pg. 34, it does *not* exist in libc for the
SPARC.
For sparc, should also check for isnan? Don't know what isnormal
& issubnormal do (these are sunos4.0 only)
*/
#if defined(OS5)
#elif defined(OS5)
#include <ieeefp.h>
#define FPCLEAR
#define FPTEST(result) (!finite(result))
#elif defined(sparc) || defined(I386)
#define FPCLEAR
#define FPTEST(result) (isinf(result) || isnan(result))
#elif defined(LINUX)
#include <math.h>
#define FPCLEAR
#define FPTEST(result) ((!finite(result)) || isnan(result))
#elif defined(MACOSX) || defined(FREEBSD)
#include <math.h>
#define FPCLEAR
#define FPTEST(result) (!isfinite(result))
#elif defined(DOS)
#include <i32.h>
#define FPCLEAR
#define FPTEST(result) (_getrealerror() & ( I87_ZERO_DIVIDE | I87_OVERFLOW | I87_UNDERFLOW))
#else
static int constant0 = 0;
unsigned int fpstatus_();
#include <math.h>
#define FPCLEAR
#define FPTEST(result) (!isfinite(result))
#define FPCLEAR fpstatus_(&constant0);
#define FPTEST(result) (fpstatus_(&constant0) & 0xF0)
#endif
#endif /* FLTINT */