1 /* This is a software fixed-point library.
2    Copyright (C) 2007-2020 Free Software Foundation, Inc.
3 
4 This file is part of GCC.
5 
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
10 
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 for more details.
15 
16 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
19 
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23 <http://www.gnu.org/licenses/>.  */
24 
25 #ifndef _FIXED_BIT_H
26 #define _FIXED_BIT_H
27 
28 #ifdef LIBGCC2_GNU_PREFIX
29 #define LIBGCC2_FIXEDBIT_GNU_PREFIX
30 #endif
31 
32 /* To use this file we need to define one of the following:
33    QQ_MODE, UQQ_MODE, HQ_MODE, UHQ_MODE, SQ_MODE, USQ_MODE, DQ_MODE, UDQ_MODE,
34    TQ_MODE, UTQ_MODE, HA_MODE, UHA_MODE, SA_MODE, USA_MODE, DA_MODE, UDA_MODE,
35    TA_MODE, UTA_MODE.
36    Then, all operators for this machine mode will be created.
37 
38    Or, we need to define FROM_* TO_* for conversions from one mode to another
39    mode.  The mode could be one of the following:
40    Fract: QQ, UQQ, HQ, UHQ, SQ, USQ, DQ, UDQ, TQ, UTQ
41    Accum: HA, UHA, SA, USA, DA, UDA, TA, UTA
42    Signed integer: QI, HI, SI, DI, TI
43    Unsigned integer: UQI, UHI, USI, UDI, UTI
44    Floating-point: SF, DF
45    Ex: If we define FROM_QQ and TO_SI, the conversion from QQ to SI is
46    generated.  */
47 
48 #ifdef __LIBGCC_HAS_SF_MODE__
49 #define LIBGCC2_HAS_SF_MODE 1
50 #else
51 #define LIBGCC2_HAS_SF_MODE 0
52 #endif
53 
54 #ifdef __LIBGCC_HAS_DF_MODE__
55 #define LIBGCC2_HAS_DF_MODE 1
56 #else
57 #define LIBGCC2_HAS_DF_MODE 0
58 #endif
59 
60 typedef          int QItype     __attribute__ ((mode (QI)));
61 typedef unsigned int UQItype    __attribute__ ((mode (QI)));
62 typedef          int HItype     __attribute__ ((mode (HI)));
63 typedef unsigned int UHItype    __attribute__ ((mode (HI)));
64 typedef          _Fract QQtype  __attribute__ ((mode (QQ)));
65 typedef unsigned _Fract UQQtype __attribute__ ((mode (UQQ)));
66 typedef          _Fract HQtype  __attribute__ ((mode (HQ)));
67 typedef unsigned _Fract UHQtype __attribute__ ((mode (UHQ)));
68 typedef          _Fract HAtype  __attribute__ ((mode (HA)));
69 typedef unsigned _Fract UHAtype __attribute__ ((mode (UHA)));
70 #define HAVE_QQ		1
71 #define HAVE_UQQ	1
72 #define HAVE_HQ		1
73 #define HAVE_UHQ	1
74 #define HAVE_HA		1
75 #define HAVE_UHA	1
76 #define HAVE_QI		1
77 #define HAVE_UQI	1
78 #define HAVE_HI		1
79 #define HAVE_UHI	1
80 #if MIN_UNITS_PER_WORD > 1
81 /* These typedefs are usually forbidden on dsp's with UNITS_PER_WORD 1.  */
82 typedef          int SItype     __attribute__ ((mode (SI)));
83 typedef unsigned int USItype    __attribute__ ((mode (SI)));
84 typedef          _Fract SQtype  __attribute__ ((mode (SQ)));
85 typedef unsigned _Fract USQtype __attribute__ ((mode (USQ)));
86 typedef          _Fract SAtype  __attribute__ ((mode (SA)));
87 typedef unsigned _Fract USAtype __attribute__ ((mode (USA)));
88 #define HAVE_SQ		1
89 #define HAVE_USQ	1
90 #define HAVE_SA		1
91 #define HAVE_USA	1
92 #define HAVE_SI		1
93 #define HAVE_USI	1
94 #if LONG_LONG_TYPE_SIZE > 32
95 /* These typedefs are usually forbidden on archs with UNITS_PER_WORD 2.  */
96 typedef          int DItype     __attribute__ ((mode (DI)));
97 typedef unsigned int UDItype    __attribute__ ((mode (DI)));
98 typedef          _Fract DQtype  __attribute__ ((mode (DQ)));
99 typedef unsigned _Fract UDQtype __attribute__ ((mode (UDQ)));
100 typedef          _Fract DAtype  __attribute__ ((mode (DA)));
101 typedef unsigned _Fract UDAtype __attribute__ ((mode (UDA)));
102 #define HAVE_DQ		1
103 #define HAVE_UDQ	1
104 #define HAVE_DA		1
105 #define HAVE_UDA	1
106 #define HAVE_DI		1
107 #define HAVE_UDI	1
108 #if MIN_UNITS_PER_WORD > 4
109 /* These typedefs are usually forbidden on archs with UNITS_PER_WORD 4.  */
110 typedef          int TItype     __attribute__ ((mode (TI)));
111 typedef unsigned int UTItype    __attribute__ ((mode (TI)));
112 typedef          _Fract TQtype  __attribute__ ((mode (TQ)));
113 typedef unsigned _Fract UTQtype __attribute__ ((mode (UTQ)));
114 typedef          _Fract TAtype  __attribute__ ((mode (TA)));
115 typedef unsigned _Fract UTAtype __attribute__ ((mode (UTA)));
116 #define HAVE_TQ		1
117 #define HAVE_UTQ	1
118 #define HAVE_TA		1
119 #define HAVE_UTA	1
120 #define HAVE_TI		1
121 #define HAVE_UTI	1
122 #endif
123 #endif
124 #endif
125 
126 #if LIBGCC2_HAS_SF_MODE
127 typedef float SFtype __attribute__ ((mode (SF)));
128 #define HAVE_SF		1
129 #endif
130 #if LIBGCC2_HAS_DF_MODE
131 typedef float DFtype __attribute__ ((mode (DF)));
132 #define HAVE_DF		1
133 #endif
134 
135 typedef int word_type __attribute__ ((mode (__word__)));
136 
137 /* Based on modes, we create many defines.  */
138 
139 #if defined (QQ_MODE) && (HAVE_QQ == 1)
140 #define FIXED_SIZE	1	/* in bytes.  */
141 #define INT_C_TYPE	QItype
142 #define UINT_C_TYPE	UQItype
143 #define DINT_C_TYPE	HItype
144 #define DUINT_C_TYPE	UHItype
145 #define MODE_NAME	QQ
146 #define MODE_NAME_S	qq
147 #define MODE_UNSIGNED	0
148 #endif
149 
150 #if defined (UQQ_MODE) && (HAVE_UQQ == 1)
151 #define FIXED_SIZE	1	/* in bytes.  */
152 #define INT_C_TYPE	UQItype
153 #define UINT_C_TYPE	UQItype
154 #define DINT_C_TYPE	UHItype
155 #define DUINT_C_TYPE	UHItype
156 #define MODE_NAME	UQQ
157 #define MODE_NAME_S	uqq
158 #define MODE_UNSIGNED	1
159 #endif
160 
161 #if defined (HQ_MODE) && (HAVE_HQ == 1)
162 #define FIXED_SIZE	2	/* in bytes.  */
163 #define INT_C_TYPE	HItype
164 #define UINT_C_TYPE	UHItype
165 
166 #if HAVE_SI == 1
167 #define DINT_C_TYPE	SItype
168 #define DUINT_C_TYPE	USItype
169 #else
170 #define HINT_C_TYPE	QItype
171 #define HUINT_C_TYPE	UQItype
172 #endif
173 
174 #define MODE_NAME	HQ
175 #define MODE_NAME_S	hq
176 #define MODE_UNSIGNED	0
177 #endif
178 
179 #if defined (UHQ_MODE) && (HAVE_UHQ == 1)
180 #define FIXED_SIZE	2	/* in bytes.  */
181 #define INT_C_TYPE	UHItype
182 #define UINT_C_TYPE	UHItype
183 
184 #if HAVE_SI == 1
185 #define DINT_C_TYPE	USItype
186 #define DUINT_C_TYPE	USItype
187 #else
188 #define HINT_C_TYPE	UQItype
189 #define HUINT_C_TYPE	UQItype
190 #endif
191 
192 #define MODE_NAME	UHQ
193 #define MODE_NAME_S	uhq
194 #define MODE_UNSIGNED	1
195 #endif
196 
197 #if defined (SQ_MODE) && (HAVE_SQ == 1)
198 #define FIXED_SIZE	4	/* in bytes.  */
199 #define INT_C_TYPE	SItype
200 #define UINT_C_TYPE	USItype
201 
202 #if HAVE_DI == 1
203 #define DINT_C_TYPE	DItype
204 #define DUINT_C_TYPE	UDItype
205 #else
206 #define HINT_C_TYPE	HItype
207 #define HUINT_C_TYPE	UHItype
208 #endif
209 
210 #define MODE_NAME	SQ
211 #define MODE_NAME_S	sq
212 #define MODE_UNSIGNED	0
213 #endif
214 
215 #if defined (USQ_MODE) && (HAVE_USQ == 1)
216 #define FIXED_SIZE	4	/* in bytes.  */
217 #define INT_C_TYPE	USItype
218 #define UINT_C_TYPE	USItype
219 
220 #if HAVE_DI == 1
221 #define DINT_C_TYPE	UDItype
222 #define DUINT_C_TYPE	UDItype
223 #else
224 #define HINT_C_TYPE	UHItype
225 #define HUINT_C_TYPE	UHItype
226 #endif
227 
228 #define MODE_NAME	USQ
229 #define MODE_NAME_S	usq
230 #define MODE_UNSIGNED	1
231 #endif
232 
233 #if defined (DQ_MODE) && (HAVE_DQ == 1)
234 #define FIXED_SIZE	8	/* in bytes.  */
235 #define INT_C_TYPE	DItype
236 #define UINT_C_TYPE	UDItype
237 
238 #if HAVE_TI == 1
239 #define DINT_C_TYPE	TItype
240 #define DUINT_C_TYPE	UTItype
241 #else
242 #define HINT_C_TYPE	SItype
243 #define HUINT_C_TYPE	USItype
244 #endif
245 
246 #define MODE_NAME	DQ
247 #define MODE_NAME_S	dq
248 #define MODE_UNSIGNED	0
249 #endif
250 
251 #if defined (UDQ_MODE) && (HAVE_UDQ == 1)
252 #define FIXED_SIZE	8	/* in bytes.  */
253 #define INT_C_TYPE	UDItype
254 #define UINT_C_TYPE	UDItype
255 
256 #if HAVE_TI == 1
257 #define DINT_C_TYPE	UTItype
258 #define DUINT_C_TYPE	UTItype
259 #else
260 #define HINT_C_TYPE	USItype
261 #define HUINT_C_TYPE	USItype
262 #endif
263 
264 #define MODE_NAME	UDQ
265 #define MODE_NAME_S	udq
266 #define MODE_UNSIGNED	1
267 #endif
268 
269 #if defined (TQ_MODE) && (HAVE_TQ == 1)
270 #define FIXED_SIZE	16	/* in bytes.  */
271 #define INT_C_TYPE	TItype
272 #define UINT_C_TYPE	UTItype
273 #define HINT_C_TYPE	DItype
274 #define HUINT_C_TYPE	UDItype
275 #define MODE_NAME	TQ
276 #define MODE_NAME_S	tq
277 #define MODE_UNSIGNED	0
278 #endif
279 
280 #if defined (UTQ_MODE) && (HAVE_UTQ == 1)
281 #define FIXED_SIZE	16	/* in bytes.  */
282 #define INT_C_TYPE	UTItype
283 #define UINT_C_TYPE	UTItype
284 #define HINT_C_TYPE	UDItype
285 #define HUINT_C_TYPE	UDItype
286 #define MODE_NAME	UTQ
287 #define MODE_NAME_S	utq
288 #define MODE_UNSIGNED	1
289 #endif
290 
291 #if defined (HA_MODE) && (HAVE_HA == 1)
292 #define FIXED_SIZE	2	/* in bytes.  */
293 #define INT_C_TYPE	HItype
294 #define UINT_C_TYPE	UHItype
295 
296 #if HAVE_SI == 1
297 #define DINT_C_TYPE	SItype
298 #define DUINT_C_TYPE	USItype
299 #else
300 #define HINT_C_TYPE	QItype
301 #define HUINT_C_TYPE	UQItype
302 #endif
303 
304 #define MODE_NAME	HA
305 #define MODE_NAME_S	ha
306 #define MODE_UNSIGNED	0
307 #endif
308 
309 #if defined (UHA_MODE) && (HAVE_UHA == 1)
310 #define FIXED_SIZE	2	/* in bytes.  */
311 #define INT_C_TYPE	UHItype
312 #define UINT_C_TYPE	UHItype
313 
314 #if HAVE_SI == 1
315 #define DINT_C_TYPE	USItype
316 #define DUINT_C_TYPE	USItype
317 #else
318 #define HINT_C_TYPE	UQItype
319 #define HUINT_C_TYPE	UQItype
320 #endif
321 
322 #define MODE_NAME	UHA
323 #define MODE_NAME_S	uha
324 #define MODE_UNSIGNED	1
325 #endif
326 
327 #if defined (SA_MODE) && (HAVE_SA == 1)
328 #define FIXED_SIZE	4	/* in bytes.  */
329 #define INT_C_TYPE	SItype
330 #define UINT_C_TYPE	USItype
331 
332 #if HAVE_DI == 1
333 #define DINT_C_TYPE	DItype
334 #define DUINT_C_TYPE	UDItype
335 #else
336 #define HINT_C_TYPE	HItype
337 #define HUINT_C_TYPE	UHItype
338 #endif
339 
340 #define MODE_NAME	SA
341 #define MODE_NAME_S	sa
342 #define MODE_UNSIGNED	0
343 #endif
344 
345 #if defined (USA_MODE) && (HAVE_USA == 1)
346 #define FIXED_SIZE	4	/* in bytes.  */
347 #define INT_C_TYPE	USItype
348 #define UINT_C_TYPE	USItype
349 
350 #if HAVE_DI == 1
351 #define DINT_C_TYPE	UDItype
352 #define DUINT_C_TYPE	UDItype
353 #else
354 #define HINT_C_TYPE	UHItype
355 #define HUINT_C_TYPE	UHItype
356 #endif
357 
358 #define MODE_NAME	USA
359 #define MODE_NAME_S	usa
360 #define MODE_UNSIGNED	1
361 #endif
362 
363 #if defined (DA_MODE) && (HAVE_DA == 1)
364 #define FIXED_SIZE	8	/* in bytes.  */
365 #define INT_C_TYPE	DItype
366 #define UINT_C_TYPE	UDItype
367 
368 #if HAVE_TI == 1
369 #define DINT_C_TYPE	TItype
370 #define DUINT_C_TYPE	UTItype
371 #else
372 #define HINT_C_TYPE	SItype
373 #define HUINT_C_TYPE	USItype
374 #endif
375 
376 #define MODE_NAME	DA
377 #define MODE_NAME_S	da
378 #define MODE_UNSIGNED	0
379 #endif
380 
381 #if defined (UDA_MODE) && (HAVE_UDA == 1)
382 #define FIXED_SIZE	8	/* in bytes.  */
383 #define INT_C_TYPE	UDItype
384 #define UINT_C_TYPE	UDItype
385 
386 #if HAVE_TI == 1
387 #define DINT_C_TYPE	UTItype
388 #define DUINT_C_TYPE	UTItype
389 #else
390 #define HINT_C_TYPE	USItype
391 #define HUINT_C_TYPE	USItype
392 #endif
393 
394 #define MODE_NAME	UDA
395 #define MODE_NAME_S	uda
396 #define MODE_UNSIGNED	1
397 #endif
398 
399 #if defined (TA_MODE) && (HAVE_TA == 1)
400 #define FIXED_SIZE	16	/* in bytes.  */
401 #define INT_C_TYPE	TItype
402 #define UINT_C_TYPE	UTItype
403 #define HINT_C_TYPE	DItype
404 #define HUINT_C_TYPE	UDItype
405 #define MODE_NAME	TA
406 #define MODE_NAME_S	ta
407 #define MODE_UNSIGNED	0
408 #endif
409 
410 #if defined (UTA_MODE) && (HAVE_UTA == 1)
411 #define FIXED_SIZE	16	/* in bytes.  */
412 #define INT_C_TYPE	UTItype
413 #define UINT_C_TYPE	UTItype
414 #define HINT_C_TYPE	UDItype
415 #define HUINT_C_TYPE	UDItype
416 #define MODE_NAME	UTA
417 #define MODE_NAME_S	uta
418 #define MODE_UNSIGNED	1
419 #endif
420 
421 /* The following defines are based on the previous defines.  */
422 
423 #if defined (HINT_C_TYPE)
424 #if __BYTE_ORDER__ != __ORDER_LITTLE_ENDIAN__
425   struct INTstruct {HINT_C_TYPE high, low;};
426 #else
427   struct INTstruct {HINT_C_TYPE low, high;};
428 #endif
429 
430 typedef union
431 {
432   struct INTstruct s;
433   INT_C_TYPE ll;
434 } INTunion;
435 #endif
436 
437 #define FIXED_WIDTH	(FIXED_SIZE * __CHAR_BIT__) /* in bits.  */
438 #define FIXED_C_TYPE1(NAME)	NAME ## type
439 #define FIXED_C_TYPE2(NAME)	FIXED_C_TYPE1(NAME)
440 #define FIXED_C_TYPE	FIXED_C_TYPE2(MODE_NAME)
441 #define FBITS1(NAME)	__ ## NAME ## _FBIT__
442 #define FBITS2(NAME)	FBITS1(NAME)
443 #define FBITS		FBITS2(MODE_NAME)
444 #define IBITS1(NAME)	__ ## NAME ## _IBIT__
445 #define IBITS2(NAME)	IBITS1(NAME)
446 #define IBITS		IBITS2(MODE_NAME)
447 #define I_F_BITS	(FBITS + IBITS)
448 
449 #ifdef LIBGCC2_FIXEDBIT_GNU_PREFIX
450 #define FIXED_OP(OP,MODE,NUM)	__gnu_ ## OP ## MODE ## NUM
451 #else
452 #define FIXED_OP(OP,MODE,NUM)	__ ## OP ## MODE ## NUM
453 #endif
454 
455 #define FIXED_SATURATE1_TEMP(NAME)	FIXED_OP(saturate1,NAME,)
456 #define FIXED_SATURATE2_TEMP(NAME)	FIXED_OP(saturate2,NAME,)
457 #define FIXED_MULHELPER_TEMP(NAME)	FIXED_OP(mulhelper,NAME,)
458 #define FIXED_DIVHELPER_TEMP(NAME)	FIXED_OP(divhelper,NAME,)
459 #define FIXED_ASHLHELPER_TEMP(NAME)	FIXED_OP(ashlhelper,NAME,)
460 #define FIXED_ADD_TEMP(NAME)	FIXED_OP(add,NAME,3)
461 #define FIXED_SSADD_TEMP(NAME)	FIXED_OP(ssadd,NAME,3)
462 #define FIXED_USADD_TEMP(NAME)	FIXED_OP(usadd,NAME,3)
463 #define FIXED_SUB_TEMP(NAME)	FIXED_OP(sub,NAME,3)
464 #define FIXED_SSSUB_TEMP(NAME)	FIXED_OP(sssub,NAME,3)
465 #define FIXED_USSUB_TEMP(NAME)	FIXED_OP(ussub,NAME,3)
466 #define FIXED_MUL_TEMP(NAME)	FIXED_OP(mul,NAME,3)
467 #define FIXED_SSMUL_TEMP(NAME)	FIXED_OP(ssmul,NAME,3)
468 #define FIXED_USMUL_TEMP(NAME)	FIXED_OP(usmul,NAME,3)
469 #define FIXED_DIV_TEMP(NAME)	FIXED_OP(div,NAME,3)
470 #define FIXED_UDIV_TEMP(NAME)	FIXED_OP(udiv,NAME,3)
471 #define FIXED_SSDIV_TEMP(NAME)	FIXED_OP(ssdiv,NAME,3)
472 #define FIXED_USDIV_TEMP(NAME)	FIXED_OP(usdiv,NAME,3)
473 #define FIXED_NEG_TEMP(NAME)	FIXED_OP(neg,NAME,2)
474 #define FIXED_SSNEG_TEMP(NAME)	FIXED_OP(ssneg,NAME,2)
475 #define FIXED_USNEG_TEMP(NAME)	FIXED_OP(usneg,NAME,2)
476 #define FIXED_ASHL_TEMP(NAME)	FIXED_OP(ashl,NAME,3)
477 #define FIXED_ASHR_TEMP(NAME)	FIXED_OP(ashr,NAME,3)
478 #define FIXED_LSHR_TEMP(NAME)	FIXED_OP(lshr,NAME,3)
479 #define FIXED_SSASHL_TEMP(NAME)	FIXED_OP(ssashl,NAME,3)
480 #define FIXED_USASHL_TEMP(NAME)	FIXED_OP(usashl,NAME,3)
481 #define FIXED_CMP_TEMP(NAME)	FIXED_OP(cmp,NAME,2)
482 
483 #if defined (MODE_NAME)
484 #if defined (DINT_C_TYPE)
485 #define FIXED_SATURATE1	FIXED_SATURATE1_TEMP(MODE_NAME_S)
486 #else
487 #define FIXED_SATURATE2	FIXED_SATURATE2_TEMP(MODE_NAME_S)
488 #endif
489 #define FIXED_MULHELPER	FIXED_MULHELPER_TEMP(MODE_NAME_S)
490 #define FIXED_DIVHELPER	FIXED_DIVHELPER_TEMP(MODE_NAME_S)
491 #define FIXED_ASHLHELPER	FIXED_ASHLHELPER_TEMP(MODE_NAME_S)
492 #define FIXED_ADD	FIXED_ADD_TEMP(MODE_NAME_S)
493 #define FIXED_SUB	FIXED_SUB_TEMP(MODE_NAME_S)
494 #define FIXED_MUL	FIXED_MUL_TEMP(MODE_NAME_S)
495 #define FIXED_NEG	FIXED_NEG_TEMP(MODE_NAME_S)
496 #define FIXED_ASHL	FIXED_ASHL_TEMP(MODE_NAME_S)
497 #define FIXED_CMP	FIXED_CMP_TEMP(MODE_NAME_S)
498 
499 /* The following functions are for all fixed-point modes.  */
500 #if defined (DINT_C_TYPE)
501 extern void FIXED_SATURATE1 (DINT_C_TYPE *);
502 #else
503 extern void FIXED_SATURATE2 (INT_C_TYPE *, INT_C_TYPE *);
504 #endif
505 extern FIXED_C_TYPE FIXED_MULHELPER (FIXED_C_TYPE, FIXED_C_TYPE, word_type);
506 extern FIXED_C_TYPE FIXED_DIVHELPER (FIXED_C_TYPE, FIXED_C_TYPE, word_type);
507 extern FIXED_C_TYPE FIXED_ASHLHELPER (FIXED_C_TYPE, word_type, word_type);
508 extern FIXED_C_TYPE FIXED_ADD (FIXED_C_TYPE, FIXED_C_TYPE);
509 extern FIXED_C_TYPE FIXED_SUB (FIXED_C_TYPE, FIXED_C_TYPE);
510 extern FIXED_C_TYPE FIXED_MUL (FIXED_C_TYPE, FIXED_C_TYPE);
511 extern FIXED_C_TYPE FIXED_NEG (FIXED_C_TYPE);
512 extern FIXED_C_TYPE FIXED_ASHL (FIXED_C_TYPE, word_type);
513 extern word_type FIXED_CMP (FIXED_C_TYPE, FIXED_C_TYPE);
514 #endif
515 
516 #if MODE_UNSIGNED == 0 /* Signed types.  */
517 #define PADDING_BITS	(FIXED_WIDTH - 1 - I_F_BITS)
518 #define NONPADDING_BITS	(1 + I_F_BITS)
519 
520 #if defined (MODE_NAME)
521 #define FIXED_DIV	FIXED_DIV_TEMP(MODE_NAME_S)
522 #define FIXED_ASHR	FIXED_ASHR_TEMP(MODE_NAME_S)
523 #define FIXED_SSADD	FIXED_SSADD_TEMP(MODE_NAME_S)
524 #define FIXED_SSSUB	FIXED_SSSUB_TEMP(MODE_NAME_S)
525 #define FIXED_SSMUL	FIXED_SSMUL_TEMP(MODE_NAME_S)
526 #define FIXED_SSDIV	FIXED_SSDIV_TEMP(MODE_NAME_S)
527 #define FIXED_SSNEG	FIXED_SSNEG_TEMP(MODE_NAME_S)
528 #define FIXED_SSASHL	FIXED_SSASHL_TEMP(MODE_NAME_S)
529 
530 /* The following functions are for signed fixed-point modes.  */
531 extern FIXED_C_TYPE FIXED_DIV (FIXED_C_TYPE, FIXED_C_TYPE);
532 extern FIXED_C_TYPE FIXED_ASHR (FIXED_C_TYPE, word_type);
533 extern FIXED_C_TYPE FIXED_SSADD (FIXED_C_TYPE, FIXED_C_TYPE);
534 extern FIXED_C_TYPE FIXED_SSSUB (FIXED_C_TYPE, FIXED_C_TYPE);
535 extern FIXED_C_TYPE FIXED_SSMUL (FIXED_C_TYPE, FIXED_C_TYPE);
536 extern FIXED_C_TYPE FIXED_SSDIV (FIXED_C_TYPE, FIXED_C_TYPE);
537 extern FIXED_C_TYPE FIXED_SSNEG (FIXED_C_TYPE);
538 extern FIXED_C_TYPE FIXED_SSASHL (FIXED_C_TYPE, word_type);
539 #endif
540 
541 #else /* Unsigned types.  */
542 #define PADDING_BITS	(FIXED_WIDTH - I_F_BITS)
543 #define NONPADDING_BITS	(I_F_BITS)
544 
545 #if defined (MODE_NAME)
546 #define FIXED_UDIV	FIXED_UDIV_TEMP(MODE_NAME_S)
547 #define FIXED_LSHR	FIXED_LSHR_TEMP(MODE_NAME_S)
548 #define FIXED_USDIV	FIXED_USDIV_TEMP(MODE_NAME_S)
549 #define FIXED_USADD	FIXED_USADD_TEMP(MODE_NAME_S)
550 #define FIXED_USSUB	FIXED_USSUB_TEMP(MODE_NAME_S)
551 #define FIXED_USMUL	FIXED_USMUL_TEMP(MODE_NAME_S)
552 #define FIXED_USNEG	FIXED_USNEG_TEMP(MODE_NAME_S)
553 #define FIXED_USASHL	FIXED_USASHL_TEMP(MODE_NAME_S)
554 
555 /* The following functions are for unsigned fixed-point modes.  */
556 extern FIXED_C_TYPE FIXED_UDIV (FIXED_C_TYPE, FIXED_C_TYPE);
557 extern FIXED_C_TYPE FIXED_LSHR (FIXED_C_TYPE, word_type);
558 extern FIXED_C_TYPE FIXED_USADD (FIXED_C_TYPE, FIXED_C_TYPE);
559 extern FIXED_C_TYPE FIXED_USSUB (FIXED_C_TYPE, FIXED_C_TYPE);
560 extern FIXED_C_TYPE FIXED_USMUL (FIXED_C_TYPE, FIXED_C_TYPE);
561 extern FIXED_C_TYPE FIXED_USDIV (FIXED_C_TYPE, FIXED_C_TYPE);
562 extern FIXED_C_TYPE FIXED_USNEG (FIXED_C_TYPE);
563 extern FIXED_C_TYPE FIXED_USASHL (FIXED_C_TYPE, word_type);
564 #endif
565 
566 #endif /* End of testing MODE_UNSIGNED.  */
567 
568 /* This define is to check if this mode have any padding bits.  */
569 #define HAVE_PADDING_BITS	(PADDING_BITS > 0)
570 
571 /* ------------------------------------------------------------------------ */
572 /* The following defines are for conversions.  */
573 
574 #if defined (FROM_QI) && HAVE_QI == 1
575 #define FROM_TYPE		1	/* Signed integer.  */
576 #define FROM_INT_C_TYPE		QItype
577 #define FROM_SINT_C_TYPE	QItype
578 #define FROM_UINT_C_TYPE	UQItype
579 #define FROM_MODE_NAME_S	qi
580 #define FROM_INT_SIZE		1	/* in bytes.  */
581 
582 #elif defined (FROM_HI) && HAVE_HI == 1
583 #define FROM_TYPE		1	/* Signed integer.  */
584 #define FROM_INT_C_TYPE		HItype
585 #define FROM_SINT_C_TYPE	HItype
586 #define FROM_UINT_C_TYPE	UHItype
587 #define FROM_MODE_NAME_S	hi
588 #define FROM_INT_SIZE		2	/* in bytes.  */
589 
590 #elif defined (FROM_SI) && HAVE_SI == 1
591 #define FROM_TYPE		1	/* Signed integer.  */
592 #define FROM_INT_C_TYPE		SItype
593 #define FROM_SINT_C_TYPE	SItype
594 #define FROM_UINT_C_TYPE	USItype
595 #define FROM_MODE_NAME_S	si
596 #define FROM_INT_SIZE		4	/* in bytes.  */
597 
598 #elif defined (FROM_DI) && HAVE_DI == 1
599 #define FROM_TYPE		1	/* Signed integer.  */
600 #define FROM_INT_C_TYPE		DItype
601 #define FROM_SINT_C_TYPE	DItype
602 #define FROM_UINT_C_TYPE	UDItype
603 #define FROM_MODE_NAME_S	di
604 #define FROM_INT_SIZE		8	/* in bytes.  */
605 
606 #elif defined (FROM_TI) && HAVE_TI == 1
607 #define FROM_TYPE		1	/* Signed integer.  */
608 #define FROM_INT_C_TYPE		TItype
609 #define FROM_SINT_C_TYPE	TItype
610 #define FROM_UINT_C_TYPE	UTItype
611 #define FROM_MODE_NAME_S	ti
612 #define FROM_INT_SIZE		16	/* in bytes.  */
613 
614 #elif defined (FROM_UQI) && HAVE_UQI == 1
615 #define FROM_TYPE		2	/* Unsigned integer.  */
616 #define FROM_INT_C_TYPE		QItype
617 #define FROM_SINT_C_TYPE	QItype
618 #define FROM_UINT_C_TYPE	UQItype
619 #define FROM_MODE_NAME_S	qi
620 #define FROM_INT_SIZE		1	/* in bytes.  */
621 
622 #elif defined (FROM_UHI) && HAVE_UHI == 1
623 #define FROM_TYPE		2	/* Unsigned integer.  */
624 #define FROM_INT_C_TYPE		UHItype
625 #define FROM_SINT_C_TYPE	HItype
626 #define FROM_UINT_C_TYPE	UHItype
627 #define FROM_MODE_NAME_S	hi
628 #define FROM_INT_SIZE		2	/* in bytes.  */
629 
630 #elif defined (FROM_USI) && HAVE_USI == 1
631 #define FROM_TYPE		2	/* Unsigned integer.  */
632 #define FROM_INT_C_TYPE		USItype
633 #define FROM_SINT_C_TYPE	SItype
634 #define FROM_UINT_C_TYPE	USItype
635 #define FROM_MODE_NAME_S	si
636 #define FROM_INT_SIZE		4	/* in bytes.  */
637 
638 #elif defined (FROM_UDI) && HAVE_UDI == 1
639 #define FROM_TYPE		2	/* Unsigned integer.  */
640 #define FROM_INT_C_TYPE		UDItype
641 #define FROM_SINT_C_TYPE	DItype
642 #define FROM_UINT_C_TYPE	UDItype
643 #define FROM_MODE_NAME_S	di
644 #define FROM_INT_SIZE		8	/* in bytes.  */
645 
646 #elif defined (FROM_UTI) && HAVE_UTI == 1
647 #define FROM_TYPE		2	/* Unsigned integer.  */
648 #define FROM_INT_C_TYPE		UTItype
649 #define FROM_SINT_C_TYPE	TItype
650 #define FROM_UINT_C_TYPE	UTItype
651 #define FROM_MODE_NAME_S	ti
652 #define FROM_INT_SIZE		16	/* in bytes.  */
653 
654 #elif defined (FROM_SF) && HAVE_SF == 1
655 #define FROM_TYPE		3	/* Floating-point.  */
656 #define FROM_FLOAT_C_TYPE	SFtype
657 #define FROM_MODE_NAME_S	sf
658 
659 #elif defined (FROM_DF) && HAVE_DF == 1
660 #define FROM_TYPE		3	/* Floating-point.  */
661 #define FROM_FLOAT_C_TYPE	DFtype
662 #define FROM_MODE_NAME_S	df
663 
664 #elif defined (FROM_QQ) && HAVE_QQ == 1
665 #define FROM_TYPE		4	/* Fixed-point.  */
666 #define FROM_MODE_NAME		QQ
667 #define FROM_MODE_NAME_S	qq
668 #define FROM_INT_C_TYPE		QItype
669 #define FROM_SINT_C_TYPE	QItype
670 #define FROM_UINT_C_TYPE	UQItype
671 #define FROM_MODE_UNSIGNED	0
672 #define FROM_FIXED_SIZE		1	/* in bytes.  */
673 
674 #elif defined (FROM_HQ) && HAVE_HQ == 1
675 #define FROM_TYPE		4	/* Fixed-point.  */
676 #define FROM_MODE_NAME		HQ
677 #define FROM_MODE_NAME_S	hq
678 #define FROM_INT_C_TYPE		HItype
679 #define FROM_SINT_C_TYPE	HItype
680 #define FROM_UINT_C_TYPE	UHItype
681 #define FROM_MODE_UNSIGNED	0
682 #define FROM_FIXED_SIZE		2	/* in bytes.  */
683 
684 #elif defined (FROM_SQ) && HAVE_SQ == 1
685 #define FROM_TYPE		4	/* Fixed-point.  */
686 #define FROM_MODE_NAME		SQ
687 #define FROM_MODE_NAME_S	sq
688 #define FROM_INT_C_TYPE		SItype
689 #define FROM_SINT_C_TYPE	SItype
690 #define FROM_UINT_C_TYPE	USItype
691 #define FROM_MODE_UNSIGNED	0
692 #define FROM_FIXED_SIZE		4	/* in bytes.  */
693 
694 #elif defined (FROM_DQ) && HAVE_DQ == 1
695 #define FROM_TYPE		4	/* Fixed-point.  */
696 #define FROM_MODE_NAME		DQ
697 #define FROM_MODE_NAME_S	dq
698 #define FROM_INT_C_TYPE		DItype
699 #define FROM_SINT_C_TYPE	DItype
700 #define FROM_UINT_C_TYPE	UDItype
701 #define FROM_MODE_UNSIGNED	0
702 #define FROM_FIXED_SIZE		8	/* in bytes.  */
703 
704 #elif defined (FROM_TQ) && HAVE_TQ == 1
705 #define FROM_TYPE		4	/* Fixed-point.  */
706 #define FROM_MODE_NAME		TQ
707 #define FROM_MODE_NAME_S	tq
708 #define FROM_INT_C_TYPE		TItype
709 #define FROM_SINT_C_TYPE	TItype
710 #define FROM_UINT_C_TYPE	UTItype
711 #define FROM_MODE_UNSIGNED	0
712 #define FROM_FIXED_SIZE		16	/* in bytes.  */
713 
714 #elif defined (FROM_UQQ) && HAVE_UQQ == 1
715 #define FROM_TYPE		4	/* Fixed-point.  */
716 #define FROM_MODE_NAME		UQQ
717 #define FROM_MODE_NAME_S	uqq
718 #define FROM_INT_C_TYPE		UQItype
719 #define FROM_SINT_C_TYPE	QItype
720 #define FROM_UINT_C_TYPE	UQItype
721 #define FROM_MODE_UNSIGNED	1
722 #define FROM_FIXED_SIZE		1	/* in bytes.  */
723 
724 #elif defined (FROM_UHQ) && HAVE_UHQ == 1
725 #define FROM_TYPE		4	/* Fixed-point.  */
726 #define FROM_MODE_NAME		UHQ
727 #define FROM_MODE_NAME_S	uhq
728 #define FROM_INT_C_TYPE		UHItype
729 #define FROM_SINT_C_TYPE	HItype
730 #define FROM_UINT_C_TYPE	UHItype
731 #define FROM_MODE_UNSIGNED	1
732 #define FROM_FIXED_SIZE		2	/* in bytes.  */
733 
734 #elif defined (FROM_USQ) && HAVE_USQ == 1
735 #define FROM_TYPE		4	/* Fixed-point.  */
736 #define FROM_MODE_NAME		USQ
737 #define FROM_MODE_NAME_S	usq
738 #define FROM_INT_C_TYPE		USItype
739 #define FROM_SINT_C_TYPE	SItype
740 #define FROM_UINT_C_TYPE	USItype
741 #define FROM_MODE_UNSIGNED	1
742 #define FROM_FIXED_SIZE		4	/* in bytes.  */
743 
744 #elif defined (FROM_UDQ) && HAVE_UDQ == 1
745 #define FROM_TYPE		4	/* Fixed-point.  */
746 #define FROM_MODE_NAME		UDQ
747 #define FROM_MODE_NAME_S	udq
748 #define FROM_INT_C_TYPE		UDItype
749 #define FROM_SINT_C_TYPE	DItype
750 #define FROM_UINT_C_TYPE	UDItype
751 #define FROM_MODE_UNSIGNED	1
752 #define FROM_FIXED_SIZE		8	/* in bytes.  */
753 
754 #elif defined (FROM_UTQ) && HAVE_UTQ == 1
755 #define FROM_TYPE		4	/* Fixed-point.  */
756 #define FROM_MODE_NAME		UTQ
757 #define FROM_MODE_NAME_S	utq
758 #define FROM_INT_C_TYPE		UTItype
759 #define FROM_SINT_C_TYPE	TItype
760 #define FROM_UINT_C_TYPE	UTItype
761 #define FROM_MODE_UNSIGNED	1
762 #define FROM_FIXED_SIZE		16	/* in bytes.  */
763 
764 #elif defined (FROM_HA) && HAVE_HA == 1
765 #define FROM_TYPE		4	/* Fixed-point.  */
766 #define FROM_MODE_NAME		HA
767 #define FROM_MODE_NAME_S	ha
768 #define FROM_INT_C_TYPE		HItype
769 #define FROM_SINT_C_TYPE	HItype
770 #define FROM_UINT_C_TYPE	UHItype
771 #define FROM_MODE_UNSIGNED	0
772 #define FROM_FIXED_SIZE		2	/* in bytes.  */
773 
774 #elif defined (FROM_SA) && HAVE_SA == 1
775 #define FROM_TYPE		4	/* Fixed-point.  */
776 #define FROM_MODE_NAME		SA
777 #define FROM_MODE_NAME_S	sa
778 #define FROM_INT_C_TYPE		SItype
779 #define FROM_SINT_C_TYPE	SItype
780 #define FROM_UINT_C_TYPE	USItype
781 #define FROM_MODE_UNSIGNED	0
782 #define FROM_FIXED_SIZE		4	/* in bytes.  */
783 
784 #elif defined (FROM_DA) && HAVE_DA == 1
785 #define FROM_TYPE		4	/* Fixed-point.  */
786 #define FROM_MODE_NAME		DA
787 #define FROM_MODE_NAME_S	da
788 #define FROM_INT_C_TYPE		DItype
789 #define FROM_SINT_C_TYPE	DItype
790 #define FROM_UINT_C_TYPE	UDItype
791 #define FROM_MODE_UNSIGNED	0
792 #define FROM_FIXED_SIZE		8	/* in bytes.  */
793 
794 #elif defined (FROM_TA) && HAVE_TA == 1
795 #define FROM_TYPE		4	/* Fixed-point.  */
796 #define FROM_MODE_NAME		TA
797 #define FROM_MODE_NAME_S	ta
798 #define FROM_INT_C_TYPE		TItype
799 #define FROM_SINT_C_TYPE	TItype
800 #define FROM_UINT_C_TYPE	UTItype
801 #define FROM_MODE_UNSIGNED	0
802 #define FROM_FIXED_SIZE		16	/* in bytes.  */
803 
804 #elif defined (FROM_UHA) && HAVE_UHA == 1
805 #define FROM_TYPE		4	/* Fixed-point.  */
806 #define FROM_MODE_NAME		UHA
807 #define FROM_MODE_NAME_S	uha
808 #define FROM_INT_C_TYPE		UHItype
809 #define FROM_SINT_C_TYPE	HItype
810 #define FROM_UINT_C_TYPE	UHItype
811 #define FROM_MODE_UNSIGNED	1
812 #define FROM_FIXED_SIZE		2	/* in bytes.  */
813 
814 #elif defined (FROM_USA) && HAVE_USA == 1
815 #define FROM_TYPE		4	/* Fixed-point.  */
816 #define FROM_MODE_NAME		USA
817 #define FROM_MODE_NAME_S	usa
818 #define FROM_INT_C_TYPE		USItype
819 #define FROM_SINT_C_TYPE	SItype
820 #define FROM_UINT_C_TYPE	USItype
821 #define FROM_MODE_UNSIGNED	1
822 #define FROM_FIXED_SIZE		4	/* in bytes.  */
823 
824 #elif defined (FROM_UDA) && HAVE_UDA == 1
825 #define FROM_TYPE		4	/* Fixed-point.  */
826 #define FROM_MODE_NAME		UDA
827 #define FROM_MODE_NAME_S	uda
828 #define FROM_INT_C_TYPE		UDItype
829 #define FROM_SINT_C_TYPE	DItype
830 #define FROM_UINT_C_TYPE	UDItype
831 #define FROM_MODE_UNSIGNED	1
832 #define FROM_FIXED_SIZE		8	/* in bytes.  */
833 
834 #elif defined (FROM_UTA) && HAVE_UTA == 1
835 #define FROM_TYPE		4	/* Fixed-point.  */
836 #define FROM_MODE_NAME		UTA
837 #define FROM_MODE_NAME_S	uta
838 #define FROM_INT_C_TYPE		UTItype
839 #define FROM_SINT_C_TYPE	TItype
840 #define FROM_UINT_C_TYPE	UTItype
841 #define FROM_MODE_UNSIGNED	1
842 #define FROM_FIXED_SIZE		16	/* in bytes.  */
843 
844 #endif
845 
846 #if defined (TO_QI) && HAVE_QI == 1 && !defined (FROM_QI)
847 #define TO_TYPE			1	/* Signed integer.  */
848 #define TO_INT_C_TYPE		QItype
849 #define TO_SINT_C_TYPE		QItype
850 #define TO_UINT_C_TYPE		UQItype
851 #define TO_MODE_NAME_S		qi
852 
853 #elif defined (TO_HI) && HAVE_HI == 1 && !defined (FROM_HI)
854 #define TO_TYPE			1	/* Signed integer.  */
855 #define TO_INT_C_TYPE		HItype
856 #define TO_SINT_C_TYPE		HItype
857 #define TO_UINT_C_TYPE		UHItype
858 #define TO_MODE_NAME_S		hi
859 
860 #elif defined (TO_SI) && HAVE_SI == 1 && !defined (FROM_SI)
861 #define TO_TYPE			1	/* Signed integer.  */
862 #define TO_INT_C_TYPE		SItype
863 #define TO_SINT_C_TYPE		SItype
864 #define TO_UINT_C_TYPE		USItype
865 #define TO_MODE_NAME_S		si
866 
867 #elif defined (TO_DI) && HAVE_DI == 1 && !defined (FROM_DI)
868 #define TO_TYPE			1	/* Signed integer.  */
869 #define TO_INT_C_TYPE		DItype
870 #define TO_SINT_C_TYPE		DItype
871 #define TO_UINT_C_TYPE		UDItype
872 #define TO_MODE_NAME_S		di
873 
874 #elif defined (TO_TI) && HAVE_TI == 1 && !defined (FROM_TI)
875 #define TO_TYPE			1	/* Signed integer.  */
876 #define TO_INT_C_TYPE		TItype
877 #define TO_SINT_C_TYPE		TItype
878 #define TO_UINT_C_TYPE		UTItype
879 #define TO_MODE_NAME_S		ti
880 
881 #elif defined (TO_UQI) && HAVE_UQI == 1 && !defined (FROM_UQI)
882 #define TO_TYPE			2	/* Unsigned integer.  */
883 #define TO_INT_C_TYPE		UQItype
884 #define TO_SINT_C_TYPE		QItype
885 #define TO_UINT_C_TYPE		UQItype
886 #define TO_MODE_NAME_S		qi
887 
888 #elif defined (TO_UHI) && HAVE_UHI == 1 && !defined (FROM_UHI)
889 #define TO_TYPE			2	/* Unsigned integer.  */
890 #define TO_INT_C_TYPE		UHItype
891 #define TO_SINT_C_TYPE		HItype
892 #define TO_UINT_C_TYPE		UHItype
893 #define TO_MODE_NAME_S		hi
894 
895 #elif defined (TO_USI) && HAVE_USI == 1 && !defined (FROM_USI)
896 #define TO_TYPE			2	/* Unsigned integer.  */
897 #define TO_INT_C_TYPE		USItype
898 #define TO_SINT_C_TYPE		SItype
899 #define TO_UINT_C_TYPE		USItype
900 #define TO_MODE_NAME_S		si
901 
902 #elif defined (TO_UDI) && HAVE_UDI == 1 && !defined (FROM_UDI)
903 #define TO_TYPE			2	/* Unsigned integer.  */
904 #define TO_INT_C_TYPE		UDItype
905 #define TO_SINT_C_TYPE		DItype
906 #define TO_UINT_C_TYPE		UDItype
907 #define TO_MODE_NAME_S		di
908 
909 #elif defined (TO_UTI) && HAVE_UTI == 1 && !defined (FROM_UTI)
910 #define TO_TYPE			2	/* Unsigned integer.  */
911 #define TO_INT_C_TYPE		UTItype
912 #define TO_SINT_C_TYPE		TItype
913 #define TO_UINT_C_TYPE		UTItype
914 #define TO_MODE_NAME_S		ti
915 
916 #elif defined (TO_SF) && HAVE_SF == 1 && !defined (FROM_SF)
917 #define TO_TYPE			3	/* Floating-point.  */
918 #define TO_FLOAT_C_TYPE		SFtype
919 #define TO_MODE_NAME_S		sf
920 
921 #elif defined (TO_DF) && HAVE_DF == 1 && !defined (FROM_DF)
922 #define TO_TYPE			3	/* Floating-point.  */
923 #define TO_FLOAT_C_TYPE		DFtype
924 #define TO_MODE_NAME_S		df
925 
926 #elif defined (TO_QQ) && HAVE_QQ == 1 && !defined (FROM_QQ)
927 #define TO_TYPE			4	/* Fixed-point.  */
928 #define TO_MODE_NAME		QQ
929 #define TO_MODE_NAME_S		qq
930 #define TO_INT_C_TYPE		QItype
931 #define TO_SINT_C_TYPE		QItype
932 #define TO_UINT_C_TYPE		UQItype
933 #define TO_MODE_UNSIGNED	0
934 #define TO_FIXED_SIZE		1	/* in bytes.  */
935 
936 #elif defined (TO_HQ) && HAVE_HQ == 1 && !defined (FROM_HQ)
937 #define TO_TYPE			4	/* Fixed-point.  */
938 #define TO_MODE_NAME		HQ
939 #define TO_MODE_NAME_S		hq
940 #define TO_INT_C_TYPE		HItype
941 #define TO_SINT_C_TYPE		HItype
942 #define TO_UINT_C_TYPE		UHItype
943 #define TO_MODE_UNSIGNED	0
944 #define TO_FIXED_SIZE		2	/* in bytes.  */
945 
946 #elif defined (TO_SQ) && HAVE_SQ == 1 && !defined (FROM_SQ)
947 #define TO_TYPE			4	/* Fixed-point.  */
948 #define TO_MODE_NAME		SQ
949 #define TO_MODE_NAME_S		sq
950 #define TO_INT_C_TYPE		SItype
951 #define TO_SINT_C_TYPE		SItype
952 #define TO_UINT_C_TYPE		USItype
953 #define TO_MODE_UNSIGNED	0
954 #define TO_FIXED_SIZE		4	/* in bytes.  */
955 
956 #elif defined (TO_DQ) && HAVE_DQ == 1 && !defined (FROM_DQ)
957 #define TO_TYPE			4	/* Fixed-point.  */
958 #define TO_MODE_NAME		DQ
959 #define TO_MODE_NAME_S		dq
960 #define TO_INT_C_TYPE		DItype
961 #define TO_SINT_C_TYPE		DItype
962 #define TO_UINT_C_TYPE		UDItype
963 #define TO_MODE_UNSIGNED	0
964 #define TO_FIXED_SIZE		8	/* in bytes.  */
965 
966 #elif defined (TO_TQ) && HAVE_TQ == 1 && !defined (FROM_TQ)
967 #define TO_TYPE			4	/* Fixed-point.  */
968 #define TO_MODE_NAME		TQ
969 #define TO_MODE_NAME_S		tq
970 #define TO_INT_C_TYPE		TItype
971 #define TO_SINT_C_TYPE		TItype
972 #define TO_UINT_C_TYPE		UTItype
973 #define TO_MODE_UNSIGNED	0
974 #define TO_FIXED_SIZE		16	/* in bytes.  */
975 
976 #elif defined (TO_UQQ) && HAVE_UQQ == 1 && !defined (FROM_UQQ)
977 #define TO_TYPE			4	/* Fixed-point.  */
978 #define TO_MODE_NAME		UQQ
979 #define TO_MODE_NAME_S		uqq
980 #define TO_INT_C_TYPE		UQItype
981 #define TO_SINT_C_TYPE		QItype
982 #define TO_UINT_C_TYPE		UQItype
983 #define TO_MODE_UNSIGNED	1
984 #define TO_FIXED_SIZE		1	/* in bytes.  */
985 
986 #elif defined (TO_UHQ) && HAVE_UHQ == 1 && !defined (FROM_UHQ)
987 #define TO_TYPE			4	/* Fixed-point.  */
988 #define TO_MODE_NAME		UHQ
989 #define TO_MODE_NAME_S		uhq
990 #define TO_INT_C_TYPE		UHItype
991 #define TO_SINT_C_TYPE		HItype
992 #define TO_UINT_C_TYPE		UHItype
993 #define TO_MODE_UNSIGNED	1
994 #define TO_FIXED_SIZE		2	/* in bytes.  */
995 
996 #elif defined (TO_USQ) && HAVE_USQ == 1 && !defined (FROM_USQ)
997 #define TO_TYPE			4	/* Fixed-point.  */
998 #define TO_MODE_NAME		USQ
999 #define TO_MODE_NAME_S		usq
1000 #define TO_INT_C_TYPE		USItype
1001 #define TO_SINT_C_TYPE		SItype
1002 #define TO_UINT_C_TYPE		USItype
1003 #define TO_MODE_UNSIGNED	1
1004 #define TO_FIXED_SIZE		4	/* in bytes.  */
1005 
1006 #elif defined (TO_UDQ) && HAVE_UDQ == 1 && !defined (FROM_UDQ)
1007 #define TO_TYPE			4	/* Fixed-point.  */
1008 #define TO_MODE_NAME		UDQ
1009 #define TO_MODE_NAME_S		udq
1010 #define TO_INT_C_TYPE		UDItype
1011 #define TO_SINT_C_TYPE		DItype
1012 #define TO_UINT_C_TYPE		UDItype
1013 #define TO_MODE_UNSIGNED	1
1014 #define TO_FIXED_SIZE		8	/* in bytes.  */
1015 
1016 #elif defined (TO_UTQ) && HAVE_UTQ == 1 && !defined (FROM_UTQ)
1017 #define TO_TYPE			4	/* Fixed-point.  */
1018 #define TO_MODE_NAME		UTQ
1019 #define TO_MODE_NAME_S		utq
1020 #define TO_INT_C_TYPE		UTItype
1021 #define TO_SINT_C_TYPE		TItype
1022 #define TO_UINT_C_TYPE		UTItype
1023 #define TO_MODE_UNSIGNED	1
1024 #define TO_FIXED_SIZE		16	/* in bytes.  */
1025 
1026 #elif defined (TO_HA) && HAVE_HA == 1 && !defined (FROM_HA)
1027 #define TO_TYPE			4	/* Fixed-point.  */
1028 #define TO_MODE_NAME		HA
1029 #define TO_MODE_NAME_S		ha
1030 #define TO_INT_C_TYPE		HItype
1031 #define TO_SINT_C_TYPE		HItype
1032 #define TO_UINT_C_TYPE		UHItype
1033 #define TO_MODE_UNSIGNED	0
1034 #define TO_FIXED_SIZE		2	/* in bytes.  */
1035 
1036 #elif defined (TO_SA) && HAVE_SA == 1 && !defined (FROM_SA)
1037 #define TO_TYPE			4	/* Fixed-point.  */
1038 #define TO_MODE_NAME		SA
1039 #define TO_MODE_NAME_S		sa
1040 #define TO_INT_C_TYPE		SItype
1041 #define TO_SINT_C_TYPE		SItype
1042 #define TO_UINT_C_TYPE		USItype
1043 #define TO_MODE_UNSIGNED	0
1044 #define TO_FIXED_SIZE		4	/* in bytes.  */
1045 
1046 #elif defined (TO_DA) && HAVE_DA == 1 && !defined (FROM_DA)
1047 #define TO_TYPE			4	/* Fixed-point.  */
1048 #define TO_MODE_NAME		DA
1049 #define TO_MODE_NAME_S		da
1050 #define TO_INT_C_TYPE		DItype
1051 #define TO_SINT_C_TYPE		DItype
1052 #define TO_UINT_C_TYPE		UDItype
1053 #define TO_MODE_UNSIGNED	0
1054 #define TO_FIXED_SIZE		8	/* in bytes.  */
1055 
1056 #elif defined (TO_TA) && HAVE_TA == 1 && !defined (FROM_TA)
1057 #define TO_TYPE			4	/* Fixed-point.  */
1058 #define TO_MODE_NAME		TA
1059 #define TO_MODE_NAME_S		ta
1060 #define TO_INT_C_TYPE		TItype
1061 #define TO_SINT_C_TYPE		TItype
1062 #define TO_UINT_C_TYPE		UTItype
1063 #define TO_MODE_UNSIGNED	0
1064 #define TO_FIXED_SIZE		16	/* in bytes.  */
1065 
1066 #elif defined (TO_UHA) && HAVE_UHA == 1 && !defined (FROM_UHA)
1067 #define TO_TYPE			4	/* Fixed-point.  */
1068 #define TO_MODE_NAME		UHA
1069 #define TO_MODE_NAME_S		uha
1070 #define TO_INT_C_TYPE		UHItype
1071 #define TO_SINT_C_TYPE		HItype
1072 #define TO_UINT_C_TYPE		UHItype
1073 #define TO_MODE_UNSIGNED	1
1074 #define TO_FIXED_SIZE		2	/* in bytes.  */
1075 
1076 #elif defined (TO_USA) && HAVE_USA == 1 && !defined (FROM_USA)
1077 #define TO_TYPE			4	/* Fixed-point.  */
1078 #define TO_MODE_NAME		USA
1079 #define TO_MODE_NAME_S		usa
1080 #define TO_INT_C_TYPE		USItype
1081 #define TO_SINT_C_TYPE		SItype
1082 #define TO_UINT_C_TYPE		USItype
1083 #define TO_MODE_UNSIGNED	1
1084 #define TO_FIXED_SIZE		4	/* in bytes.  */
1085 
1086 #elif defined (TO_UDA) && HAVE_UDA == 1 && !defined (FROM_UDA)
1087 #define TO_TYPE			4	/* Fixed-point.  */
1088 #define TO_MODE_NAME		UDA
1089 #define TO_MODE_NAME_S		uda
1090 #define TO_INT_C_TYPE		UDItype
1091 #define TO_SINT_C_TYPE		DItype
1092 #define TO_UINT_C_TYPE		UDItype
1093 #define TO_MODE_UNSIGNED	1
1094 #define TO_FIXED_SIZE		8	/* in bytes.  */
1095 
1096 #elif defined (TO_UTA) && HAVE_UTA == 1 && !defined (FROM_UTA)
1097 #define TO_TYPE			4	/* Fixed-point.  */
1098 #define TO_MODE_NAME		UTA
1099 #define TO_MODE_NAME_S		uta
1100 #define TO_INT_C_TYPE		UTItype
1101 #define TO_SINT_C_TYPE		TItype
1102 #define TO_UINT_C_TYPE		UTItype
1103 #define TO_MODE_UNSIGNED	1
1104 #define TO_FIXED_SIZE		16	/* in bytes.  */
1105 
1106 #endif
1107 
1108 #if defined (FROM_MODE_NAME_S) && defined (TO_MODE_NAME_S)
1109 
1110 #if FROM_TYPE == 1	/* Signed integer.  */
1111 #define FROM_INT_WIDTH		(FROM_INT_SIZE * __CHAR_BIT__)
1112 #endif
1113 
1114 #if FROM_TYPE == 2	/* Unsigned integer.  */
1115 #define FROM_INT_WIDTH		(FROM_INT_SIZE * __CHAR_BIT__)
1116 #endif
1117 
1118 #if FROM_TYPE == 4	/* Fixed-point.  */
1119 #define FROM_FIXED_C_TYPE	FIXED_C_TYPE2(FROM_MODE_NAME)
1120 #define FROM_FBITS		FBITS2(FROM_MODE_NAME)
1121 #define FROM_FIXED_WIDTH	(FROM_FIXED_SIZE * __CHAR_BIT__)
1122 #define FROM_FBITS		FBITS2(FROM_MODE_NAME)
1123 #define FROM_IBITS		IBITS2(FROM_MODE_NAME)
1124 #define FROM_I_F_BITS		(FROM_FBITS + FROM_IBITS)
1125 
1126 #if FROM_MODE_UNSIGNED == 0 /* Signed types.  */
1127 #define FROM_PADDING_BITS	(FROM_FIXED_WIDTH - 1 - FROM_I_F_BITS)
1128 #define FROM_NONPADDING_BITS	(1 + FROM_I_F_BITS)
1129 #else /* Unsigned types.  */
1130 #define FROM_PADDING_BITS	(FROM_FIXED_WIDTH - FROM_I_F_BITS)
1131 #define FROM_NONPADDING_BITS	(FROM_I_F_BITS)
1132 #endif
1133 #define FROM_HAVE_PADDING_BITS	(FROM_PADDING_BITS > 0)
1134 #endif /* FROM_TYPE == 4  */
1135 
1136 #if TO_TYPE == 4	/* Fixed-point.  */
1137 #define TO_FIXED_C_TYPE		FIXED_C_TYPE2(TO_MODE_NAME)
1138 #define TO_FBITS		FBITS2(TO_MODE_NAME)
1139 #define TO_FIXED_WIDTH		(TO_FIXED_SIZE * __CHAR_BIT__)
1140 #define TO_FBITS		FBITS2(TO_MODE_NAME)
1141 #define TO_IBITS		IBITS2(TO_MODE_NAME)
1142 #define TO_I_F_BITS		(TO_FBITS + TO_IBITS)
1143 
1144 #if TO_MODE_UNSIGNED == 0 /* Signed types.  */
1145 #define TO_PADDING_BITS		(TO_FIXED_WIDTH - 1 - TO_I_F_BITS)
1146 #define TO_NONPADDING_BITS	(1 + TO_I_F_BITS)
1147 #else /* Unsigned types.  */
1148 #define TO_PADDING_BITS		(TO_FIXED_WIDTH - TO_I_F_BITS)
1149 #define TO_NONPADDING_BITS	(TO_I_F_BITS)
1150 #endif
1151 #define TO_HAVE_PADDING_BITS	(TO_PADDING_BITS > 0)
1152 #endif /* TO_TYPE == 4  */
1153 
1154 #ifdef LIBGCC2_FIXEDBIT_GNU_PREFIX
1155 #define FIXED_CONVERT_OP(OP,FROM,TO)	__gnu_ ## OP ## FROM ## TO
1156 #define FIXED_CONVERT_OP2(OP,FROM,TO)	__gnu_ ## OP ## FROM ## TO ## 2
1157 #else
1158 #define FIXED_CONVERT_OP(OP,FROM,TO)	__ ## OP ## FROM ## TO
1159 #define FIXED_CONVERT_OP2(OP,FROM,TO)	__ ## OP ## FROM ## TO ## 2
1160 #endif
1161 #define FRACT_TEMP(N1,N2)		FIXED_CONVERT_OP(fract,N1,N2)
1162 #define FRACT2_TEMP(N1,N2)		FIXED_CONVERT_OP2(fract,N1,N2)
1163 #define SATFRACT_TEMP(N1,N2)		FIXED_CONVERT_OP(satfract,N1,N2)
1164 #define SATFRACT2_TEMP(N1,N2)		FIXED_CONVERT_OP2(satfract,N1,N2)
1165 #define FRACTUNS_TEMP(N1,N2)		FIXED_CONVERT_OP(fractuns,N1,N2)
1166 #define SATFRACTUNS_TEMP(N1,N2)		FIXED_CONVERT_OP(satfractuns,N1,N2)
1167 
1168 /* Define conversions from fixed-point to fixed-point.  */
1169 #if FROM_TYPE == 4 && TO_TYPE == 4
1170 
1171 #if FROM_FIXED_SIZE > TO_FIXED_SIZE
1172 #define BIG_SINT_C_TYPE	FROM_SINT_C_TYPE
1173 #define BIG_UINT_C_TYPE	FROM_UINT_C_TYPE
1174 #define BIG_WIDTH	FROM_FIXED_WIDTH
1175 #else
1176 #define BIG_SINT_C_TYPE	TO_SINT_C_TYPE
1177 #define BIG_UINT_C_TYPE	TO_UINT_C_TYPE
1178 #define BIG_WIDTH	TO_FIXED_WIDTH
1179 #endif
1180 
1181 /* Check if FROM* and TO* are in the same machine class.  */
1182 #if ((FROM_MODE_UNSIGNED == TO_MODE_UNSIGNED) \
1183      && ((FROM_IBITS == 0) == (TO_IBITS == 0)))
1184 /* Same modes: append '2' to conversion function names */
1185 #define FRACT		FRACT2_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1186 #define SATFRACT	SATFRACT2_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1187 #else
1188 /* Different modes: don't append '2' to conversion function names */
1189 #define FRACT		FRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1190 #define SATFRACT	SATFRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1191 #endif
1192 
1193 extern TO_FIXED_C_TYPE FRACT (FROM_FIXED_C_TYPE);
1194 extern TO_FIXED_C_TYPE SATFRACT (FROM_FIXED_C_TYPE);
1195 #endif /* FROM_TYPE == 4 && TO_TYPE == 4  */
1196 
1197 /* Define conversions from fixed-point to signed integer.  */
1198 #if FROM_TYPE == 4 && TO_TYPE == 1
1199 #define FRACT		FRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1200 extern TO_INT_C_TYPE	FRACT (FROM_FIXED_C_TYPE);
1201 #endif /* FROM_TYPE == 4 && TO_TYPE == 1  */
1202 
1203 /* Define conversions from fixed-point to unsigned integer.  */
1204 #if FROM_TYPE == 4 && TO_TYPE == 2
1205 #define FRACTUNS	FRACTUNS_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1206 extern TO_INT_C_TYPE 	FRACTUNS (FROM_FIXED_C_TYPE);
1207 #endif /* FROM_TYPE == 4 && TO_TYPE == 2  */
1208 
1209 /* Define conversions from fixed-point to floating-point.  */
1210 #if FROM_TYPE == 4 && TO_TYPE == 3
1211 #define BASE1(NUM)	0x1.0p ## NUM
1212 #define BASE2(NUM)	BASE1(NUM)
1213 #define BASE		BASE2(FROM_FBITS)
1214 #define FRACT		FRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1215 extern TO_FLOAT_C_TYPE	FRACT (FROM_FIXED_C_TYPE);
1216 #endif /* FROM_TYPE == 4 && TO_TYPE == 3  */
1217 
1218 /* Define conversions from signed integer to fixed-point.  */
1219 #if FROM_TYPE == 1 && TO_TYPE == 4
1220 
1221 #if FROM_INT_SIZE > TO_FIXED_SIZE
1222 #define BIG_SINT_C_TYPE	FROM_SINT_C_TYPE
1223 #define BIG_UINT_C_TYPE	FROM_UINT_C_TYPE
1224 #define BIG_WIDTH	FROM_INT_WIDTH
1225 #else
1226 #define BIG_SINT_C_TYPE	TO_SINT_C_TYPE
1227 #define BIG_UINT_C_TYPE	TO_UINT_C_TYPE
1228 #define BIG_WIDTH	TO_FIXED_WIDTH
1229 #endif
1230 
1231 #define FRACT		FRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1232 #define SATFRACT	SATFRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1233 extern TO_FIXED_C_TYPE	FRACT (FROM_INT_C_TYPE);
1234 extern TO_FIXED_C_TYPE	SATFRACT (FROM_INT_C_TYPE);
1235 #endif /* FROM_TYPE == 1 && TO_TYPE == 4  */
1236 
1237 /* Define conversions from unsigned integer to fixed-point.  */
1238 #if FROM_TYPE == 2 && TO_TYPE == 4
1239 
1240 #if FROM_INT_SIZE > TO_FIXED_SIZE
1241 #define BIG_SINT_C_TYPE	FROM_SINT_C_TYPE
1242 #define BIG_UINT_C_TYPE	FROM_UINT_C_TYPE
1243 #define BIG_WIDTH	FROM_INT_WIDTH
1244 #else
1245 #define BIG_SINT_C_TYPE	TO_SINT_C_TYPE
1246 #define BIG_UINT_C_TYPE	TO_UINT_C_TYPE
1247 #define BIG_WIDTH	TO_FIXED_WIDTH
1248 #endif
1249 
1250 #define FRACTUNS	FRACTUNS_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1251 #define SATFRACTUNS	SATFRACTUNS_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1252 extern TO_FIXED_C_TYPE	FRACTUNS (FROM_INT_C_TYPE);
1253 extern TO_FIXED_C_TYPE	SATFRACTUNS (FROM_INT_C_TYPE);
1254 #endif /* FROM_TYPE == 2 && TO_TYPE == 4  */
1255 
1256 /* Define conversions from floating-point to fixed-point.  */
1257 #if FROM_TYPE == 3 && TO_TYPE == 4
1258 
1259 #define BASE1(NUM)	(0x1.0p ## NUM)
1260 #define BASE2(NUM)	BASE1(NUM)
1261 #define BASE		BASE2(TO_FBITS)
1262 
1263 #define FIXED_MAX1(NUM1,NUM2)	(0x1.0p ## NUM1 - 0x1.0p- ## NUM2)
1264 #define FIXED_MAX2(NUM1,NUM2)	FIXED_MAX1(NUM1,NUM2)
1265 #define FIXED_MAX	FIXED_MAX2(TO_IBITS,TO_FBITS)
1266 
1267 #define FIXED_MIN1(NUM)	(-0x1.0p ## NUM)
1268 #define FIXED_MIN2(NUM)	FIXED_MIN1(NUM)
1269 #if TO_MODE_UNSIGNED == 0
1270 #define FIXED_MIN	FIXED_MIN2(TO_IBITS)
1271 #else
1272 #define FIXED_MIN	0.0
1273 #endif
1274 
1275 #define FRACT		FRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1276 #define SATFRACT	SATFRACT_TEMP(FROM_MODE_NAME_S,TO_MODE_NAME_S)
1277 extern TO_FIXED_C_TYPE	FRACT (FROM_FLOAT_C_TYPE);
1278 extern TO_FIXED_C_TYPE	SATFRACT (FROM_FLOAT_C_TYPE);
1279 #endif /* FROM_TYPE == 3 && TO_TYPE == 4  */
1280 
1281 #endif /* defined (FROM_MODE_NAME_S) && defined (TO_MODE_NAME_S)  */
1282 
1283 #endif  /* _FIXED_BIT_H */
1284