1 1.8 matt /* $NetBSD: softfloat.h,v 1.8 2011/07/07 07:14:57 matt Exp $ */ 2 1.4 bjh21 3 1.4 bjh21 /* This is a derivative work. */ 4 1.1 jmc 5 1.1 jmc /* 6 1.1 jmc =============================================================================== 7 1.1 jmc 8 1.1 jmc This C header file is part of the SoftFloat IEC/IEEE Floating-point 9 1.1 jmc Arithmetic Package, Release 2a. 10 1.1 jmc 11 1.1 jmc Written by John R. Hauser. This work was made possible in part by the 12 1.1 jmc International Computer Science Institute, located at Suite 600, 1947 Center 13 1.1 jmc Street, Berkeley, California 94704. Funding was partially provided by the 14 1.1 jmc National Science Foundation under grant MIP-9311980. The original version 15 1.1 jmc of this code was written as part of a project to build a fixed-point vector 16 1.1 jmc processor in collaboration with the University of California at Berkeley, 17 1.1 jmc overseen by Profs. Nelson Morgan and John Wawrzynek. More information 18 1.1 jmc is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ 19 1.1 jmc arithmetic/SoftFloat.html'. 20 1.1 jmc 21 1.1 jmc THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort 22 1.1 jmc has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT 23 1.1 jmc TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO 24 1.1 jmc PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY 25 1.1 jmc AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. 26 1.1 jmc 27 1.1 jmc Derivative works are acceptable, even for commercial purposes, so long as 28 1.1 jmc (1) they include prominent notice that the work is derivative, and (2) they 29 1.1 jmc include prominent notice akin to these four paragraphs for those parts of 30 1.1 jmc this code that are retained. 31 1.1 jmc 32 1.1 jmc =============================================================================== 33 1.1 jmc */ 34 1.1 jmc 35 1.1 jmc /* 36 1.1 jmc ------------------------------------------------------------------------------- 37 1.1 jmc The macro `FLOATX80' must be defined to enable the extended double-precision 38 1.1 jmc floating-point format `floatx80'. If this macro is not defined, the 39 1.1 jmc `floatx80' type will not be defined, and none of the functions that either 40 1.1 jmc input or output the `floatx80' type will be defined. The same applies to 41 1.1 jmc the `FLOAT128' macro and the quadruple-precision format `float128'. 42 1.1 jmc ------------------------------------------------------------------------------- 43 1.1 jmc */ 44 1.1 jmc /* #define FLOATX80 */ 45 1.1 jmc #define FLOAT128 46 1.1 jmc 47 1.2 jmc #include "softfloat-qp.h" 48 1.2 jmc 49 1.1 jmc #include <machine/ieeefp.h> 50 1.1 jmc 51 1.1 jmc /* 52 1.1 jmc ------------------------------------------------------------------------------- 53 1.1 jmc Software IEC/IEEE floating-point types. 54 1.1 jmc ------------------------------------------------------------------------------- 55 1.1 jmc */ 56 1.1 jmc typedef unsigned int float32; 57 1.1 jmc typedef unsigned long long float64; 58 1.1 jmc #ifdef FLOATX80 59 1.1 jmc typedef struct { 60 1.1 jmc unsigned short high; 61 1.1 jmc unsigned long long low; 62 1.1 jmc } floatx80; 63 1.1 jmc #endif 64 1.1 jmc #ifdef FLOAT128 65 1.1 jmc typedef struct { 66 1.1 jmc unsigned long long high, low; 67 1.1 jmc } float128; 68 1.1 jmc #endif 69 1.1 jmc 70 1.1 jmc /* 71 1.1 jmc ------------------------------------------------------------------------------- 72 1.1 jmc Software IEC/IEEE floating-point underflow tininess-detection mode. 73 1.1 jmc ------------------------------------------------------------------------------- 74 1.1 jmc */ 75 1.5 mrg #ifndef SOFTFLOAT_FOR_GCC 76 1.1 jmc extern int8 float_detect_tininess; 77 1.5 mrg #endif 78 1.1 jmc enum { 79 1.1 jmc float_tininess_after_rounding = 0, 80 1.1 jmc float_tininess_before_rounding = 1 81 1.1 jmc }; 82 1.1 jmc 83 1.1 jmc /* 84 1.1 jmc ------------------------------------------------------------------------------- 85 1.1 jmc Software IEC/IEEE floating-point rounding mode. 86 1.1 jmc ------------------------------------------------------------------------------- 87 1.1 jmc */ 88 1.3 bjh21 extern fp_rnd float_rounding_mode; 89 1.8 matt #define float_round_nearest_even FP_RN 90 1.8 matt #define float_round_to_zero FP_RZ 91 1.8 matt #define float_round_down FP_RM 92 1.8 matt #define float_round_up FP_RP 93 1.1 jmc 94 1.1 jmc /* 95 1.1 jmc ------------------------------------------------------------------------------- 96 1.1 jmc Software IEC/IEEE floating-point exception flags. 97 1.1 jmc ------------------------------------------------------------------------------- 98 1.1 jmc */ 99 1.3 bjh21 extern fp_except float_exception_flags; 100 1.4 bjh21 extern fp_except float_exception_mask; 101 1.1 jmc enum { 102 1.1 jmc float_flag_inexact = FP_X_IMP, 103 1.1 jmc float_flag_underflow = FP_X_UFL, 104 1.1 jmc float_flag_overflow = FP_X_OFL, 105 1.1 jmc float_flag_divbyzero = FP_X_DZ, 106 1.1 jmc float_flag_invalid = FP_X_INV 107 1.1 jmc }; 108 1.1 jmc 109 1.1 jmc /* 110 1.1 jmc ------------------------------------------------------------------------------- 111 1.1 jmc Routine to raise any or all of the software IEC/IEEE floating-point 112 1.1 jmc exception flags. 113 1.1 jmc ------------------------------------------------------------------------------- 114 1.1 jmc */ 115 1.4 bjh21 void float_raise( fp_except ); 116 1.1 jmc 117 1.1 jmc /* 118 1.1 jmc ------------------------------------------------------------------------------- 119 1.1 jmc Software IEC/IEEE integer-to-floating-point conversion routines. 120 1.1 jmc ------------------------------------------------------------------------------- 121 1.1 jmc */ 122 1.7 matt float32 int32_to_float32( int32 ); 123 1.7 matt float32 uint32_to_float32( uint32 ); 124 1.7 matt float64 int32_to_float64( int32 ); 125 1.7 matt float64 uint32_to_float64( uint32 ); 126 1.1 jmc #ifdef FLOATX80 127 1.7 matt floatx80 int32_to_floatx80( int32 ); 128 1.7 matt floatx80 uint32_to_floatx80( uint32 ); 129 1.1 jmc #endif 130 1.1 jmc #ifdef FLOAT128 131 1.7 matt float128 int32_to_float128( int32 ); 132 1.7 matt float128 uint32_to_float128( uint32 ); 133 1.1 jmc #endif 134 1.1 jmc float32 int64_to_float32( long long ); 135 1.1 jmc float64 int64_to_float64( long long ); 136 1.1 jmc #ifdef FLOATX80 137 1.1 jmc floatx80 int64_to_floatx80( long long ); 138 1.1 jmc #endif 139 1.1 jmc #ifdef FLOAT128 140 1.1 jmc float128 int64_to_float128( long long ); 141 1.1 jmc #endif 142 1.1 jmc 143 1.1 jmc /* 144 1.1 jmc ------------------------------------------------------------------------------- 145 1.1 jmc Software IEC/IEEE single-precision conversion routines. 146 1.1 jmc ------------------------------------------------------------------------------- 147 1.1 jmc */ 148 1.1 jmc int float32_to_int32( float32 ); 149 1.1 jmc int float32_to_int32_round_to_zero( float32 ); 150 1.1 jmc unsigned int float32_to_uint32_round_to_zero( float32 ); 151 1.1 jmc long long float32_to_int64( float32 ); 152 1.1 jmc long long float32_to_int64_round_to_zero( float32 ); 153 1.1 jmc float64 float32_to_float64( float32 ); 154 1.1 jmc #ifdef FLOATX80 155 1.1 jmc floatx80 float32_to_floatx80( float32 ); 156 1.1 jmc #endif 157 1.1 jmc #ifdef FLOAT128 158 1.1 jmc float128 float32_to_float128( float32 ); 159 1.1 jmc #endif 160 1.1 jmc 161 1.1 jmc /* 162 1.1 jmc ------------------------------------------------------------------------------- 163 1.1 jmc Software IEC/IEEE single-precision operations. 164 1.1 jmc ------------------------------------------------------------------------------- 165 1.1 jmc */ 166 1.1 jmc float32 float32_round_to_int( float32 ); 167 1.1 jmc float32 float32_add( float32, float32 ); 168 1.1 jmc float32 float32_sub( float32, float32 ); 169 1.1 jmc float32 float32_mul( float32, float32 ); 170 1.1 jmc float32 float32_div( float32, float32 ); 171 1.1 jmc float32 float32_rem( float32, float32 ); 172 1.1 jmc float32 float32_sqrt( float32 ); 173 1.1 jmc flag float32_eq( float32, float32 ); 174 1.1 jmc flag float32_le( float32, float32 ); 175 1.1 jmc flag float32_lt( float32, float32 ); 176 1.1 jmc flag float32_eq_signaling( float32, float32 ); 177 1.1 jmc flag float32_le_quiet( float32, float32 ); 178 1.1 jmc flag float32_lt_quiet( float32, float32 ); 179 1.1 jmc flag float32_is_signaling_nan( float32 ); 180 1.1 jmc 181 1.1 jmc /* 182 1.1 jmc ------------------------------------------------------------------------------- 183 1.1 jmc Software IEC/IEEE double-precision conversion routines. 184 1.1 jmc ------------------------------------------------------------------------------- 185 1.1 jmc */ 186 1.1 jmc int float64_to_int32( float64 ); 187 1.1 jmc int float64_to_int32_round_to_zero( float64 ); 188 1.1 jmc unsigned int float64_to_uint32_round_to_zero( float64 ); 189 1.1 jmc long long float64_to_int64( float64 ); 190 1.1 jmc long long float64_to_int64_round_to_zero( float64 ); 191 1.1 jmc float32 float64_to_float32( float64 ); 192 1.1 jmc #ifdef FLOATX80 193 1.1 jmc floatx80 float64_to_floatx80( float64 ); 194 1.1 jmc #endif 195 1.1 jmc #ifdef FLOAT128 196 1.1 jmc float128 float64_to_float128( float64 ); 197 1.1 jmc #endif 198 1.1 jmc 199 1.1 jmc /* 200 1.1 jmc ------------------------------------------------------------------------------- 201 1.1 jmc Software IEC/IEEE double-precision operations. 202 1.1 jmc ------------------------------------------------------------------------------- 203 1.1 jmc */ 204 1.1 jmc float64 float64_round_to_int( float64 ); 205 1.1 jmc float64 float64_add( float64, float64 ); 206 1.1 jmc float64 float64_sub( float64, float64 ); 207 1.1 jmc float64 float64_mul( float64, float64 ); 208 1.1 jmc float64 float64_div( float64, float64 ); 209 1.1 jmc float64 float64_rem( float64, float64 ); 210 1.1 jmc float64 float64_sqrt( float64 ); 211 1.1 jmc flag float64_eq( float64, float64 ); 212 1.1 jmc flag float64_le( float64, float64 ); 213 1.1 jmc flag float64_lt( float64, float64 ); 214 1.1 jmc flag float64_eq_signaling( float64, float64 ); 215 1.1 jmc flag float64_le_quiet( float64, float64 ); 216 1.1 jmc flag float64_lt_quiet( float64, float64 ); 217 1.1 jmc flag float64_is_signaling_nan( float64 ); 218 1.1 jmc 219 1.1 jmc #ifdef FLOATX80 220 1.1 jmc 221 1.1 jmc /* 222 1.1 jmc ------------------------------------------------------------------------------- 223 1.1 jmc Software IEC/IEEE extended double-precision conversion routines. 224 1.1 jmc ------------------------------------------------------------------------------- 225 1.1 jmc */ 226 1.1 jmc int floatx80_to_int32( floatx80 ); 227 1.1 jmc int floatx80_to_int32_round_to_zero( floatx80 ); 228 1.1 jmc long long floatx80_to_int64( floatx80 ); 229 1.1 jmc long long floatx80_to_int64_round_to_zero( floatx80 ); 230 1.1 jmc float32 floatx80_to_float32( floatx80 ); 231 1.1 jmc float64 floatx80_to_float64( floatx80 ); 232 1.1 jmc #ifdef FLOAT128 233 1.1 jmc float128 floatx80_to_float128( floatx80 ); 234 1.1 jmc #endif 235 1.1 jmc 236 1.1 jmc /* 237 1.1 jmc ------------------------------------------------------------------------------- 238 1.1 jmc Software IEC/IEEE extended double-precision rounding precision. Valid 239 1.1 jmc values are 32, 64, and 80. 240 1.1 jmc ------------------------------------------------------------------------------- 241 1.1 jmc */ 242 1.1 jmc extern int floatx80_rounding_precision; 243 1.1 jmc 244 1.1 jmc /* 245 1.1 jmc ------------------------------------------------------------------------------- 246 1.1 jmc Software IEC/IEEE extended double-precision operations. 247 1.1 jmc ------------------------------------------------------------------------------- 248 1.1 jmc */ 249 1.1 jmc floatx80 floatx80_round_to_int( floatx80 ); 250 1.1 jmc floatx80 floatx80_add( floatx80, floatx80 ); 251 1.1 jmc floatx80 floatx80_sub( floatx80, floatx80 ); 252 1.1 jmc floatx80 floatx80_mul( floatx80, floatx80 ); 253 1.1 jmc floatx80 floatx80_div( floatx80, floatx80 ); 254 1.1 jmc floatx80 floatx80_rem( floatx80, floatx80 ); 255 1.1 jmc floatx80 floatx80_sqrt( floatx80 ); 256 1.1 jmc flag floatx80_eq( floatx80, floatx80 ); 257 1.1 jmc flag floatx80_le( floatx80, floatx80 ); 258 1.1 jmc flag floatx80_lt( floatx80, floatx80 ); 259 1.1 jmc flag floatx80_eq_signaling( floatx80, floatx80 ); 260 1.1 jmc flag floatx80_le_quiet( floatx80, floatx80 ); 261 1.1 jmc flag floatx80_lt_quiet( floatx80, floatx80 ); 262 1.1 jmc flag floatx80_is_signaling_nan( floatx80 ); 263 1.1 jmc 264 1.1 jmc #endif 265 1.1 jmc 266 1.1 jmc #ifdef FLOAT128 267 1.1 jmc 268 1.1 jmc /* 269 1.1 jmc ------------------------------------------------------------------------------- 270 1.1 jmc Software IEC/IEEE quadruple-precision conversion routines. 271 1.1 jmc ------------------------------------------------------------------------------- 272 1.1 jmc */ 273 1.1 jmc int float128_to_int32( float128 ); 274 1.1 jmc int float128_to_int32_round_to_zero( float128 ); 275 1.1 jmc long long float128_to_int64( float128 ); 276 1.1 jmc long long float128_to_int64_round_to_zero( float128 ); 277 1.6 martin unsigned long long float128_to_uint64_round_to_zero( float128 ); 278 1.1 jmc float32 float128_to_float32( float128 ); 279 1.1 jmc float64 float128_to_float64( float128 ); 280 1.1 jmc #ifdef FLOATX80 281 1.1 jmc floatx80 float128_to_floatx80( float128 ); 282 1.1 jmc #endif 283 1.1 jmc 284 1.1 jmc /* 285 1.1 jmc ------------------------------------------------------------------------------- 286 1.1 jmc Software IEC/IEEE quadruple-precision operations. 287 1.1 jmc ------------------------------------------------------------------------------- 288 1.1 jmc */ 289 1.1 jmc float128 float128_round_to_int( float128 ); 290 1.1 jmc float128 float128_add( float128, float128 ); 291 1.1 jmc float128 float128_sub( float128, float128 ); 292 1.1 jmc float128 float128_mul( float128, float128 ); 293 1.1 jmc float128 float128_div( float128, float128 ); 294 1.1 jmc float128 float128_rem( float128, float128 ); 295 1.1 jmc float128 float128_sqrt( float128 ); 296 1.1 jmc flag float128_eq( float128, float128 ); 297 1.1 jmc flag float128_le( float128, float128 ); 298 1.1 jmc flag float128_lt( float128, float128 ); 299 1.1 jmc flag float128_eq_signaling( float128, float128 ); 300 1.1 jmc flag float128_le_quiet( float128, float128 ); 301 1.1 jmc flag float128_lt_quiet( float128, float128 ); 302 1.1 jmc flag float128_is_signaling_nan( float128 ); 303 1.1 jmc flag float128_is_nan( float128 ); 304 1.1 jmc 305 1.1 jmc #endif 306