signbit.c File Reference

#include "arith.h"

Include dependency graph for signbit.c:

Go to the source code of this file.

Defines
#define	Long   long
Functions
int	signbit_f2c (double *x)

---

Define Documentation

#define Long   long

Definition at line 4 of file signbit.c.

Referenced by _uninit_f2c(), and signbit_f2c().

---

Function Documentation

int signbit_f2c

(

double *

x

)

Definition at line 11 of file signbit.c.

References Long.

Referenced by l_g(), wrt_E(), and wrt_F().

{
#ifdef IEEE_MC68k
        if (*(Long*)x & 0x80000000)
                return 1;
#else
#ifdef IEEE_8087
        if (((Long*)x)[1] & 0x80000000)
                return 1;
#endif /*IEEE_8087*/
#endif /*IEEE_MC68k*/
        return 0;
        }

Here is the caller graph for this function:

---