11da177e4SLinus Torvalds 21da177e4SLinus Torvalds /* 31da177e4SLinus Torvalds =============================================================================== 41da177e4SLinus Torvalds 51da177e4SLinus Torvalds This C header file is part of the SoftFloat IEC/IEEE Floating-point 61da177e4SLinus Torvalds Arithmetic Package, Release 2. 71da177e4SLinus Torvalds 81da177e4SLinus Torvalds Written by John R. Hauser. This work was made possible in part by the 91da177e4SLinus Torvalds International Computer Science Institute, located at Suite 600, 1947 Center 101da177e4SLinus Torvalds Street, Berkeley, California 94704. Funding was partially provided by the 111da177e4SLinus Torvalds National Science Foundation under grant MIP-9311980. The original version 121da177e4SLinus Torvalds of this code was written as part of a project to build a fixed-point vector 131da177e4SLinus Torvalds processor in collaboration with the University of California at Berkeley, 141da177e4SLinus Torvalds overseen by Profs. Nelson Morgan and John Wawrzynek. More information 151da177e4SLinus Torvalds is available through the Web page `http://HTTP.CS.Berkeley.EDU/~jhauser/ 161da177e4SLinus Torvalds arithmetic/softfloat.html'. 171da177e4SLinus Torvalds 181da177e4SLinus Torvalds THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort 191da177e4SLinus Torvalds has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT 201da177e4SLinus Torvalds TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO 211da177e4SLinus Torvalds PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY 221da177e4SLinus Torvalds AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE. 231da177e4SLinus Torvalds 241da177e4SLinus Torvalds Derivative works are acceptable, even for commercial purposes, so long as 251da177e4SLinus Torvalds (1) they include prominent notice that the work is derivative, and (2) they 261da177e4SLinus Torvalds include prominent notice akin to these three paragraphs for those parts of 271da177e4SLinus Torvalds this code that are retained. 281da177e4SLinus Torvalds 291da177e4SLinus Torvalds =============================================================================== 301da177e4SLinus Torvalds */ 311da177e4SLinus Torvalds 321da177e4SLinus Torvalds #ifndef __SOFTFLOAT_H__ 331da177e4SLinus Torvalds #define __SOFTFLOAT_H__ 341da177e4SLinus Torvalds 351da177e4SLinus Torvalds #include <linux/config.h> 361da177e4SLinus Torvalds 371da177e4SLinus Torvalds /* 381da177e4SLinus Torvalds ------------------------------------------------------------------------------- 391da177e4SLinus Torvalds The macro `FLOATX80' must be defined to enable the extended double-precision 401da177e4SLinus Torvalds floating-point format `floatx80'. If this macro is not defined, the 411da177e4SLinus Torvalds `floatx80' type will not be defined, and none of the functions that either 421da177e4SLinus Torvalds input or output the `floatx80' type will be defined. 431da177e4SLinus Torvalds ------------------------------------------------------------------------------- 441da177e4SLinus Torvalds */ 451da177e4SLinus Torvalds #ifdef CONFIG_FPE_NWFPE_XP 461da177e4SLinus Torvalds #define FLOATX80 471da177e4SLinus Torvalds #endif 481da177e4SLinus Torvalds 491da177e4SLinus Torvalds /* 501da177e4SLinus Torvalds ------------------------------------------------------------------------------- 511da177e4SLinus Torvalds Software IEC/IEEE floating-point types. 521da177e4SLinus Torvalds ------------------------------------------------------------------------------- 531da177e4SLinus Torvalds */ 541da177e4SLinus Torvalds typedef unsigned long int float32; 551da177e4SLinus Torvalds typedef unsigned long long float64; 561da177e4SLinus Torvalds typedef struct { 571da177e4SLinus Torvalds unsigned short high; 581da177e4SLinus Torvalds unsigned long long low; 591da177e4SLinus Torvalds } floatx80; 601da177e4SLinus Torvalds 611da177e4SLinus Torvalds /* 621da177e4SLinus Torvalds ------------------------------------------------------------------------------- 631da177e4SLinus Torvalds Software IEC/IEEE floating-point underflow tininess-detection mode. 641da177e4SLinus Torvalds ------------------------------------------------------------------------------- 651da177e4SLinus Torvalds */ 661da177e4SLinus Torvalds extern signed char float_detect_tininess; 671da177e4SLinus Torvalds enum { 681da177e4SLinus Torvalds float_tininess_after_rounding = 0, 691da177e4SLinus Torvalds float_tininess_before_rounding = 1 701da177e4SLinus Torvalds }; 711da177e4SLinus Torvalds 721da177e4SLinus Torvalds /* 731da177e4SLinus Torvalds ------------------------------------------------------------------------------- 741da177e4SLinus Torvalds Software IEC/IEEE floating-point rounding mode. 751da177e4SLinus Torvalds ------------------------------------------------------------------------------- 761da177e4SLinus Torvalds */ 77f148af25SRichard Purdie //extern int8 float_rounding_mode; 781da177e4SLinus Torvalds enum { 791da177e4SLinus Torvalds float_round_nearest_even = 0, 801da177e4SLinus Torvalds float_round_to_zero = 1, 811da177e4SLinus Torvalds float_round_down = 2, 821da177e4SLinus Torvalds float_round_up = 3 831da177e4SLinus Torvalds }; 841da177e4SLinus Torvalds 851da177e4SLinus Torvalds /* 861da177e4SLinus Torvalds ------------------------------------------------------------------------------- 871da177e4SLinus Torvalds Software IEC/IEEE floating-point exception flags. 881da177e4SLinus Torvalds ------------------------------------------------------------------------------- 891da177e4SLinus Torvalds enum { 901da177e4SLinus Torvalds float_flag_inexact = 1, 911da177e4SLinus Torvalds float_flag_underflow = 2, 921da177e4SLinus Torvalds float_flag_overflow = 4, 931da177e4SLinus Torvalds float_flag_divbyzero = 8, 941da177e4SLinus Torvalds float_flag_invalid = 16 951da177e4SLinus Torvalds }; 961da177e4SLinus Torvalds 971da177e4SLinus Torvalds ScottB: November 4, 1998 981da177e4SLinus Torvalds Changed the enumeration to match the bit order in the FPA11. 991da177e4SLinus Torvalds */ 1001da177e4SLinus Torvalds 1011da177e4SLinus Torvalds enum { 1021da177e4SLinus Torvalds float_flag_invalid = 1, 1031da177e4SLinus Torvalds float_flag_divbyzero = 2, 1041da177e4SLinus Torvalds float_flag_overflow = 4, 1051da177e4SLinus Torvalds float_flag_underflow = 8, 1061da177e4SLinus Torvalds float_flag_inexact = 16 1071da177e4SLinus Torvalds }; 1081da177e4SLinus Torvalds 1091da177e4SLinus Torvalds /* 1101da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1111da177e4SLinus Torvalds Routine to raise any or all of the software IEC/IEEE floating-point 1121da177e4SLinus Torvalds exception flags. 1131da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1141da177e4SLinus Torvalds */ 1151da177e4SLinus Torvalds void float_raise( signed char ); 1161da177e4SLinus Torvalds 1171da177e4SLinus Torvalds /* 1181da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1191da177e4SLinus Torvalds Software IEC/IEEE integer-to-floating-point conversion routines. 1201da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1211da177e4SLinus Torvalds */ 122f148af25SRichard Purdie float32 int32_to_float32( struct roundingData *, signed int ); 1231da177e4SLinus Torvalds float64 int32_to_float64( signed int ); 1241da177e4SLinus Torvalds #ifdef FLOATX80 1251da177e4SLinus Torvalds floatx80 int32_to_floatx80( signed int ); 1261da177e4SLinus Torvalds #endif 1271da177e4SLinus Torvalds 1281da177e4SLinus Torvalds /* 1291da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1301da177e4SLinus Torvalds Software IEC/IEEE single-precision conversion routines. 1311da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1321da177e4SLinus Torvalds */ 133f148af25SRichard Purdie signed int float32_to_int32( struct roundingData *, float32 ); 1341da177e4SLinus Torvalds signed int float32_to_int32_round_to_zero( float32 ); 1351da177e4SLinus Torvalds float64 float32_to_float64( float32 ); 1361da177e4SLinus Torvalds #ifdef FLOATX80 1371da177e4SLinus Torvalds floatx80 float32_to_floatx80( float32 ); 1381da177e4SLinus Torvalds #endif 1391da177e4SLinus Torvalds 1401da177e4SLinus Torvalds /* 1411da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1421da177e4SLinus Torvalds Software IEC/IEEE single-precision operations. 1431da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1441da177e4SLinus Torvalds */ 145f148af25SRichard Purdie float32 float32_round_to_int( struct roundingData*, float32 ); 146f148af25SRichard Purdie float32 float32_add( struct roundingData *, float32, float32 ); 147f148af25SRichard Purdie float32 float32_sub( struct roundingData *, float32, float32 ); 148f148af25SRichard Purdie float32 float32_mul( struct roundingData *, float32, float32 ); 149f148af25SRichard Purdie float32 float32_div( struct roundingData *, float32, float32 ); 150f148af25SRichard Purdie float32 float32_rem( struct roundingData *, float32, float32 ); 151f148af25SRichard Purdie float32 float32_sqrt( struct roundingData*, float32 ); 1521da177e4SLinus Torvalds char float32_eq( float32, float32 ); 1531da177e4SLinus Torvalds char float32_le( float32, float32 ); 1541da177e4SLinus Torvalds char float32_lt( float32, float32 ); 1551da177e4SLinus Torvalds char float32_eq_signaling( float32, float32 ); 1561da177e4SLinus Torvalds char float32_le_quiet( float32, float32 ); 1571da177e4SLinus Torvalds char float32_lt_quiet( float32, float32 ); 1581da177e4SLinus Torvalds char float32_is_signaling_nan( float32 ); 1591da177e4SLinus Torvalds 1601da177e4SLinus Torvalds /* 1611da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1621da177e4SLinus Torvalds Software IEC/IEEE double-precision conversion routines. 1631da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1641da177e4SLinus Torvalds */ 165f148af25SRichard Purdie signed int float64_to_int32( struct roundingData *, float64 ); 1661da177e4SLinus Torvalds signed int float64_to_int32_round_to_zero( float64 ); 167f148af25SRichard Purdie float32 float64_to_float32( struct roundingData *, float64 ); 1681da177e4SLinus Torvalds #ifdef FLOATX80 1691da177e4SLinus Torvalds floatx80 float64_to_floatx80( float64 ); 1701da177e4SLinus Torvalds #endif 1711da177e4SLinus Torvalds 1721da177e4SLinus Torvalds /* 1731da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1741da177e4SLinus Torvalds Software IEC/IEEE double-precision operations. 1751da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1761da177e4SLinus Torvalds */ 177f148af25SRichard Purdie float64 float64_round_to_int( struct roundingData *, float64 ); 178f148af25SRichard Purdie float64 float64_add( struct roundingData *, float64, float64 ); 179f148af25SRichard Purdie float64 float64_sub( struct roundingData *, float64, float64 ); 180f148af25SRichard Purdie float64 float64_mul( struct roundingData *, float64, float64 ); 181f148af25SRichard Purdie float64 float64_div( struct roundingData *, float64, float64 ); 182f148af25SRichard Purdie float64 float64_rem( struct roundingData *, float64, float64 ); 183f148af25SRichard Purdie float64 float64_sqrt( struct roundingData *, float64 ); 1841da177e4SLinus Torvalds char float64_eq( float64, float64 ); 1851da177e4SLinus Torvalds char float64_le( float64, float64 ); 1861da177e4SLinus Torvalds char float64_lt( float64, float64 ); 1871da177e4SLinus Torvalds char float64_eq_signaling( float64, float64 ); 1881da177e4SLinus Torvalds char float64_le_quiet( float64, float64 ); 1891da177e4SLinus Torvalds char float64_lt_quiet( float64, float64 ); 1901da177e4SLinus Torvalds char float64_is_signaling_nan( float64 ); 1911da177e4SLinus Torvalds 1921da177e4SLinus Torvalds #ifdef FLOATX80 1931da177e4SLinus Torvalds 1941da177e4SLinus Torvalds /* 1951da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1961da177e4SLinus Torvalds Software IEC/IEEE extended double-precision conversion routines. 1971da177e4SLinus Torvalds ------------------------------------------------------------------------------- 1981da177e4SLinus Torvalds */ 199f148af25SRichard Purdie signed int floatx80_to_int32( struct roundingData *, floatx80 ); 2001da177e4SLinus Torvalds signed int floatx80_to_int32_round_to_zero( floatx80 ); 201f148af25SRichard Purdie float32 floatx80_to_float32( struct roundingData *, floatx80 ); 202f148af25SRichard Purdie float64 floatx80_to_float64( struct roundingData *, floatx80 ); 2031da177e4SLinus Torvalds 2041da177e4SLinus Torvalds /* 2051da177e4SLinus Torvalds ------------------------------------------------------------------------------- 2061da177e4SLinus Torvalds Software IEC/IEEE extended double-precision operations. 2071da177e4SLinus Torvalds ------------------------------------------------------------------------------- 2081da177e4SLinus Torvalds */ 209f148af25SRichard Purdie floatx80 floatx80_round_to_int( struct roundingData *, floatx80 ); 210f148af25SRichard Purdie floatx80 floatx80_add( struct roundingData *, floatx80, floatx80 ); 211f148af25SRichard Purdie floatx80 floatx80_sub( struct roundingData *, floatx80, floatx80 ); 212f148af25SRichard Purdie floatx80 floatx80_mul( struct roundingData *, floatx80, floatx80 ); 213f148af25SRichard Purdie floatx80 floatx80_div( struct roundingData *, floatx80, floatx80 ); 214f148af25SRichard Purdie floatx80 floatx80_rem( struct roundingData *, floatx80, floatx80 ); 215f148af25SRichard Purdie floatx80 floatx80_sqrt( struct roundingData *, floatx80 ); 2161da177e4SLinus Torvalds char floatx80_eq( floatx80, floatx80 ); 2171da177e4SLinus Torvalds char floatx80_le( floatx80, floatx80 ); 2181da177e4SLinus Torvalds char floatx80_lt( floatx80, floatx80 ); 2191da177e4SLinus Torvalds char floatx80_eq_signaling( floatx80, floatx80 ); 2201da177e4SLinus Torvalds char floatx80_le_quiet( floatx80, floatx80 ); 2211da177e4SLinus Torvalds char floatx80_lt_quiet( floatx80, floatx80 ); 2221da177e4SLinus Torvalds char floatx80_is_signaling_nan( floatx80 ); 2231da177e4SLinus Torvalds 2241da177e4SLinus Torvalds #endif 2251da177e4SLinus Torvalds 2261da177e4SLinus Torvalds static inline flag extractFloat32Sign(float32 a) 2271da177e4SLinus Torvalds { 2281da177e4SLinus Torvalds return a >> 31; 2291da177e4SLinus Torvalds } 2301da177e4SLinus Torvalds 2311da177e4SLinus Torvalds static inline flag float32_eq_nocheck(float32 a, float32 b) 2321da177e4SLinus Torvalds { 2331da177e4SLinus Torvalds return (a == b) || ((bits32) ((a | b) << 1) == 0); 2341da177e4SLinus Torvalds } 2351da177e4SLinus Torvalds 2361da177e4SLinus Torvalds static inline flag float32_lt_nocheck(float32 a, float32 b) 2371da177e4SLinus Torvalds { 2381da177e4SLinus Torvalds flag aSign, bSign; 2391da177e4SLinus Torvalds 2401da177e4SLinus Torvalds aSign = extractFloat32Sign(a); 2411da177e4SLinus Torvalds bSign = extractFloat32Sign(b); 2421da177e4SLinus Torvalds if (aSign != bSign) 2431da177e4SLinus Torvalds return aSign && ((bits32) ((a | b) << 1) != 0); 2441da177e4SLinus Torvalds return (a != b) && (aSign ^ (a < b)); 2451da177e4SLinus Torvalds } 2461da177e4SLinus Torvalds 2471da177e4SLinus Torvalds static inline flag extractFloat64Sign(float64 a) 2481da177e4SLinus Torvalds { 2491da177e4SLinus Torvalds return a >> 63; 2501da177e4SLinus Torvalds } 2511da177e4SLinus Torvalds 2521da177e4SLinus Torvalds static inline flag float64_eq_nocheck(float64 a, float64 b) 2531da177e4SLinus Torvalds { 2541da177e4SLinus Torvalds return (a == b) || ((bits64) ((a | b) << 1) == 0); 2551da177e4SLinus Torvalds } 2561da177e4SLinus Torvalds 2571da177e4SLinus Torvalds static inline flag float64_lt_nocheck(float64 a, float64 b) 2581da177e4SLinus Torvalds { 2591da177e4SLinus Torvalds flag aSign, bSign; 2601da177e4SLinus Torvalds 2611da177e4SLinus Torvalds aSign = extractFloat64Sign(a); 2621da177e4SLinus Torvalds bSign = extractFloat64Sign(b); 2631da177e4SLinus Torvalds if (aSign != bSign) 2641da177e4SLinus Torvalds return aSign && ((bits64) ((a | b) << 1) != 0); 2651da177e4SLinus Torvalds return (a != b) && (aSign ^ (a < b)); 2661da177e4SLinus Torvalds } 2671da177e4SLinus Torvalds 268*6ec5e7f3SBen Dooks extern flag float32_is_nan( float32 a ); 269*6ec5e7f3SBen Dooks extern flag float64_is_nan( float64 a ); 270*6ec5e7f3SBen Dooks 2711da177e4SLinus Torvalds #endif 272