1 |
|
---|
2 | /*============================================================================
|
---|
3 |
|
---|
4 | This C header file is part of the SoftFloat IEEE Floating-Point Arithmetic
|
---|
5 | Package, Release 3e, by John R. Hauser.
|
---|
6 |
|
---|
7 | Copyright 2017 The Regents of the University of California. All rights
|
---|
8 | reserved.
|
---|
9 |
|
---|
10 | Redistribution and use in source and binary forms, with or without
|
---|
11 | modification, are permitted provided that the following conditions are met:
|
---|
12 |
|
---|
13 | 1. Redistributions of source code must retain the above copyright notice,
|
---|
14 | this list of conditions, and the following disclaimer.
|
---|
15 |
|
---|
16 | 2. Redistributions in binary form must reproduce the above copyright notice,
|
---|
17 | this list of conditions, and the following disclaimer in the documentation
|
---|
18 | and/or other materials provided with the distribution.
|
---|
19 |
|
---|
20 | 3. Neither the name of the University nor the names of its contributors may
|
---|
21 | be used to endorse or promote products derived from this software without
|
---|
22 | specific prior written permission.
|
---|
23 |
|
---|
24 | THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS", AND ANY
|
---|
25 | EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
---|
26 | WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, ARE
|
---|
27 | DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY
|
---|
28 | DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
---|
29 | (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
---|
30 | LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
---|
31 | ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
---|
32 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
---|
33 | SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
---|
34 |
|
---|
35 | =============================================================================*/
|
---|
36 |
|
---|
37 | #ifndef opts_GCC_h
|
---|
38 | #define opts_GCC_h 1
|
---|
39 |
|
---|
40 | #ifdef INLINE
|
---|
41 |
|
---|
42 | #include <stdint.h>
|
---|
43 | #include "primitiveTypes.h"
|
---|
44 |
|
---|
45 | #ifdef SOFTFLOAT_BUILTIN_CLZ
|
---|
46 |
|
---|
47 | INLINE uint_fast8_t softfloat_countLeadingZeros16( uint16_t a )
|
---|
48 | { return a ? __builtin_clz( a ) - 16 : 16; }
|
---|
49 | #define softfloat_countLeadingZeros16 softfloat_countLeadingZeros16
|
---|
50 |
|
---|
51 | INLINE uint_fast8_t softfloat_countLeadingZeros32( uint32_t a )
|
---|
52 | { return a ? __builtin_clz( a ) : 32; }
|
---|
53 | #define softfloat_countLeadingZeros32 softfloat_countLeadingZeros32
|
---|
54 |
|
---|
55 | INLINE uint_fast8_t softfloat_countLeadingZeros64( uint64_t a )
|
---|
56 | { return a ? __builtin_clzll( a ) : 64; }
|
---|
57 | #define softfloat_countLeadingZeros64 softfloat_countLeadingZeros64
|
---|
58 |
|
---|
59 | #endif
|
---|
60 |
|
---|
61 | #ifdef SOFTFLOAT_INTRINSIC_INT128
|
---|
62 |
|
---|
63 | #include <iprt/cdefs.h> /* VBox: shut up pedantic warnings */
|
---|
64 | RT_GCC_EXTENSION typedef unsigned __int128 softfloat_int128_t;
|
---|
65 |
|
---|
66 | INLINE struct uint128 softfloat_mul64ByShifted32To128( uint64_t a, uint32_t b )
|
---|
67 | {
|
---|
68 | union { softfloat_int128_t ui; struct uint128 s; } uZ;
|
---|
69 | uZ.ui = (softfloat_int128_t) a * ((uint_fast64_t) b<<32);
|
---|
70 | return uZ.s;
|
---|
71 | }
|
---|
72 | #define softfloat_mul64ByShifted32To128 softfloat_mul64ByShifted32To128
|
---|
73 |
|
---|
74 | INLINE struct uint128 softfloat_mul64To128( uint64_t a, uint64_t b )
|
---|
75 | {
|
---|
76 | union { softfloat_int128_t ui; struct uint128 s; } uZ;
|
---|
77 | uZ.ui = (softfloat_int128_t) a * b;
|
---|
78 | return uZ.s;
|
---|
79 | }
|
---|
80 | #define softfloat_mul64To128 softfloat_mul64To128
|
---|
81 |
|
---|
82 | INLINE
|
---|
83 | struct uint128 softfloat_mul128By32( uint64_t a64, uint64_t a0, uint32_t b )
|
---|
84 | {
|
---|
85 | union { softfloat_int128_t ui; struct uint128 s; } uZ;
|
---|
86 | uZ.ui = ((softfloat_int128_t) a64<<64 | a0) * b;
|
---|
87 | return uZ.s;
|
---|
88 | }
|
---|
89 | #define softfloat_mul128By32 softfloat_mul128By32
|
---|
90 |
|
---|
91 | INLINE
|
---|
92 | void
|
---|
93 | softfloat_mul128To256M(
|
---|
94 | uint64_t a64, uint64_t a0, uint64_t b64, uint64_t b0, uint64_t *zPtr )
|
---|
95 | {
|
---|
96 | softfloat_int128_t z0, mid1, mid, z128;
|
---|
97 | z0 = (softfloat_int128_t) a0 * b0;
|
---|
98 | mid1 = (softfloat_int128_t) a64 * b0;
|
---|
99 | mid = mid1 + (softfloat_int128_t) a0 * b64;
|
---|
100 | z128 = (softfloat_int128_t) a64 * b64;
|
---|
101 | z128 += (softfloat_int128_t) (mid < mid1)<<64 | mid>>64;
|
---|
102 | mid <<= 64;
|
---|
103 | z0 += mid;
|
---|
104 | z128 += (z0 < mid);
|
---|
105 | zPtr[indexWord( 4, 0 )] = z0;
|
---|
106 | zPtr[indexWord( 4, 1 )] = z0>>64;
|
---|
107 | zPtr[indexWord( 4, 2 )] = z128;
|
---|
108 | zPtr[indexWord( 4, 3 )] = z128>>64;
|
---|
109 | }
|
---|
110 | #define softfloat_mul128To256M softfloat_mul128To256M
|
---|
111 |
|
---|
112 | #endif
|
---|
113 |
|
---|
114 | #endif
|
---|
115 |
|
---|
116 | #endif
|
---|
117 |
|
---|