blob: 399b3d3ea36a21e20489fe997827bd967ef4042f (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/* { dg-do compile } */
/* { dg-skip-if "" { powerpc*-*-darwin* } { "*" } { "" } } */
/* { dg-require-effective-target powerpc_vsx_ok } */
/* { dg-options "-O3 -mcpu=power7" } */
/* Cut down example from s_scalbnl that aborted on 32-bit when the fix for
48053 went in to allow creating DImode 0's in VSX registers. */
typedef union
{
long double value;
struct
{
unsigned long long msw;
unsigned long long lsw;
} parts64;
struct
{
unsigned int w0, w1, w2, w3;
} parts32;
} ieee854_long_double_shape_type;
static const long double twolm54 = 5.55111512312578270212e-17;
long double foo (long double x, int n)
{
long long k, hx, lx;
ieee854_long_double_shape_type qw_u;
qw_u.value = x;
hx = qw_u.parts64.msw;
lx = qw_u.parts64.lsw;
k = ((hx >> 52) & 0x7ff) + n + 54;
qw_u.parts64.msw = ((hx & 0x800fffffffffffffULL) | (k << 52));
qw_u.parts64.lsw = lx;
x = qw_u.value;
return x*twolm54;
}
|
