1 /* Public domain.  */
2 typedef unsigned int USItype __attribute__ ((mode (SI)));
3 typedef int DItype __attribute__ ((mode (DI)));
4 typedef unsigned int UDItype __attribute__ ((mode (DI)));
5 typedef float SFtype __attribute__ ((mode (SF)));
6 typedef float DFtype __attribute__ ((mode (DF)));
7 
8 DItype __fixsfdi (SFtype);
9 
10 /* This version is needed to prevent recursion; fixunssfdi in libgcc
11    calls fixsfdi, which in turn calls calls fixunssfdi.  */
12 
13 static DItype
local_fixunssfdi(SFtype original_a)14 local_fixunssfdi (SFtype original_a)
15 {
16   DFtype a = original_a;
17   USItype hi, lo;
18 
19   hi = a / (((UDItype) 1) << (sizeof (USItype) * 8));
20   lo = a - ((DFtype) hi) * (((UDItype) 1) << (sizeof (USItype) * 8));
21   return ((UDItype) hi << (sizeof (USItype) * 8)) | lo;
22 }
23 
24 DItype
__fixsfdi(SFtype a)25 __fixsfdi (SFtype a)
26 {
27   if (a < 0)
28     return - local_fixunssfdi (-a);
29   return local_fixunssfdi (a);
30 }
31