Mercurial > ecos
annotate packages/language/c/libm/current/src/mathincl/fdlibm.h @ 64:c38311975d4f ecos-sw-2000-01-28
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
| author | jlarmour |
|---|---|
| date | Fri, 28 Jan 2000 04:59:39 +0000 |
| parents | 01ce82f3e11a |
| children | bf00f99aec69 |
| rev | line source |
|---|---|
| 0 | 1 #ifndef CYGONCE_LIBM_MATHINCL_FDLIBM_H |
| 2 #define CYGONCE_LIBM_MATHINCL_FDLIBM_H | |
| 3 //=========================================================================== | |
| 4 // | |
| 5 // fdlibm.h | |
| 6 // | |
| 7 // Internal definitions for math library implementation based on fdlibm | |
| 8 // | |
| 9 //=========================================================================== | |
| 10 //####COPYRIGHTBEGIN#### | |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
11 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
12 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
13 // The contents of this file are subject to the Red Hat eCos Public License |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
14 // Version 1.0 (the "License"); you may not use this file except in |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
15 // compliance with the License. You may obtain a copy of the License at |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
16 // http://sourceware.cygnus.com/ecos |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
17 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
18 // Software distributed under the License is distributed on an |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
19 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
20 // License for the specific language governing rights and limitations under |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
21 // the License. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
22 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
23 // The Original Code is eCos - Embedded Configurable Operating System, |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
24 // released September 30, 1998. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
25 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
26 // The Initial Developer of the Original Code is Red Hat. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
27 // Portions created by Red Hat are |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
28 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
29 // All Rights Reserved. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
30 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
14
diff
changeset
|
31 // |
| 0 | 32 //####COPYRIGHTEND#### |
| 33 //=========================================================================== | |
| 34 //#####DESCRIPTIONBEGIN#### | |
| 35 // | |
| 2 | 36 // Author(s): jlarmour |
| 37 // Contributors: jlarmour | |
| 38 // Date: 1999-02-09 | |
| 0 | 39 // Purpose: |
| 2 | 40 // Description: Internal implementation-specific header for math library |
| 41 // based on fdlibm | |
| 42 // Usage: From within this package, #include "mathincl/fdlibm.h" | |
| 0 | 43 // |
| 44 //####DESCRIPTIONEND#### | |
| 45 // | |
| 46 //=========================================================================== | |
| 47 | |
| 48 // CONFIGURATION | |
| 49 | |
| 50 #include <pkgconf/libm.h> // Configuration header | |
| 51 | |
| 52 // Include the Math library? | |
| 53 #ifdef CYGPKG_LIBM | |
| 54 | |
| 55 // INCLUDES | |
| 56 | |
| 57 #include <cyg/infra/cyg_type.h> // Common type definitions and support | |
| 58 #include <math.h> // Main header for math library | |
| 59 #include <float.h> // Properties of FP representation on this | |
| 60 // platform | |
| 61 | |
| 62 // SANITY CHECKS | |
| 63 | |
| 64 // Just check that we support IEEE-style 64-bit doubles. If not, this | |
| 65 // math library will not work | |
| 66 // This check will go away when support for single-precision alternatives are | |
| 67 // provided | |
| 68 | |
| 69 #if DBL_MAX_EXP != 1024 | |
| 70 # error IEEE-style 64-bit doubles are required to use the math library | |
| 71 #endif // if DBL_MAX_EXP == 1024 | |
| 72 | |
| 73 | |
| 74 // MACRO DEFINITIONS | |
| 75 | |
|
14
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
2
diff
changeset
|
76 #define CYG_LIBM_HI(__x) (((Cyg_libm_ieee_double_shape_type *)&__x)->parts.msw) |
|
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
2
diff
changeset
|
77 #define CYG_LIBM_LO(__x) (((Cyg_libm_ieee_double_shape_type *)&__x)->parts.lsw) |
|
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
2
diff
changeset
|
78 #define CYG_LIBM_HIp(__x) (((Cyg_libm_ieee_double_shape_type *)__x)->parts.msw) |
|
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
2
diff
changeset
|
79 #define CYG_LIBM_LOp(__x) (((Cyg_libm_ieee_double_shape_type *)__x)->parts.lsw) |
|
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
2
diff
changeset
|
80 |
| 0 | 81 |
| 82 // REPLACEMENTS FOR STUFF FROM MATH.H DUE TO CONFIG OPTION | |
| 83 | |
| 84 #ifdef CYGSYM_LIBM_NO_XOPEN_SVID_NAMESPACE_POLLUTION | |
| 85 | |
| 86 #define HUGE FLT_MAX // from float.h | |
| 87 #define DOMAIN 1 | |
| 88 #define SING 2 | |
| 89 #define OVERFLOW 3 | |
| 90 #define UNDERFLOW 4 | |
| 91 #define TLOSS 5 | |
| 92 #define PLOSS 6 | |
| 93 | |
| 94 struct exception { | |
| 95 int type; // One of DOMAIN, SING, OVERFLOW, UNDERFLOW, TLOSS, PLOSS | |
| 96 char *name; // Name of the function generating the exception | |
| 97 double arg1; // First argument to the function | |
| 98 double arg2; // Second argument to the function | |
| 99 double retval; // Value to be returned - can be altered by matherr() | |
| 100 }; | |
| 101 | |
| 102 externC int | |
| 103 matherr( struct exception * ); // User-overridable error handling - see | |
| 104 // <pkgconf/libm.h> for a discussion | |
| 105 #endif // ifdef CYGSYM_LIBM_NO_XOPEN_SVID_NAMESPACE_POLLUTION | |
| 106 | |
| 107 | |
| 108 // FUNCTION PROTOTYPES | |
| 109 | |
| 110 // IEEE-754 style elementary functions */ | |
| 111 | |
| 112 externC double | |
| 113 __ieee754_sqrt( double ); | |
| 114 | |
| 115 externC double | |
| 116 __ieee754_acos( double ); | |
| 117 | |
| 118 | |
| 119 externC double | |
| 120 __ieee754_log( double ); | |
| 121 | |
| 122 | |
| 123 externC double | |
| 124 __ieee754_asin( double ); | |
| 125 | |
| 126 externC double | |
| 127 __ieee754_atan2( double, double ); | |
| 128 | |
| 129 externC double | |
| 130 __ieee754_exp( double ); | |
| 131 | |
| 132 externC double | |
| 133 __ieee754_cosh( double ); | |
| 134 | |
| 135 externC double | |
| 136 __ieee754_fmod( double, double ); | |
| 137 | |
| 138 externC double | |
| 139 __ieee754_pow( double, double ); | |
| 140 | |
| 141 | |
| 142 externC double | |
| 143 __ieee754_log10( double ); | |
| 144 | |
| 145 externC double | |
| 146 __ieee754_sinh( double ); | |
| 147 | |
| 148 | |
| 149 externC int | |
| 150 __ieee754_rem_pio2( double, double * ); | |
| 151 | |
| 152 #ifdef CYGFUN_LIBM_SVID3_scalb | |
| 153 externC double | |
| 154 __ieee754_scalb( double, double ); | |
| 155 #else | |
| 156 externC double | |
| 157 __ieee754_scalb( double, int ); | |
| 158 #endif | |
| 159 | |
| 160 // FDLIBM kernel functions | |
| 161 | |
| 162 externC double | |
| 163 __kernel_standard( double, double, int ); | |
| 164 | |
| 165 externC double | |
| 166 __kernel_sin( double, double, int ); | |
| 167 | |
| 168 externC double | |
| 169 __kernel_cos( double, double ); | |
| 170 | |
| 171 externC double | |
| 172 __kernel_tan( double, double, int ); | |
| 173 | |
| 174 externC int | |
| 175 __kernel_rem_pio2( double *, double *, int, int, int, const int * ); | |
| 176 | |
| 177 #endif // ifdef CYGPKG_LIBM | |
| 178 | |
| 179 #endif // CYGONCE_LIBM_MATHINCL_FDLIBM_H multiple inclusion protection | |
| 180 | |
| 181 // EOF fdlibm.h |
