mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-25 03:26:30 +00:00
a093d80fa5
As a prerequisite for cleaning up some other include issues, all the include files in inc/ should have an include guard. All the xxxdefs.h were created with them, but most older files were not.
58 lines
1.6 KiB
C
58 lines
1.6 KiB
C
#ifndef MEDLEYFP_H
|
|
#define MEDLEYFP_H 1
|
|
/* $Id: medleyfp.h,v 1.2 1999/01/03 02:06:16 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-94 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
/* --------------------------------------------------
|
|
FPCLEAR - clear status as necessary
|
|
FPTEST(result) - check result or status
|
|
|
|
Sun 4 compiler w. -O2 moves too much code around
|
|
to use FLTINT.
|
|
-------------------------------------------------- */
|
|
|
|
#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
|
|
this test incorrect.
|
|
*/
|
|
|
|
#define FPCLEAR FP_error = 0;
|
|
#define FPTEST(result) FP_error
|
|
|
|
#elif defined(OS5)
|
|
#include <ieeefp.h>
|
|
#define FPCLEAR
|
|
#define FPTEST(result) (!finite(result))
|
|
|
|
#elif defined(DOS)
|
|
#include <i32.h>
|
|
#define FPCLEAR
|
|
#define FPTEST(result) (_getrealerror() & ( I87_ZERO_DIVIDE | I87_OVERFLOW | I87_UNDERFLOW))
|
|
|
|
#else
|
|
#include <math.h>
|
|
#define FPCLEAR
|
|
#define FPTEST(result) (!isfinite(result))
|
|
|
|
#endif /* FLTINT */
|
|
#endif /* MEDLEYFP_H */
|