VirtualBox

source: vbox/trunk/src/recompiler_new/fpu/softfloat.h@ 13844

Last change on this file since 13844 was 13384, checked in by vboxsync, 16 years ago

more MSC stuff

File size: 15.4 KB
Line 
1/*============================================================================
2
3This C header file is part of the SoftFloat IEC/IEEE Floating-point Arithmetic
4Package, Release 2b.
5
6Written by John R. Hauser. This work was made possible in part by the
7International Computer Science Institute, located at Suite 600, 1947 Center
8Street, Berkeley, California 94704. Funding was partially provided by the
9National Science Foundation under grant MIP-9311980. The original version
10of this code was written as part of a project to build a fixed-point vector
11processor in collaboration with the University of California at Berkeley,
12overseen by Profs. Nelson Morgan and John Wawrzynek. More information
13is available through the Web page `http://www.cs.berkeley.edu/~jhauser/
14arithmetic/SoftFloat.html'.
15
16THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort has
17been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT TIMES
18RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO PERSONS
19AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ALL LOSSES,
20COSTS, OR OTHER PROBLEMS THEY INCUR DUE TO THE SOFTWARE, AND WHO FURTHERMORE
21EFFECTIVELY INDEMNIFY JOHN HAUSER AND THE INTERNATIONAL COMPUTER SCIENCE
22INSTITUTE (possibly via similar legal warning) AGAINST ALL LOSSES, COSTS, OR
23OTHER PROBLEMS INCURRED BY THEIR CUSTOMERS AND CLIENTS DUE TO THE SOFTWARE.
24
25Derivative works are acceptable, even for commercial purposes, so long as
26(1) the source code for the derivative work includes prominent notice that
27the work is derivative, and (2) the source code includes prominent notice with
28these four paragraphs for those parts of this code that are retained.
29
30=============================================================================*/
31
32#ifndef SOFTFLOAT_H
33#define SOFTFLOAT_H
34
35#ifdef VBOX
36#include <VBox/types.h>
37#endif
38#include "config.h"
39
40/*----------------------------------------------------------------------------
41| Each of the following `typedef's defines the most convenient type that holds
42| integers of at least as many bits as specified. For example, `uint8' should
43| be the most convenient type that can hold unsigned integers of as many as
44| 8 bits. The `flag' type must be able to hold either a 0 or 1. For most
45| implementations of C, `flag', `uint8', and `int8' should all be `typedef'ed
46| to the same as `int'.
47*----------------------------------------------------------------------------*/
48typedef uint8_t flag;
49typedef uint8_t uint8;
50typedef int8_t int8;
51typedef int uint16;
52typedef int int16;
53typedef unsigned int uint32;
54typedef signed int int32;
55typedef uint64_t uint64;
56typedef int64_t int64;
57
58/*----------------------------------------------------------------------------
59| Each of the following `typedef's defines a type that holds integers
60| of _exactly_ the number of bits specified. For instance, for most
61| implementation of C, `bits16' and `sbits16' should be `typedef'ed to
62| `unsigned short int' and `signed short int' (or `short int'), respectively.
63*----------------------------------------------------------------------------*/
64typedef uint8_t bits8;
65typedef int8_t sbits8;
66typedef uint16_t bits16;
67typedef int16_t sbits16;
68typedef uint32_t bits32;
69typedef int32_t sbits32;
70typedef uint64_t bits64;
71typedef int64_t sbits64;
72
73#define LIT64( a ) a##LL
74#ifdef _MSC_VER
75#define INLINE
76#else
77#define INLINE static inline
78#endif
79
80/*----------------------------------------------------------------------------
81| The macro `FLOATX80' must be defined to enable the extended double-precision
82| floating-point format `floatx80'. If this macro is not defined, the
83| `floatx80' type will not be defined, and none of the functions that either
84| input or output the `floatx80' type will be defined. The same applies to
85| the `FLOAT128' macro and the quadruple-precision format `float128'.
86*----------------------------------------------------------------------------*/
87#ifdef CONFIG_SOFTFLOAT
88/* bit exact soft float support */
89#define FLOATX80
90#define FLOAT128
91#else
92/* native float support */
93#if (defined(__i386__) || defined(__x86_64__)) && (!defined(_BSD) || defined(VBOX))
94#define FLOATX80
95#endif
96#endif /* !CONFIG_SOFTFLOAT */
97#if defined(VBOX) && (!defined(FLOATX80) || defined(CONFIG_SOFTFLOAT))
98# error misconfigured
99#endif
100
101#define STATUS_PARAM , float_status *status
102#define STATUS(field) status->field
103#define STATUS_VAR , status
104
105/*----------------------------------------------------------------------------
106| Software IEC/IEEE floating-point ordering relations
107*----------------------------------------------------------------------------*/
108enum {
109 float_relation_less = -1,
110 float_relation_equal = 0,
111 float_relation_greater = 1,
112 float_relation_unordered = 2
113};
114
115#ifdef CONFIG_SOFTFLOAT
116/*----------------------------------------------------------------------------
117| Software IEC/IEEE floating-point types.
118*----------------------------------------------------------------------------*/
119typedef uint32_t float32;
120typedef uint64_t float64;
121#ifdef FLOATX80
122typedef struct {
123 uint64_t low;
124 uint16_t high;
125} floatx80;
126#endif
127#ifdef FLOAT128
128typedef struct {
129#ifdef WORDS_BIGENDIAN
130 uint64_t high, low;
131#else
132 uint64_t low, high;
133#endif
134} float128;
135#endif
136
137/*----------------------------------------------------------------------------
138| Software IEC/IEEE floating-point underflow tininess-detection mode.
139*----------------------------------------------------------------------------*/
140enum {
141 float_tininess_after_rounding = 0,
142 float_tininess_before_rounding = 1
143};
144
145/*----------------------------------------------------------------------------
146| Software IEC/IEEE floating-point rounding mode.
147*----------------------------------------------------------------------------*/
148enum {
149 float_round_nearest_even = 0,
150 float_round_down = 1,
151 float_round_up = 2,
152 float_round_to_zero = 3
153};
154
155/*----------------------------------------------------------------------------
156| Software IEC/IEEE floating-point exception flags.
157*----------------------------------------------------------------------------*/
158enum {
159 float_flag_invalid = 1,
160 float_flag_divbyzero = 4,
161 float_flag_overflow = 8,
162 float_flag_underflow = 16,
163 float_flag_inexact = 32
164};
165
166typedef struct float_status {
167 signed char float_detect_tininess;
168 signed char float_rounding_mode;
169 signed char float_exception_flags;
170#ifdef FLOATX80
171 signed char floatx80_rounding_precision;
172#endif
173} float_status;
174
175void set_float_rounding_mode(int val STATUS_PARAM);
176void set_float_exception_flags(int val STATUS_PARAM);
177INLINE int get_float_exception_flags(float_status *status)
178{
179 return STATUS(float_exception_flags);
180}
181#ifdef FLOATX80
182void set_floatx80_rounding_precision(int val STATUS_PARAM);
183#endif
184
185/*----------------------------------------------------------------------------
186| Routine to raise any or all of the software IEC/IEEE floating-point
187| exception flags.
188*----------------------------------------------------------------------------*/
189void float_raise( int8 flags STATUS_PARAM);
190
191/*----------------------------------------------------------------------------
192| Software IEC/IEEE integer-to-floating-point conversion routines.
193*----------------------------------------------------------------------------*/
194float32 int32_to_float32( int STATUS_PARAM );
195float64 int32_to_float64( int STATUS_PARAM );
196float32 uint32_to_float32( unsigned int STATUS_PARAM );
197float64 uint32_to_float64( unsigned int STATUS_PARAM );
198#ifdef FLOATX80
199floatx80 int32_to_floatx80( int STATUS_PARAM );
200#endif
201#ifdef FLOAT128
202float128 int32_to_float128( int STATUS_PARAM );
203#endif
204float32 int64_to_float32( int64_t STATUS_PARAM );
205float64 int64_to_float64( int64_t STATUS_PARAM );
206#ifdef FLOATX80
207floatx80 int64_to_floatx80( int64_t STATUS_PARAM );
208#endif
209#ifdef FLOAT128
210float128 int64_to_float128( int64_t STATUS_PARAM );
211#endif
212
213/*----------------------------------------------------------------------------
214| Software IEC/IEEE single-precision conversion routines.
215*----------------------------------------------------------------------------*/
216int float32_to_int32( float32 STATUS_PARAM );
217int float32_to_int32_round_to_zero( float32 STATUS_PARAM );
218unsigned int float32_to_uint32( float32 STATUS_PARAM );
219unsigned int float32_to_uint32_round_to_zero( float32 STATUS_PARAM );
220int64_t float32_to_int64( float32 STATUS_PARAM );
221int64_t float32_to_int64_round_to_zero( float32 STATUS_PARAM );
222float64 float32_to_float64( float32 STATUS_PARAM );
223#ifdef FLOATX80
224floatx80 float32_to_floatx80( float32 STATUS_PARAM );
225#endif
226#ifdef FLOAT128
227float128 float32_to_float128( float32 STATUS_PARAM );
228#endif
229
230/*----------------------------------------------------------------------------
231| Software IEC/IEEE single-precision operations.
232*----------------------------------------------------------------------------*/
233float32 float32_round_to_int( float32 STATUS_PARAM );
234float32 float32_add( float32, float32 STATUS_PARAM );
235float32 float32_sub( float32, float32 STATUS_PARAM );
236float32 float32_mul( float32, float32 STATUS_PARAM );
237float32 float32_div( float32, float32 STATUS_PARAM );
238float32 float32_rem( float32, float32 STATUS_PARAM );
239float32 float32_sqrt( float32 STATUS_PARAM );
240int float32_eq( float32, float32 STATUS_PARAM );
241int float32_le( float32, float32 STATUS_PARAM );
242int float32_lt( float32, float32 STATUS_PARAM );
243int float32_eq_signaling( float32, float32 STATUS_PARAM );
244int float32_le_quiet( float32, float32 STATUS_PARAM );
245int float32_lt_quiet( float32, float32 STATUS_PARAM );
246int float32_compare( float32, float32 STATUS_PARAM );
247int float32_compare_quiet( float32, float32 STATUS_PARAM );
248int float32_is_signaling_nan( float32 );
249int float64_is_nan( float64 a );
250
251INLINE float32 float32_abs(float32 a)
252{
253 return a & 0x7fffffff;
254}
255
256INLINE float32 float32_chs(float32 a)
257{
258 return a ^ 0x80000000;
259}
260
261/*----------------------------------------------------------------------------
262| Software IEC/IEEE double-precision conversion routines.
263*----------------------------------------------------------------------------*/
264int float64_to_int32( float64 STATUS_PARAM );
265int float64_to_int32_round_to_zero( float64 STATUS_PARAM );
266unsigned int float64_to_uint32( float64 STATUS_PARAM );
267unsigned int float64_to_uint32_round_to_zero( float64 STATUS_PARAM );
268int64_t float64_to_int64( float64 STATUS_PARAM );
269int64_t float64_to_int64_round_to_zero( float64 STATUS_PARAM );
270float32 float64_to_float32( float64 STATUS_PARAM );
271#ifdef FLOATX80
272floatx80 float64_to_floatx80( float64 STATUS_PARAM );
273#endif
274#ifdef FLOAT128
275float128 float64_to_float128( float64 STATUS_PARAM );
276#endif
277
278/*----------------------------------------------------------------------------
279| Software IEC/IEEE double-precision operations.
280*----------------------------------------------------------------------------*/
281float64 float64_round_to_int( float64 STATUS_PARAM );
282float64 float64_trunc_to_int( float64 STATUS_PARAM );
283float64 float64_add( float64, float64 STATUS_PARAM );
284float64 float64_sub( float64, float64 STATUS_PARAM );
285float64 float64_mul( float64, float64 STATUS_PARAM );
286float64 float64_div( float64, float64 STATUS_PARAM );
287float64 float64_rem( float64, float64 STATUS_PARAM );
288float64 float64_sqrt( float64 STATUS_PARAM );
289int float64_eq( float64, float64 STATUS_PARAM );
290int float64_le( float64, float64 STATUS_PARAM );
291int float64_lt( float64, float64 STATUS_PARAM );
292int float64_eq_signaling( float64, float64 STATUS_PARAM );
293int float64_le_quiet( float64, float64 STATUS_PARAM );
294int float64_lt_quiet( float64, float64 STATUS_PARAM );
295int float64_compare( float64, float64 STATUS_PARAM );
296int float64_compare_quiet( float64, float64 STATUS_PARAM );
297int float64_is_signaling_nan( float64 );
298
299INLINE float64 float64_abs(float64 a)
300{
301 return a & 0x7fffffffffffffffLL;
302}
303
304INLINE float64 float64_chs(float64 a)
305{
306 return a ^ 0x8000000000000000LL;
307}
308
309#ifdef FLOATX80
310
311/*----------------------------------------------------------------------------
312| Software IEC/IEEE extended double-precision conversion routines.
313*----------------------------------------------------------------------------*/
314int floatx80_to_int32( floatx80 STATUS_PARAM );
315int floatx80_to_int32_round_to_zero( floatx80 STATUS_PARAM );
316int64_t floatx80_to_int64( floatx80 STATUS_PARAM );
317int64_t floatx80_to_int64_round_to_zero( floatx80 STATUS_PARAM );
318float32 floatx80_to_float32( floatx80 STATUS_PARAM );
319float64 floatx80_to_float64( floatx80 STATUS_PARAM );
320#ifdef FLOAT128
321float128 floatx80_to_float128( floatx80 STATUS_PARAM );
322#endif
323
324/*----------------------------------------------------------------------------
325| Software IEC/IEEE extended double-precision operations.
326*----------------------------------------------------------------------------*/
327floatx80 floatx80_round_to_int( floatx80 STATUS_PARAM );
328floatx80 floatx80_add( floatx80, floatx80 STATUS_PARAM );
329floatx80 floatx80_sub( floatx80, floatx80 STATUS_PARAM );
330floatx80 floatx80_mul( floatx80, floatx80 STATUS_PARAM );
331floatx80 floatx80_div( floatx80, floatx80 STATUS_PARAM );
332floatx80 floatx80_rem( floatx80, floatx80 STATUS_PARAM );
333floatx80 floatx80_sqrt( floatx80 STATUS_PARAM );
334int floatx80_eq( floatx80, floatx80 STATUS_PARAM );
335int floatx80_le( floatx80, floatx80 STATUS_PARAM );
336int floatx80_lt( floatx80, floatx80 STATUS_PARAM );
337int floatx80_eq_signaling( floatx80, floatx80 STATUS_PARAM );
338int floatx80_le_quiet( floatx80, floatx80 STATUS_PARAM );
339int floatx80_lt_quiet( floatx80, floatx80 STATUS_PARAM );
340int floatx80_is_signaling_nan( floatx80 );
341
342INLINE floatx80 floatx80_abs(floatx80 a)
343{
344 a.high &= 0x7fff;
345 return a;
346}
347
348INLINE floatx80 floatx80_chs(floatx80 a)
349{
350 a.high ^= 0x8000;
351 return a;
352}
353
354#endif
355
356#ifdef FLOAT128
357
358/*----------------------------------------------------------------------------
359| Software IEC/IEEE quadruple-precision conversion routines.
360*----------------------------------------------------------------------------*/
361int float128_to_int32( float128 STATUS_PARAM );
362int float128_to_int32_round_to_zero( float128 STATUS_PARAM );
363int64_t float128_to_int64( float128 STATUS_PARAM );
364int64_t float128_to_int64_round_to_zero( float128 STATUS_PARAM );
365float32 float128_to_float32( float128 STATUS_PARAM );
366float64 float128_to_float64( float128 STATUS_PARAM );
367#ifdef FLOATX80
368floatx80 float128_to_floatx80( float128 STATUS_PARAM );
369#endif
370
371/*----------------------------------------------------------------------------
372| Software IEC/IEEE quadruple-precision operations.
373*----------------------------------------------------------------------------*/
374float128 float128_round_to_int( float128 STATUS_PARAM );
375float128 float128_add( float128, float128 STATUS_PARAM );
376float128 float128_sub( float128, float128 STATUS_PARAM );
377float128 float128_mul( float128, float128 STATUS_PARAM );
378float128 float128_div( float128, float128 STATUS_PARAM );
379float128 float128_rem( float128, float128 STATUS_PARAM );
380float128 float128_sqrt( float128 STATUS_PARAM );
381int float128_eq( float128, float128 STATUS_PARAM );
382int float128_le( float128, float128 STATUS_PARAM );
383int float128_lt( float128, float128 STATUS_PARAM );
384int float128_eq_signaling( float128, float128 STATUS_PARAM );
385int float128_le_quiet( float128, float128 STATUS_PARAM );
386int float128_lt_quiet( float128, float128 STATUS_PARAM );
387int float128_is_signaling_nan( float128 );
388
389INLINE float128 float128_abs(float128 a)
390{
391 a.high &= 0x7fffffffffffffffLL;
392 return a;
393}
394
395INLINE float128 float128_chs(float128 a)
396{
397 a.high ^= 0x8000000000000000LL;
398 return a;
399}
400
401#endif
402
403#else /* CONFIG_SOFTFLOAT */
404
405#include "softfloat-native.h"
406
407#endif /* !CONFIG_SOFTFLOAT */
408
409#endif /* !SOFTFLOAT_H */
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette