Andreas Färber | 8d725fa | 2011-03-07 01:34:04 +0100 | [diff] [blame] | 1 | /* |
| 2 | * QEMU float support |
| 3 | * |
| 4 | * Derived from SoftFloat. |
| 5 | */ |
| 6 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 7 | /*============================================================================ |
| 8 | |
| 9 | This C header file is part of the SoftFloat IEC/IEEE Floating-point Arithmetic |
| 10 | Package, Release 2b. |
| 11 | |
| 12 | Written by John R. Hauser. This work was made possible in part by the |
| 13 | International Computer Science Institute, located at Suite 600, 1947 Center |
| 14 | Street, Berkeley, California 94704. Funding was partially provided by the |
| 15 | National Science Foundation under grant MIP-9311980. The original version |
| 16 | of this code was written as part of a project to build a fixed-point vector |
| 17 | processor in collaboration with the University of California at Berkeley, |
| 18 | overseen by Profs. Nelson Morgan and John Wawrzynek. More information |
| 19 | is available through the Web page `http://www.cs.berkeley.edu/~jhauser/ |
| 20 | arithmetic/SoftFloat.html'. |
| 21 | |
| 22 | THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort has |
| 23 | been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT TIMES |
| 24 | RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO PERSONS |
| 25 | AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ALL LOSSES, |
| 26 | COSTS, OR OTHER PROBLEMS THEY INCUR DUE TO THE SOFTWARE, AND WHO FURTHERMORE |
| 27 | EFFECTIVELY INDEMNIFY JOHN HAUSER AND THE INTERNATIONAL COMPUTER SCIENCE |
| 28 | INSTITUTE (possibly via similar legal warning) AGAINST ALL LOSSES, COSTS, OR |
| 29 | OTHER PROBLEMS INCURRED BY THEIR CUSTOMERS AND CLIENTS DUE TO THE SOFTWARE. |
| 30 | |
| 31 | Derivative works are acceptable, even for commercial purposes, so long as |
| 32 | (1) the source code for the derivative work includes prominent notice that |
| 33 | the work is derivative, and (2) the source code includes prominent notice with |
| 34 | these four paragraphs for those parts of this code that are retained. |
| 35 | |
| 36 | =============================================================================*/ |
| 37 | |
| 38 | #ifndef SOFTFLOAT_H |
| 39 | #define SOFTFLOAT_H |
| 40 | |
Juan Quintela | 75b5a69 | 2009-07-27 16:13:23 +0200 | [diff] [blame] | 41 | #if defined(CONFIG_SOLARIS) && defined(CONFIG_NEEDS_LIBSUNMATH) |
ths | 0475a5c | 2007-04-01 18:54:44 +0000 | [diff] [blame] | 42 | #include <sunmath.h> |
| 43 | #endif |
| 44 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 45 | #include <inttypes.h> |
| 46 | #include "config.h" |
| 47 | |
| 48 | /*---------------------------------------------------------------------------- |
| 49 | | Each of the following `typedef's defines the most convenient type that holds |
| 50 | | integers of at least as many bits as specified. For example, `uint8' should |
| 51 | | be the most convenient type that can hold unsigned integers of as many as |
| 52 | | 8 bits. The `flag' type must be able to hold either a 0 or 1. For most |
| 53 | | implementations of C, `flag', `uint8', and `int8' should all be `typedef'ed |
| 54 | | to the same as `int'. |
| 55 | *----------------------------------------------------------------------------*/ |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 56 | typedef uint8_t flag; |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 57 | typedef uint8_t uint8; |
| 58 | typedef int8_t int8; |
malc | b29fe3e | 2008-11-18 01:42:22 +0000 | [diff] [blame] | 59 | #ifndef _AIX |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 60 | typedef int uint16; |
| 61 | typedef int int16; |
malc | b29fe3e | 2008-11-18 01:42:22 +0000 | [diff] [blame] | 62 | #endif |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 63 | typedef unsigned int uint32; |
| 64 | typedef signed int int32; |
| 65 | typedef uint64_t uint64; |
| 66 | typedef int64_t int64; |
| 67 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 68 | #define LIT64( a ) a##LL |
| 69 | #define INLINE static inline |
| 70 | |
Guan Xuetao | d2fbca9 | 2011-04-12 16:27:03 +0800 | [diff] [blame] | 71 | #if defined(TARGET_MIPS) || defined(TARGET_SH4) || defined(TARGET_UNICORE32) |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 72 | #define SNAN_BIT_IS_ONE 1 |
| 73 | #else |
| 74 | #define SNAN_BIT_IS_ONE 0 |
| 75 | #endif |
| 76 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 77 | #define STATUS_PARAM , float_status *status |
| 78 | #define STATUS(field) status->field |
| 79 | #define STATUS_VAR , status |
| 80 | |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 81 | /*---------------------------------------------------------------------------- |
| 82 | | Software IEC/IEEE floating-point ordering relations |
| 83 | *----------------------------------------------------------------------------*/ |
| 84 | enum { |
| 85 | float_relation_less = -1, |
| 86 | float_relation_equal = 0, |
| 87 | float_relation_greater = 1, |
| 88 | float_relation_unordered = 2 |
| 89 | }; |
| 90 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 91 | /*---------------------------------------------------------------------------- |
| 92 | | Software IEC/IEEE floating-point types. |
| 93 | *----------------------------------------------------------------------------*/ |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 94 | /* Use structures for soft-float types. This prevents accidentally mixing |
| 95 | them with native int/float types. A sufficiently clever compiler and |
| 96 | sane ABI should be able to see though these structs. However |
| 97 | x86/gcc 3.x seems to struggle a bit, so leave them disabled by default. */ |
| 98 | //#define USE_SOFTFLOAT_STRUCT_TYPES |
| 99 | #ifdef USE_SOFTFLOAT_STRUCT_TYPES |
| 100 | typedef struct { |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 101 | uint16_t v; |
| 102 | } float16; |
| 103 | #define float16_val(x) (((float16)(x)).v) |
| 104 | #define make_float16(x) __extension__ ({ float16 f16_val = {x}; f16_val; }) |
Peter Maydell | d5138cf | 2011-02-10 13:59:34 +0000 | [diff] [blame] | 105 | #define const_float16(x) { x } |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 106 | typedef struct { |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 107 | uint32_t v; |
| 108 | } float32; |
| 109 | /* The cast ensures an error if the wrong type is passed. */ |
| 110 | #define float32_val(x) (((float32)(x)).v) |
| 111 | #define make_float32(x) __extension__ ({ float32 f32_val = {x}; f32_val; }) |
Peter Maydell | d5138cf | 2011-02-10 13:59:34 +0000 | [diff] [blame] | 112 | #define const_float32(x) { x } |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 113 | typedef struct { |
| 114 | uint64_t v; |
| 115 | } float64; |
| 116 | #define float64_val(x) (((float64)(x)).v) |
| 117 | #define make_float64(x) __extension__ ({ float64 f64_val = {x}; f64_val; }) |
Peter Maydell | d5138cf | 2011-02-10 13:59:34 +0000 | [diff] [blame] | 118 | #define const_float64(x) { x } |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 119 | #else |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 120 | typedef uint16_t float16; |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 121 | typedef uint32_t float32; |
| 122 | typedef uint64_t float64; |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 123 | #define float16_val(x) (x) |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 124 | #define float32_val(x) (x) |
| 125 | #define float64_val(x) (x) |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 126 | #define make_float16(x) (x) |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 127 | #define make_float32(x) (x) |
| 128 | #define make_float64(x) (x) |
Peter Maydell | d5138cf | 2011-02-10 13:59:34 +0000 | [diff] [blame] | 129 | #define const_float16(x) (x) |
| 130 | #define const_float32(x) (x) |
| 131 | #define const_float64(x) (x) |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 132 | #endif |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 133 | typedef struct { |
| 134 | uint64_t low; |
| 135 | uint16_t high; |
| 136 | } floatx80; |
Aurelien Jarno | f3218a8 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 137 | #define make_floatx80(exp, mant) ((floatx80) { mant, exp }) |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 138 | typedef struct { |
Juan Quintela | e2542fe | 2009-07-27 16:13:06 +0200 | [diff] [blame] | 139 | #ifdef HOST_WORDS_BIGENDIAN |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 140 | uint64_t high, low; |
| 141 | #else |
| 142 | uint64_t low, high; |
| 143 | #endif |
| 144 | } float128; |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 145 | |
| 146 | /*---------------------------------------------------------------------------- |
| 147 | | Software IEC/IEEE floating-point underflow tininess-detection mode. |
| 148 | *----------------------------------------------------------------------------*/ |
| 149 | enum { |
| 150 | float_tininess_after_rounding = 0, |
| 151 | float_tininess_before_rounding = 1 |
| 152 | }; |
| 153 | |
| 154 | /*---------------------------------------------------------------------------- |
| 155 | | Software IEC/IEEE floating-point rounding mode. |
| 156 | *----------------------------------------------------------------------------*/ |
| 157 | enum { |
| 158 | float_round_nearest_even = 0, |
| 159 | float_round_down = 1, |
| 160 | float_round_up = 2, |
| 161 | float_round_to_zero = 3 |
| 162 | }; |
| 163 | |
| 164 | /*---------------------------------------------------------------------------- |
| 165 | | Software IEC/IEEE floating-point exception flags. |
| 166 | *----------------------------------------------------------------------------*/ |
| 167 | enum { |
| 168 | float_flag_invalid = 1, |
| 169 | float_flag_divbyzero = 4, |
| 170 | float_flag_overflow = 8, |
| 171 | float_flag_underflow = 16, |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 172 | float_flag_inexact = 32, |
Peter Maydell | e6afc87 | 2011-05-19 14:46:17 +0100 | [diff] [blame] | 173 | float_flag_input_denormal = 64, |
| 174 | float_flag_output_denormal = 128 |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 175 | }; |
| 176 | |
| 177 | typedef struct float_status { |
| 178 | signed char float_detect_tininess; |
| 179 | signed char float_rounding_mode; |
| 180 | signed char float_exception_flags; |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 181 | signed char floatx80_rounding_precision; |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 182 | /* should denormalised results go to zero and set the inexact flag? */ |
pbrook | fe76d97 | 2008-12-19 14:33:59 +0000 | [diff] [blame] | 183 | flag flush_to_zero; |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 184 | /* should denormalised inputs go to zero and set the input_denormal flag? */ |
| 185 | flag flush_inputs_to_zero; |
pbrook | 5c7908e | 2008-12-19 13:53:37 +0000 | [diff] [blame] | 186 | flag default_nan_mode; |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 187 | } float_status; |
| 188 | |
| 189 | void set_float_rounding_mode(int val STATUS_PARAM); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 190 | void set_float_exception_flags(int val STATUS_PARAM); |
Peter Maydell | c29aca4 | 2011-04-12 13:56:40 +0100 | [diff] [blame] | 191 | INLINE void set_float_detect_tininess(int val STATUS_PARAM) |
| 192 | { |
| 193 | STATUS(float_detect_tininess) = val; |
| 194 | } |
pbrook | fe76d97 | 2008-12-19 14:33:59 +0000 | [diff] [blame] | 195 | INLINE void set_flush_to_zero(flag val STATUS_PARAM) |
| 196 | { |
| 197 | STATUS(flush_to_zero) = val; |
| 198 | } |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 199 | INLINE void set_flush_inputs_to_zero(flag val STATUS_PARAM) |
| 200 | { |
| 201 | STATUS(flush_inputs_to_zero) = val; |
| 202 | } |
pbrook | 5c7908e | 2008-12-19 13:53:37 +0000 | [diff] [blame] | 203 | INLINE void set_default_nan_mode(flag val STATUS_PARAM) |
| 204 | { |
| 205 | STATUS(default_nan_mode) = val; |
| 206 | } |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 207 | INLINE int get_float_exception_flags(float_status *status) |
| 208 | { |
| 209 | return STATUS(float_exception_flags); |
| 210 | } |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 211 | void set_floatx80_rounding_precision(int val STATUS_PARAM); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 212 | |
| 213 | /*---------------------------------------------------------------------------- |
| 214 | | Routine to raise any or all of the software IEC/IEEE floating-point |
| 215 | | exception flags. |
| 216 | *----------------------------------------------------------------------------*/ |
bellard | ec530c8 | 2006-04-25 22:36:06 +0000 | [diff] [blame] | 217 | void float_raise( int8 flags STATUS_PARAM); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 218 | |
| 219 | /*---------------------------------------------------------------------------- |
| 220 | | Software IEC/IEEE integer-to-floating-point conversion routines. |
| 221 | *----------------------------------------------------------------------------*/ |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 222 | float32 int32_to_float32( int32 STATUS_PARAM ); |
| 223 | float64 int32_to_float64( int32 STATUS_PARAM ); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 224 | float32 uint32_to_float32( unsigned int STATUS_PARAM ); |
| 225 | float64 uint32_to_float64( unsigned int STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 226 | floatx80 int32_to_floatx80( int32 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 227 | float128 int32_to_float128( int32 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 228 | float32 int64_to_float32( int64 STATUS_PARAM ); |
| 229 | float32 uint64_to_float32( uint64 STATUS_PARAM ); |
| 230 | float64 int64_to_float64( int64 STATUS_PARAM ); |
| 231 | float64 uint64_to_float64( uint64 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 232 | floatx80 int64_to_floatx80( int64 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 233 | float128 int64_to_float128( int64 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 234 | |
| 235 | /*---------------------------------------------------------------------------- |
Paul Brook | 6001149 | 2009-11-19 16:45:20 +0000 | [diff] [blame] | 236 | | Software half-precision conversion routines. |
| 237 | *----------------------------------------------------------------------------*/ |
Peter Maydell | bb4d4bb | 2011-02-10 11:28:56 +0000 | [diff] [blame] | 238 | float16 float32_to_float16( float32, flag STATUS_PARAM ); |
| 239 | float32 float16_to_float32( float16, flag STATUS_PARAM ); |
| 240 | |
| 241 | /*---------------------------------------------------------------------------- |
| 242 | | Software half-precision operations. |
| 243 | *----------------------------------------------------------------------------*/ |
| 244 | int float16_is_quiet_nan( float16 ); |
| 245 | int float16_is_signaling_nan( float16 ); |
| 246 | float16 float16_maybe_silence_nan( float16 ); |
Paul Brook | 6001149 | 2009-11-19 16:45:20 +0000 | [diff] [blame] | 247 | |
| 248 | /*---------------------------------------------------------------------------- |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 249 | | The pattern for a default generated half-precision NaN. |
| 250 | *----------------------------------------------------------------------------*/ |
| 251 | #if defined(TARGET_ARM) |
| 252 | #define float16_default_nan make_float16(0x7E00) |
| 253 | #elif SNAN_BIT_IS_ONE |
| 254 | #define float16_default_nan make_float16(0x7DFF) |
| 255 | #else |
| 256 | #define float16_default_nan make_float16(0xFE00) |
| 257 | #endif |
| 258 | |
| 259 | /*---------------------------------------------------------------------------- |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 260 | | Software IEC/IEEE single-precision conversion routines. |
| 261 | *----------------------------------------------------------------------------*/ |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 262 | int16 float32_to_int16_round_to_zero( float32 STATUS_PARAM ); |
Peter Maydell | cbcef45 | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 263 | unsigned int float32_to_uint16_round_to_zero( float32 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 264 | int32 float32_to_int32( float32 STATUS_PARAM ); |
| 265 | int32 float32_to_int32_round_to_zero( float32 STATUS_PARAM ); |
| 266 | uint32 float32_to_uint32( float32 STATUS_PARAM ); |
| 267 | uint32 float32_to_uint32_round_to_zero( float32 STATUS_PARAM ); |
| 268 | int64 float32_to_int64( float32 STATUS_PARAM ); |
| 269 | int64 float32_to_int64_round_to_zero( float32 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 270 | float64 float32_to_float64( float32 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 271 | floatx80 float32_to_floatx80( float32 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 272 | float128 float32_to_float128( float32 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 273 | |
| 274 | /*---------------------------------------------------------------------------- |
| 275 | | Software IEC/IEEE single-precision operations. |
| 276 | *----------------------------------------------------------------------------*/ |
| 277 | float32 float32_round_to_int( float32 STATUS_PARAM ); |
| 278 | float32 float32_add( float32, float32 STATUS_PARAM ); |
| 279 | float32 float32_sub( float32, float32 STATUS_PARAM ); |
| 280 | float32 float32_mul( float32, float32 STATUS_PARAM ); |
| 281 | float32 float32_div( float32, float32 STATUS_PARAM ); |
| 282 | float32 float32_rem( float32, float32 STATUS_PARAM ); |
| 283 | float32 float32_sqrt( float32 STATUS_PARAM ); |
Aurelien Jarno | 8229c99 | 2009-02-05 12:04:05 +0100 | [diff] [blame] | 284 | float32 float32_exp2( float32 STATUS_PARAM ); |
aurel32 | 374dfc3 | 2009-02-05 13:42:47 +0000 | [diff] [blame] | 285 | float32 float32_log2( float32 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 286 | int float32_eq( float32, float32 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 287 | int float32_le( float32, float32 STATUS_PARAM ); |
| 288 | int float32_lt( float32, float32 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 289 | int float32_unordered( float32, float32 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 290 | int float32_eq_quiet( float32, float32 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 291 | int float32_le_quiet( float32, float32 STATUS_PARAM ); |
| 292 | int float32_lt_quiet( float32, float32 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 293 | int float32_unordered_quiet( float32, float32 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 294 | int float32_compare( float32, float32 STATUS_PARAM ); |
| 295 | int float32_compare_quiet( float32, float32 STATUS_PARAM ); |
Peter Maydell | 274f1b0 | 2011-03-11 08:12:25 +0000 | [diff] [blame] | 296 | float32 float32_min(float32, float32 STATUS_PARAM); |
| 297 | float32 float32_max(float32, float32 STATUS_PARAM); |
Peter Maydell | 1856987 | 2010-12-17 15:56:06 +0000 | [diff] [blame] | 298 | int float32_is_quiet_nan( float32 ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 299 | int float32_is_signaling_nan( float32 ); |
Peter Maydell | b408dbd | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 300 | float32 float32_maybe_silence_nan( float32 ); |
pbrook | 9ee6e8b | 2007-11-11 00:04:49 +0000 | [diff] [blame] | 301 | float32 float32_scalbn( float32, int STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 302 | |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 303 | INLINE float32 float32_abs(float32 a) |
| 304 | { |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 305 | /* Note that abs does *not* handle NaN specially, nor does |
| 306 | * it flush denormal inputs to zero. |
| 307 | */ |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 308 | return make_float32(float32_val(a) & 0x7fffffff); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 309 | } |
| 310 | |
| 311 | INLINE float32 float32_chs(float32 a) |
| 312 | { |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 313 | /* Note that chs does *not* handle NaN specially, nor does |
| 314 | * it flush denormal inputs to zero. |
| 315 | */ |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 316 | return make_float32(float32_val(a) ^ 0x80000000); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 317 | } |
| 318 | |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 319 | INLINE int float32_is_infinity(float32 a) |
| 320 | { |
aurel32 | dadd71a | 2008-12-18 22:43:16 +0000 | [diff] [blame] | 321 | return (float32_val(a) & 0x7fffffff) == 0x7f800000; |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 322 | } |
| 323 | |
| 324 | INLINE int float32_is_neg(float32 a) |
| 325 | { |
| 326 | return float32_val(a) >> 31; |
| 327 | } |
| 328 | |
| 329 | INLINE int float32_is_zero(float32 a) |
| 330 | { |
| 331 | return (float32_val(a) & 0x7fffffff) == 0; |
| 332 | } |
| 333 | |
Peter Maydell | 21d6ebd | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 334 | INLINE int float32_is_any_nan(float32 a) |
| 335 | { |
| 336 | return ((float32_val(a) & ~(1 << 31)) > 0x7f800000UL); |
| 337 | } |
| 338 | |
Peter Maydell | 6f3300a | 2011-01-14 20:39:18 +0100 | [diff] [blame] | 339 | INLINE int float32_is_zero_or_denormal(float32 a) |
| 340 | { |
| 341 | return (float32_val(a) & 0x7f800000) == 0; |
| 342 | } |
| 343 | |
Christophe Lyon | c30fe7d | 2011-02-21 17:38:45 +0100 | [diff] [blame] | 344 | INLINE float32 float32_set_sign(float32 a, int sign) |
| 345 | { |
| 346 | return make_float32((float32_val(a) & 0x7fffffff) | (sign << 31)); |
| 347 | } |
| 348 | |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 349 | #define float32_zero make_float32(0) |
aurel32 | 196cfc8 | 2009-02-04 13:52:27 +0000 | [diff] [blame] | 350 | #define float32_one make_float32(0x3f800000) |
Aurelien Jarno | 8229c99 | 2009-02-05 12:04:05 +0100 | [diff] [blame] | 351 | #define float32_ln2 make_float32(0x3f317218) |
Aurelien Jarno | c4b4c77 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 352 | #define float32_pi make_float32(0x40490fdb) |
Christophe Lyon | c30fe7d | 2011-02-21 17:38:45 +0100 | [diff] [blame] | 353 | #define float32_half make_float32(0x3f000000) |
| 354 | #define float32_infinity make_float32(0x7f800000) |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 355 | |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 356 | |
| 357 | /*---------------------------------------------------------------------------- |
| 358 | | The pattern for a default generated single-precision NaN. |
| 359 | *----------------------------------------------------------------------------*/ |
| 360 | #if defined(TARGET_SPARC) |
| 361 | #define float32_default_nan make_float32(0x7FFFFFFF) |
| 362 | #elif defined(TARGET_PPC) || defined(TARGET_ARM) || defined(TARGET_ALPHA) |
| 363 | #define float32_default_nan make_float32(0x7FC00000) |
| 364 | #elif SNAN_BIT_IS_ONE |
| 365 | #define float32_default_nan make_float32(0x7FBFFFFF) |
| 366 | #else |
| 367 | #define float32_default_nan make_float32(0xFFC00000) |
| 368 | #endif |
| 369 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 370 | /*---------------------------------------------------------------------------- |
| 371 | | Software IEC/IEEE double-precision conversion routines. |
| 372 | *----------------------------------------------------------------------------*/ |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 373 | int16 float64_to_int16_round_to_zero( float64 STATUS_PARAM ); |
Peter Maydell | cbcef45 | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 374 | unsigned int float64_to_uint16_round_to_zero( float64 STATUS_PARAM ); |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 375 | int32 float64_to_int32( float64 STATUS_PARAM ); |
| 376 | int32 float64_to_int32_round_to_zero( float64 STATUS_PARAM ); |
| 377 | uint32 float64_to_uint32( float64 STATUS_PARAM ); |
| 378 | uint32 float64_to_uint32_round_to_zero( float64 STATUS_PARAM ); |
| 379 | int64 float64_to_int64( float64 STATUS_PARAM ); |
| 380 | int64 float64_to_int64_round_to_zero( float64 STATUS_PARAM ); |
| 381 | uint64 float64_to_uint64 (float64 a STATUS_PARAM); |
| 382 | uint64 float64_to_uint64_round_to_zero (float64 a STATUS_PARAM); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 383 | float32 float64_to_float32( float64 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 384 | floatx80 float64_to_floatx80( float64 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 385 | float128 float64_to_float128( float64 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 386 | |
| 387 | /*---------------------------------------------------------------------------- |
| 388 | | Software IEC/IEEE double-precision operations. |
| 389 | *----------------------------------------------------------------------------*/ |
| 390 | float64 float64_round_to_int( float64 STATUS_PARAM ); |
pbrook | e6e5906 | 2006-10-22 00:18:54 +0000 | [diff] [blame] | 391 | float64 float64_trunc_to_int( float64 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 392 | float64 float64_add( float64, float64 STATUS_PARAM ); |
| 393 | float64 float64_sub( float64, float64 STATUS_PARAM ); |
| 394 | float64 float64_mul( float64, float64 STATUS_PARAM ); |
| 395 | float64 float64_div( float64, float64 STATUS_PARAM ); |
| 396 | float64 float64_rem( float64, float64 STATUS_PARAM ); |
| 397 | float64 float64_sqrt( float64 STATUS_PARAM ); |
aurel32 | 374dfc3 | 2009-02-05 13:42:47 +0000 | [diff] [blame] | 398 | float64 float64_log2( float64 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 399 | int float64_eq( float64, float64 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 400 | int float64_le( float64, float64 STATUS_PARAM ); |
| 401 | int float64_lt( float64, float64 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 402 | int float64_unordered( float64, float64 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 403 | int float64_eq_quiet( float64, float64 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 404 | int float64_le_quiet( float64, float64 STATUS_PARAM ); |
| 405 | int float64_lt_quiet( float64, float64 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 406 | int float64_unordered_quiet( float64, float64 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 407 | int float64_compare( float64, float64 STATUS_PARAM ); |
| 408 | int float64_compare_quiet( float64, float64 STATUS_PARAM ); |
Peter Maydell | 274f1b0 | 2011-03-11 08:12:25 +0000 | [diff] [blame] | 409 | float64 float64_min(float64, float64 STATUS_PARAM); |
| 410 | float64 float64_max(float64, float64 STATUS_PARAM); |
Peter Maydell | 1856987 | 2010-12-17 15:56:06 +0000 | [diff] [blame] | 411 | int float64_is_quiet_nan( float64 a ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 412 | int float64_is_signaling_nan( float64 ); |
Peter Maydell | b408dbd | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 413 | float64 float64_maybe_silence_nan( float64 ); |
pbrook | 9ee6e8b | 2007-11-11 00:04:49 +0000 | [diff] [blame] | 414 | float64 float64_scalbn( float64, int STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 415 | |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 416 | INLINE float64 float64_abs(float64 a) |
| 417 | { |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 418 | /* Note that abs does *not* handle NaN specially, nor does |
| 419 | * it flush denormal inputs to zero. |
| 420 | */ |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 421 | return make_float64(float64_val(a) & 0x7fffffffffffffffLL); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 422 | } |
| 423 | |
| 424 | INLINE float64 float64_chs(float64 a) |
| 425 | { |
Peter Maydell | 37d1866 | 2011-01-06 19:37:53 +0000 | [diff] [blame] | 426 | /* Note that chs does *not* handle NaN specially, nor does |
| 427 | * it flush denormal inputs to zero. |
| 428 | */ |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 429 | return make_float64(float64_val(a) ^ 0x8000000000000000LL); |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 430 | } |
| 431 | |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 432 | INLINE int float64_is_infinity(float64 a) |
| 433 | { |
| 434 | return (float64_val(a) & 0x7fffffffffffffffLL ) == 0x7ff0000000000000LL; |
| 435 | } |
| 436 | |
| 437 | INLINE int float64_is_neg(float64 a) |
| 438 | { |
| 439 | return float64_val(a) >> 63; |
| 440 | } |
| 441 | |
| 442 | INLINE int float64_is_zero(float64 a) |
| 443 | { |
| 444 | return (float64_val(a) & 0x7fffffffffffffffLL) == 0; |
| 445 | } |
| 446 | |
Peter Maydell | 21d6ebd | 2010-12-07 15:37:34 +0000 | [diff] [blame] | 447 | INLINE int float64_is_any_nan(float64 a) |
| 448 | { |
| 449 | return ((float64_val(a) & ~(1ULL << 63)) > 0x7ff0000000000000ULL); |
| 450 | } |
| 451 | |
Aurelien Jarno | 587eabf | 2011-05-15 14:09:18 +0200 | [diff] [blame^] | 452 | INLINE int float64_is_zero_or_denormal(float64 a) |
| 453 | { |
| 454 | return (float64_val(a) & 0x7ff0000000000000LL) == 0; |
| 455 | } |
| 456 | |
Christophe Lyon | c30fe7d | 2011-02-21 17:38:45 +0100 | [diff] [blame] | 457 | INLINE float64 float64_set_sign(float64 a, int sign) |
| 458 | { |
| 459 | return make_float64((float64_val(a) & 0x7fffffffffffffffULL) |
| 460 | | ((int64_t)sign << 63)); |
| 461 | } |
| 462 | |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 463 | #define float64_zero make_float64(0) |
aurel32 | 196cfc8 | 2009-02-04 13:52:27 +0000 | [diff] [blame] | 464 | #define float64_one make_float64(0x3ff0000000000000LL) |
Aurelien Jarno | 8229c99 | 2009-02-05 12:04:05 +0100 | [diff] [blame] | 465 | #define float64_ln2 make_float64(0x3fe62e42fefa39efLL) |
Aurelien Jarno | c4b4c77 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 466 | #define float64_pi make_float64(0x400921fb54442d18LL) |
Christophe Lyon | c30fe7d | 2011-02-21 17:38:45 +0100 | [diff] [blame] | 467 | #define float64_half make_float64(0x3fe0000000000000LL) |
| 468 | #define float64_infinity make_float64(0x7ff0000000000000LL) |
pbrook | f090c9d | 2007-11-18 14:33:24 +0000 | [diff] [blame] | 469 | |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 470 | /*---------------------------------------------------------------------------- |
| 471 | | The pattern for a default generated double-precision NaN. |
| 472 | *----------------------------------------------------------------------------*/ |
| 473 | #if defined(TARGET_SPARC) |
| 474 | #define float64_default_nan make_float64(LIT64( 0x7FFFFFFFFFFFFFFF )) |
| 475 | #elif defined(TARGET_PPC) || defined(TARGET_ARM) || defined(TARGET_ALPHA) |
| 476 | #define float64_default_nan make_float64(LIT64( 0x7FF8000000000000 )) |
| 477 | #elif SNAN_BIT_IS_ONE |
| 478 | #define float64_default_nan make_float64(LIT64( 0x7FF7FFFFFFFFFFFF )) |
| 479 | #else |
| 480 | #define float64_default_nan make_float64(LIT64( 0xFFF8000000000000 )) |
| 481 | #endif |
| 482 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 483 | /*---------------------------------------------------------------------------- |
| 484 | | Software IEC/IEEE extended double-precision conversion routines. |
| 485 | *----------------------------------------------------------------------------*/ |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 486 | int32 floatx80_to_int32( floatx80 STATUS_PARAM ); |
| 487 | int32 floatx80_to_int32_round_to_zero( floatx80 STATUS_PARAM ); |
| 488 | int64 floatx80_to_int64( floatx80 STATUS_PARAM ); |
| 489 | int64 floatx80_to_int64_round_to_zero( floatx80 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 490 | float32 floatx80_to_float32( floatx80 STATUS_PARAM ); |
| 491 | float64 floatx80_to_float64( floatx80 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 492 | float128 floatx80_to_float128( floatx80 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 493 | |
| 494 | /*---------------------------------------------------------------------------- |
| 495 | | Software IEC/IEEE extended double-precision operations. |
| 496 | *----------------------------------------------------------------------------*/ |
| 497 | floatx80 floatx80_round_to_int( floatx80 STATUS_PARAM ); |
| 498 | floatx80 floatx80_add( floatx80, floatx80 STATUS_PARAM ); |
| 499 | floatx80 floatx80_sub( floatx80, floatx80 STATUS_PARAM ); |
| 500 | floatx80 floatx80_mul( floatx80, floatx80 STATUS_PARAM ); |
| 501 | floatx80 floatx80_div( floatx80, floatx80 STATUS_PARAM ); |
| 502 | floatx80 floatx80_rem( floatx80, floatx80 STATUS_PARAM ); |
| 503 | floatx80 floatx80_sqrt( floatx80 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 504 | int floatx80_eq( floatx80, floatx80 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 505 | int floatx80_le( floatx80, floatx80 STATUS_PARAM ); |
| 506 | int floatx80_lt( floatx80, floatx80 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 507 | int floatx80_unordered( floatx80, floatx80 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 508 | int floatx80_eq_quiet( floatx80, floatx80 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 509 | int floatx80_le_quiet( floatx80, floatx80 STATUS_PARAM ); |
| 510 | int floatx80_lt_quiet( floatx80, floatx80 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 511 | int floatx80_unordered_quiet( floatx80, floatx80 STATUS_PARAM ); |
Aurelien Jarno | f6714d3 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 512 | int floatx80_compare( floatx80, floatx80 STATUS_PARAM ); |
| 513 | int floatx80_compare_quiet( floatx80, floatx80 STATUS_PARAM ); |
Peter Maydell | 1856987 | 2010-12-17 15:56:06 +0000 | [diff] [blame] | 514 | int floatx80_is_quiet_nan( floatx80 ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 515 | int floatx80_is_signaling_nan( floatx80 ); |
Aurelien Jarno | f6a7d92 | 2011-01-06 15:38:19 +0100 | [diff] [blame] | 516 | floatx80 floatx80_maybe_silence_nan( floatx80 ); |
pbrook | 9ee6e8b | 2007-11-11 00:04:49 +0000 | [diff] [blame] | 517 | floatx80 floatx80_scalbn( floatx80, int STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 518 | |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 519 | INLINE floatx80 floatx80_abs(floatx80 a) |
| 520 | { |
| 521 | a.high &= 0x7fff; |
| 522 | return a; |
| 523 | } |
| 524 | |
| 525 | INLINE floatx80 floatx80_chs(floatx80 a) |
| 526 | { |
| 527 | a.high ^= 0x8000; |
| 528 | return a; |
| 529 | } |
| 530 | |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 531 | INLINE int floatx80_is_infinity(floatx80 a) |
| 532 | { |
Aurelien Jarno | b76235e | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 533 | return (a.high & 0x7fff) == 0x7fff && a.low == 0x8000000000000000LL; |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 534 | } |
| 535 | |
| 536 | INLINE int floatx80_is_neg(floatx80 a) |
| 537 | { |
| 538 | return a.high >> 15; |
| 539 | } |
| 540 | |
| 541 | INLINE int floatx80_is_zero(floatx80 a) |
| 542 | { |
| 543 | return (a.high & 0x7fff) == 0 && a.low == 0; |
| 544 | } |
| 545 | |
Aurelien Jarno | 587eabf | 2011-05-15 14:09:18 +0200 | [diff] [blame^] | 546 | INLINE int floatx80_is_zero_or_denormal(floatx80 a) |
| 547 | { |
| 548 | return (a.high & 0x7fff) == 0; |
| 549 | } |
| 550 | |
Peter Maydell | 2bed652 | 2011-01-06 18:34:43 +0000 | [diff] [blame] | 551 | INLINE int floatx80_is_any_nan(floatx80 a) |
| 552 | { |
| 553 | return ((a.high & 0x7fff) == 0x7fff) && (a.low<<1); |
| 554 | } |
| 555 | |
Aurelien Jarno | f3218a8 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 556 | #define floatx80_zero make_floatx80(0x0000, 0x0000000000000000LL) |
| 557 | #define floatx80_one make_floatx80(0x3fff, 0x8000000000000000LL) |
| 558 | #define floatx80_ln2 make_floatx80(0x3ffe, 0xb17217f7d1cf79acLL) |
Aurelien Jarno | c4b4c77 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 559 | #define floatx80_pi make_floatx80(0x4000, 0xc90fdaa22168c235LL) |
Aurelien Jarno | f3218a8 | 2011-04-20 13:04:22 +0200 | [diff] [blame] | 560 | #define floatx80_half make_floatx80(0x3ffe, 0x8000000000000000LL) |
| 561 | #define floatx80_infinity make_floatx80(0x7fff, 0x8000000000000000LL) |
| 562 | |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 563 | /*---------------------------------------------------------------------------- |
| 564 | | The pattern for a default generated extended double-precision NaN. The |
| 565 | | `high' and `low' values hold the most- and least-significant bits, |
| 566 | | respectively. |
| 567 | *----------------------------------------------------------------------------*/ |
| 568 | #if SNAN_BIT_IS_ONE |
| 569 | #define floatx80_default_nan_high 0x7FFF |
| 570 | #define floatx80_default_nan_low LIT64( 0xBFFFFFFFFFFFFFFF ) |
| 571 | #else |
| 572 | #define floatx80_default_nan_high 0xFFFF |
| 573 | #define floatx80_default_nan_low LIT64( 0xC000000000000000 ) |
| 574 | #endif |
| 575 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 576 | /*---------------------------------------------------------------------------- |
| 577 | | Software IEC/IEEE quadruple-precision conversion routines. |
| 578 | *----------------------------------------------------------------------------*/ |
Andreas Färber | 87b8cc3 | 2011-03-07 01:34:05 +0100 | [diff] [blame] | 579 | int32 float128_to_int32( float128 STATUS_PARAM ); |
| 580 | int32 float128_to_int32_round_to_zero( float128 STATUS_PARAM ); |
| 581 | int64 float128_to_int64( float128 STATUS_PARAM ); |
| 582 | int64 float128_to_int64_round_to_zero( float128 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 583 | float32 float128_to_float32( float128 STATUS_PARAM ); |
| 584 | float64 float128_to_float64( float128 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 585 | floatx80 float128_to_floatx80( float128 STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 586 | |
| 587 | /*---------------------------------------------------------------------------- |
| 588 | | Software IEC/IEEE quadruple-precision operations. |
| 589 | *----------------------------------------------------------------------------*/ |
| 590 | float128 float128_round_to_int( float128 STATUS_PARAM ); |
| 591 | float128 float128_add( float128, float128 STATUS_PARAM ); |
| 592 | float128 float128_sub( float128, float128 STATUS_PARAM ); |
| 593 | float128 float128_mul( float128, float128 STATUS_PARAM ); |
| 594 | float128 float128_div( float128, float128 STATUS_PARAM ); |
| 595 | float128 float128_rem( float128, float128 STATUS_PARAM ); |
| 596 | float128 float128_sqrt( float128 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 597 | int float128_eq( float128, float128 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 598 | int float128_le( float128, float128 STATUS_PARAM ); |
| 599 | int float128_lt( float128, float128 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 600 | int float128_unordered( float128, float128 STATUS_PARAM ); |
Aurelien Jarno | b689362 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 601 | int float128_eq_quiet( float128, float128 STATUS_PARAM ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 602 | int float128_le_quiet( float128, float128 STATUS_PARAM ); |
| 603 | int float128_lt_quiet( float128, float128 STATUS_PARAM ); |
Aurelien Jarno | 67b7861 | 2011-04-14 00:49:29 +0200 | [diff] [blame] | 604 | int float128_unordered_quiet( float128, float128 STATUS_PARAM ); |
blueswir1 | 1f58732 | 2007-11-25 18:40:20 +0000 | [diff] [blame] | 605 | int float128_compare( float128, float128 STATUS_PARAM ); |
| 606 | int float128_compare_quiet( float128, float128 STATUS_PARAM ); |
Peter Maydell | 1856987 | 2010-12-17 15:56:06 +0000 | [diff] [blame] | 607 | int float128_is_quiet_nan( float128 ); |
bellard | 750afe9 | 2006-10-28 19:27:11 +0000 | [diff] [blame] | 608 | int float128_is_signaling_nan( float128 ); |
Aurelien Jarno | f6a7d92 | 2011-01-06 15:38:19 +0100 | [diff] [blame] | 609 | float128 float128_maybe_silence_nan( float128 ); |
pbrook | 9ee6e8b | 2007-11-11 00:04:49 +0000 | [diff] [blame] | 610 | float128 float128_scalbn( float128, int STATUS_PARAM ); |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 611 | |
bellard | 1d6bda3 | 2005-03-13 18:52:29 +0000 | [diff] [blame] | 612 | INLINE float128 float128_abs(float128 a) |
| 613 | { |
| 614 | a.high &= 0x7fffffffffffffffLL; |
| 615 | return a; |
| 616 | } |
| 617 | |
| 618 | INLINE float128 float128_chs(float128 a) |
| 619 | { |
| 620 | a.high ^= 0x8000000000000000LL; |
| 621 | return a; |
| 622 | } |
| 623 | |
aurel32 | c52ab6f | 2008-12-15 17:14:20 +0000 | [diff] [blame] | 624 | INLINE int float128_is_infinity(float128 a) |
| 625 | { |
| 626 | return (a.high & 0x7fffffffffffffffLL) == 0x7fff000000000000LL && a.low == 0; |
| 627 | } |
| 628 | |
| 629 | INLINE int float128_is_neg(float128 a) |
| 630 | { |
| 631 | return a.high >> 63; |
| 632 | } |
| 633 | |
| 634 | INLINE int float128_is_zero(float128 a) |
| 635 | { |
| 636 | return (a.high & 0x7fffffffffffffffLL) == 0 && a.low == 0; |
| 637 | } |
| 638 | |
Aurelien Jarno | 587eabf | 2011-05-15 14:09:18 +0200 | [diff] [blame^] | 639 | INLINE int float128_is_zero_or_denormal(float128 a) |
| 640 | { |
| 641 | return (a.high & 0x7fff000000000000LL) == 0; |
| 642 | } |
| 643 | |
Peter Maydell | 2bed652 | 2011-01-06 18:34:43 +0000 | [diff] [blame] | 644 | INLINE int float128_is_any_nan(float128 a) |
| 645 | { |
| 646 | return ((a.high >> 48) & 0x7fff) == 0x7fff && |
| 647 | ((a.low != 0) || ((a.high & 0xffffffffffffLL) != 0)); |
| 648 | } |
| 649 | |
Christophe Lyon | 8559666 | 2011-02-21 17:38:44 +0100 | [diff] [blame] | 650 | /*---------------------------------------------------------------------------- |
| 651 | | The pattern for a default generated quadruple-precision NaN. The `high' and |
| 652 | | `low' values hold the most- and least-significant bits, respectively. |
| 653 | *----------------------------------------------------------------------------*/ |
| 654 | #if SNAN_BIT_IS_ONE |
| 655 | #define float128_default_nan_high LIT64( 0x7FFF7FFFFFFFFFFF ) |
| 656 | #define float128_default_nan_low LIT64( 0xFFFFFFFFFFFFFFFF ) |
| 657 | #else |
| 658 | #define float128_default_nan_high LIT64( 0xFFFF800000000000 ) |
| 659 | #define float128_default_nan_low LIT64( 0x0000000000000000 ) |
| 660 | #endif |
| 661 | |
bellard | 158142c | 2005-03-13 16:54:06 +0000 | [diff] [blame] | 662 | #endif /* !SOFTFLOAT_H */ |