home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.0 / NeXTSTEP3.0.iso / NextDeveloper / Headers / ansi / m68k / math.h < prev    next >
Text File  |  1992-03-04  |  5KB  |  97 lines
  1. /* Copyright (c) 1992 NeXT Computer, Inc.  All rights reserved.
  2.  *
  3.  *    File:    <ansi/m68k/math.h>
  4.  */
  5.  
  6. /*
  7.  * Inline routines.
  8.  */
  9.  
  10. #ifdef INLINE_MATH
  11. #define acos(x) _builtin_acos(x)
  12. static inline double acos(double x) { double v; asm("facosx %1,%0": "=f" (v): "f" (x)); if (v!=v) errno=EDOM; return v; }
  13. #define asin(x) _builtin_asin(x)
  14. static inline double asin(double x) { double v; asm("fasinx %1,%0": "=f" (v): "f" (x)); if (v!=v) errno=EDOM; return v; }
  15. #define atan(x) _building_atan(x)
  16. static inline double atan(double x) { double v; asm("fatanx %1,%0": "=f" (v): "f" (x)); return v; }
  17. #define atanh(x) _building_atanh(x)
  18. static inline double atanh(double x) { double v; asm("fatanhx %1,%0": "=f" (v): "f" (x)); return v; }
  19. #define cos(x) _builtin_cos(x)
  20. static inline double cos(double x) { double v; asm("fcosx %1,%0": "=f" (v): "f" (x)); return v; }
  21. #define cosh(x) _builtin_cosh(x)
  22. static inline double cosh(double x) { double v; struct { unsigned pad:19; unsigned ovfl:1; unsigned pad2:12;} fpsr; asm("fcoshx %1,%0": "=f" (v): "f" (x)); asm("fmovel fps,%0": "=g" (fpsr)); if (fpsr.ovfl) errno = ERANGE; return v; }
  23. #define exp(x) _builtin_exp(x)
  24. static inline double exp(double x) { double v; struct { unsigned pad:19; unsigned ovfl:1; unsigned pad2:12;} fpsr; asm("fetoxx %1,%0": "=f" (v): "f" (x)$    0sm("fmovel fps,%0": "=g" (fpsr)); if (fpsr.ovfl) errno = ERANGE; return v; }
  25. #define expm1(x) _builtin_expm1(x)
  26. static inline double expm1(double x) { double v; asm("fetoxm1x %1,%0": "=f" (v): "f" (x)); return v; }
  27. #define fabs(x) _builtin_fabs(x)
  28. static inline double fabs(double x) { double v; asm("fabsx %1,%0": "=f" (v): "f" (x)); return v; }
  29. #define log(x) _builtin_log(x)
  30. static inline double log(double x) { double v; if (x<0.0) errno=EDOM; asm("flognx %1,%0": "=f" (v): "f" (x)); return v; }
  31. #define logb(x) _builtin_logb(x)
  32. static inline double logb(double x) { double v; asm("fgetexpx %1,%0": "=f" (v): "f" (x)); return v; }
  33. #define log10(x) _builtin_log10(x)
  34. static inline double log10(double x) { double v; if (x<0.0) errno=EDOM; asm("flog10x %1,%0": "=f" (v): "f" (x)); return v; }
  35. #define log1p(x) _builtin_log1p(x)
  36. static inline double log1p(double x) { double v; asm("flognp1x %1,%0": "=f" (v): "f" (x)); return v; }
  37. #define rint(x) _builtin_rint(x)
  38. static inline double rint(double x) { double v; asm("fintx %1,%0": "=f" (v): "f" (x)); return v; }
  39. #define sin(x) _builtin_sin(x)
  40. static inline double sin(double x) { double v; asm("fsinx %1,%0": "=f" (v): "f" (x)); return v; }
  41. #define sinh(x) _builtin_sinh(x)
  42. static inline double sinh(double x) { double v; struct { unsigned pad:19; unsigned ovfl:1; unsigned pad2:12;} fpsr; asm("fsinhx %1,%0": "=f" (v): "f" (x)); asm("fmovel fps,%0": "=g" (fpsr)); if (fpsr.ovfl) errno = ERANGE; return v; }
  43. #define sqrt(x) _builtin_sqrt(x)
  44. static inline double sqrt(double x) { double v; if (x<0.0) errno=EDOM; asm("fsqrtx %1,%0": "=f" (v): "f" (x)); return v; }
  45. #define tan(x) _builtin_tan(x)
  46. static inline double tan(double x) { double v; asm("ftanx %1,%0": "=f" (v): "f" (x)); return v; }
  47. #define tanh(x) _builtin_tanh(x)
  48. static inline double tanh(double x) { double v; asm("ftanhx %1,%0": "=f" (v): "f" (x)); return v; }
  49. #endif INLINE_MATH
  50.  
  51.  
  52. /*
  53.  * Constants.
  54.  */
  55.  
  56. #define HUGE_VAL (1e999)
  57.  
  58. #ifndef __STRICT_ANSI__
  59. #define HUGE    HUGE_VAL
  60. #define NAN    (HUGE/HUGE)
  61.  
  62. #define MAXCHAR ((char)0x7f)
  63. #define MAXSHORT ((short)0x7fff)
  64. #define MAXINT    ((int)0x7fffffff)    /* max pos 32-bit int */
  65. #define MAXLONG ((long)0x7fffffff)
  66.  
  67. #define MINCHAR ((char)0x80)
  68. #define MINSHORT ((short)0x8000)
  69. #define MININT     ((int)0x80000000)    /* max negative 32-bit integer */
  70. #define MINLONG ((long)0x80000000)
  71.  
  72. #define$    1FLOAT ((float)3.4028234663852886e38)
  73. #define MINFLOAT ((float)1.4012984643248171e-45)
  74. #define MAXDOUBLE ((double)1.7976931348623157e308)
  75. #define MINDOUBLE ((double)4.9406564584124654e-324)
  76.  
  77. #define LN_MAXFLOAT ((float)8.872283935546875e1)
  78. #define LN_MINFLOAT ((float)-1.032789306640625e2)
  79. #define LN_MAXDOUBLE ((double)7.0978271289338397e2)
  80. #define LN_MINDOUBLE ((double)-7.4444007192138122e2)
  81.  
  82. #define M_E    2.7182818284590452354
  83. #define M_LOG2E    1.4426950408889634074
  84. #define M_LOG10E    0.43429448190325182765
  85. #define M_LN2    0.69314718055994530942
  86. #define M_LN10    2.30258509299404568402
  87. #define M_PI    3.14159265358979323846
  88. #define M_PI_2    1.57079632679489661923
  89. #define M_PI_4    0.78539816339744830962
  90. #define M_1_PI    0.31830988618379067154
  91. #define M_2_PI    0.63661977236758134308
  92. #define M_2_SQRTPI    1.12837916709551257390
  93. #define M_SQRT2    1.41421356237309504880
  94. #define M_SQRT1_2    0.70710678118654752440
  95. #endif /* __STRICT_ANSI__ */
  96.  
  97.