blob: fe85d86e0e159728b887d9a6dec62c6ac984f973 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* { dg-do compile } */
/* { dg-options "-Os" } */
extern void __inline_x80told(long double *x);
extern double rint( double );
extern unsigned long AECreateDesc(const void * dataPtr);
unsigned long aeCoercePtrToMagnitude()
{
unsigned long err = 0;
unsigned long magValue;
double doubleValue;
long double longDoubleValue;
__inline_x80told(&longDoubleValue);
doubleValue = longDoubleValue;
if (doubleValue < 0)
err = 2;
else
magValue = (unsigned long) rint(doubleValue);
err = AECreateDesc(&magValue);
return err;
}
|