1 /* Header file for fp-bit.c. */
3 Free Software Foundation, Inc.
5 This file is part of GNU CC.
7 GNU CC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU CC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU CC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* As a special exception, if you link this library with other files,
23 some of which are compiled with GCC, to produce an executable,
24 this library does not by itself cause the resulting executable
25 to be covered by the GNU General Public License.
26 This exception does not however invalidate any other reasons why
27 the executable file might be covered by the GNU General Public License. */
32 /* Defining FINE_GRAINED_LIBRARIES allows one to select which routines
33 from this file are compiled via additional -D options.
35 This avoids the need to pull in the entire fp emulation library
36 when only a small number of functions are needed.
38 If FINE_GRAINED_LIBRARIES is not defined, then compile every
40 #ifndef FINE_GRAINED_LIBRARIES
51 #define L_fpcmp_parts_sf
52 #define L_fpcmp_parts_df
88 #endif /* ! FINE_GRAINED_LIBRARIES */
90 typedef float SFtype
__attribute__ ((mode (SF
)));
91 typedef float DFtype
__attribute__ ((mode (DF
)));
93 typedef int HItype
__attribute__ ((mode (HI
)));
94 typedef int SItype
__attribute__ ((mode (SI
)));
95 typedef int DItype
__attribute__ ((mode (DI
)));
97 /* The type of the result of a fp compare */
99 #define CMPtype SItype
102 typedef unsigned int UHItype
__attribute__ ((mode (HI
)));
103 typedef unsigned int USItype
__attribute__ ((mode (SI
)));
104 typedef unsigned int UDItype
__attribute__ ((mode (DI
)));
106 #define MAX_USI_INT (~(USItype)0)
107 #define MAX_SI_INT ((SItype) (MAX_USI_INT >> 1))
108 #define BITS_PER_SI (4 * BITS_PER_UNIT)
116 # define GARDROUND 0x3f
117 # define GARDMASK 0x7f
118 # define GARDMSB 0x40
122 # define EXPMAX (0xff)
123 # define QUIET_NAN 0x100000L
124 # define FRAC_NBITS 32
125 # define FRACHIGH 0x80000000L
126 # define FRACHIGH2 0xc0000000L
127 # define pack_d __pack_f
128 # define unpack_d __unpack_f
129 # define __fpcmp_parts __fpcmp_parts_f
130 typedef USItype fractype
;
131 typedef UHItype halffractype
;
132 typedef SFtype FLO_type
;
133 typedef SItype intfrac
;
136 # define PREFIXFPDP dp
137 # define PREFIXSFDF df
139 # define GARDROUND 0x7f
140 # define GARDMASK 0xff
141 # define GARDMSB 0x80
143 # define EXPBIAS 1023
145 # define EXPMAX (0x7ff)
146 # define QUIET_NAN 0x8000000000000LL
147 # define FRAC_NBITS 64
148 # define FRACHIGH 0x8000000000000000LL
149 # define FRACHIGH2 0xc000000000000000LL
150 # define pack_d __pack_d
151 # define unpack_d __unpack_d
152 # define __fpcmp_parts __fpcmp_parts_d
153 typedef UDItype fractype
;
154 typedef USItype halffractype
;
155 typedef DFtype FLO_type
;
156 typedef DItype intfrac
;
159 #ifdef US_SOFTWARE_GOFAST
163 # define multiply fpmul
164 # define divide fpdiv
165 # define compare fpcmp
166 # define si_to_float sitofp
167 # define float_to_si fptosi
168 # define float_to_usi fptoui
169 # define negate __negsf2
170 # define sf_to_df fptodp
171 # define dptofp dptofp
175 # define multiply dpmul
176 # define divide dpdiv
177 # define compare dpcmp
178 # define si_to_float litodp
179 # define float_to_si dptoli
180 # define float_to_usi dptoul
181 # define negate __negdf2
182 # define df_to_sf dptofp
186 # define add __addsf3
187 # define sub __subsf3
188 # define multiply __mulsf3
189 # define divide __divsf3
190 # define compare __cmpsf2
191 # define _eq_f2 __eqsf2
192 # define _ne_f2 __nesf2
193 # define _gt_f2 __gtsf2
194 # define _ge_f2 __gesf2
195 # define _lt_f2 __ltsf2
196 # define _le_f2 __lesf2
197 # define _unord_f2 __unordsf2
198 # define usi_to_float __floatunsisf
199 # define si_to_float __floatsisf
200 # define float_to_si __fixsfsi
201 # define float_to_usi __fixunssfsi
202 # define negate __negsf2
203 # define sf_to_df __extendsfdf2
205 # define add __adddf3
206 # define sub __subdf3
207 # define multiply __muldf3
208 # define divide __divdf3
209 # define compare __cmpdf2
210 # define _eq_f2 __eqdf2
211 # define _ne_f2 __nedf2
212 # define _gt_f2 __gtdf2
213 # define _ge_f2 __gedf2
214 # define _lt_f2 __ltdf2
215 # define _le_f2 __ledf2
216 # define _unord_f2 __unorddf2
217 # define usi_to_float __floatunsidf
218 # define si_to_float __floatsidf
219 # define float_to_si __fixdfsi
220 # define float_to_usi __fixunsdfsi
221 # define negate __negdf2
222 # define df_to_sf __truncdfsf2
224 #endif /* US_SOFTWARE_GOFAST */
227 #define INLINE __inline__
230 /* Preserve the sticky-bit when shifting fractions to the right. */
231 #define LSHIFT(a) { a = (a & 1) | (a >> 1); }
233 /* numeric parameters */
234 /* F_D_BITOFF is the number of bits offset between the MSB of the mantissa
235 of a float and of a double. Assumes there are only two float types.
236 (double::FRAC_BITS+double::NGARDS-(float::FRAC_BITS-float::NGARDS))
238 #define F_D_BITOFF (52+8-(23+7))
241 #define NORMAL_EXPMIN (-(EXPBIAS)+1)
242 #define IMPLICIT_1 (1LL<<(FRACBITS+NGARDS))
243 #define IMPLICIT_2 (1LL<<(FRACBITS+1+NGARDS))
281 halffractype words
[2];
284 #ifdef FLOAT_BIT_ORDER_MISMATCH
287 fractype fraction
:FRACBITS
__attribute__ ((packed
));
288 unsigned int exp
:EXPBITS
__attribute__ ((packed
));
289 unsigned int sign
:1 __attribute__ ((packed
));
294 #ifdef _DEBUG_BITFLOAT
297 unsigned int sign
:1 __attribute__ ((packed
));
298 unsigned int exp
:EXPBITS
__attribute__ ((packed
));
299 fractype fraction
:FRACBITS
__attribute__ ((packed
));
305 fractype fraction
:FRACBITS
__attribute__ ((packed
));
306 unsigned int exp
:EXPBITS
__attribute__ ((packed
));
307 unsigned int sign
:1 __attribute__ ((packed
));
316 #if defined(L_pack_df) || defined(L_pack_sf)
317 extern FLO_type
pack_d (fp_number_type
*);
320 extern void unpack_d (FLO_union_type
*, fp_number_type
*);
322 #if defined(L_addsub_sf) || defined(L_addsub_df)
323 extern FLO_type
add (FLO_type
, FLO_type
);
324 extern FLO_type
sub (FLO_type
, FLO_type
);
327 #if defined(L_mul_sf) || defined(L_mul_df)
328 extern FLO_type
multiply (FLO_type
, FLO_type
);
331 #if defined(L_div_sf) || defined(L_div_df)
332 extern FLO_type
divide (FLO_type
, FLO_type
);
335 extern int __fpcmp_parts (fp_number_type
*, fp_number_type
*);
337 #if defined(L_compare_sf) || defined(L_compare_df)
338 extern CMPtype
compare (FLO_type
, FLO_type
);
341 #ifndef US_SOFTWARE_GOFAST
343 #if defined(L_eq_sf) || defined(L_eq_df)
344 extern CMPtype
_eq_f2 (FLO_type
, FLO_type
);
347 #if defined(L_ne_sf) || defined(L_ne_df)
348 extern CMPtype
_ne_f2 (FLO_type
, FLO_type
);
351 #if defined(L_gt_sf) || defined(L_gt_df)
352 extern CMPtype
_gt_f2 (FLO_type
, FLO_type
);
355 #if defined(L_ge_sf) || defined(L_ge_df)
356 extern CMPtype
_ge_f2 (FLO_type
, FLO_type
);
359 #if defined(L_lt_sf) || defined(L_lt_df)
360 extern CMPtype
_lt_f2 (FLO_type
, FLO_type
);
363 #if defined(L_le_sf) || defined(L_le_df)
364 extern CMPtype
_le_f2 (FLO_type
, FLO_type
);
367 #if defined(L_unord_sf) || defined(L_unord_df)
368 extern CMPtype
_unord_f2 (FLO_type
, FLO_type
);
371 #endif /* ! US_SOFTWARE_GOFAST */
373 #if defined(L_si_to_sf) || defined(L_si_to_df)
374 extern FLO_type
si_to_float (SItype
);
377 #if defined(L_sf_to_si) || defined(L_df_to_si)
378 extern SItype
float_to_si (FLO_type
);
381 #if defined(L_sf_to_usi) || defined(L_df_to_usi)
382 #ifdef US_SOFTWARE_GOFAST
383 extern USItype
float_to_usi (FLO_type
);
387 #if defined(L_usi_to_sf) || defined(L_usi_to_df)
388 extern FLO_type
usi_to_float (USItype
);
391 #if defined(L_negate_sf) || defined(L_negate_df)
392 extern FLO_type
negate (FLO_type
);
396 #if defined(L_make_sf)
397 extern SFtype
__make_fp (fp_class_type
, unsigned int, int, USItype
);
400 extern DFtype
__make_dp (fp_class_type
, unsigned int, int, UDItype
);
401 #if defined(L_sf_to_df)
402 extern DFtype
sf_to_df (SFtype
);
404 #endif /* ! FLOAT_ONLY */
408 extern SFtype
__make_fp (fp_class_type
, unsigned int, int, USItype
);
409 #if defined(L_make_df)
410 extern DFtype
__make_dp (fp_class_type
, unsigned int, int, UDItype
);
412 #if defined(L_df_to_sf)
413 extern SFtype
df_to_sf (DFtype
);
417 #endif /* __FP_BIT_H__ */