OSDN Git Service

2006-05-15 Mircea Namolaru <namolaru@il.ibm.com>
[pf3gnuchains/gcc-fork.git] / gcc / config / fixtfdi.c
1 /* Public domain.  */
2 #if __LDBL_MANT_DIG__ == 106 || __LDBL_MANT_DIG__ == 113
3 typedef int DItype __attribute__ ((mode (DI)));
4 typedef float TFtype __attribute__ ((mode (TF)));
5
6 DItype __fixtfdi (TFtype);
7 DItype __fixunstfdi (TFtype);
8
9
10 DItype
11 __fixtfdi (TFtype x)
12 {
13   if (x < 0)
14     return - __fixunstfdi (-x);
15   return __fixunstfdi (x);
16 }
17
18 #endif