00001 #include "arith.h" 00002 00003 #ifndef Long 00004 #define Long long 00005 #endif 00006 00007 int 00008 #ifdef KR_headers 00009 signbit_f2c(x) double *x; 00010 #else 00011 signbit_f2c(double *x) 00012 #endif 00013 { 00014 #ifdef IEEE_MC68k 00015 if (*(Long*)x & 0x80000000) 00016 return 1; 00017 #else 00018 #ifdef IEEE_8087 00019 if (((Long*)x)[1] & 0x80000000) 00020 return 1; 00021 #endif /*IEEE_8087*/ 00022 #endif /*IEEE_MC68k*/ 00023 return 0; 00024 }