HI
typedef int int16_t __attribute__((mode(HI)));
typedef unsigned int u_int16_t __attribute__((mode(HI)));
HI(&z) = intz; /* store as a double (z) */
intf = HI(x); /* upper half of x, as integer */
HI(&z) = intz; /* store as a double (z) */
intf = HI(x); /* upper half of x, as integer */
HI(&z) = intz; /* store as a double (z) */
intf = HI(x); /* upper half of x, as integer */
hy = HI(&y0);
hx = HI(&x0);
hy = HI(y);
hx = HI(x);
hy = HI(&y1);
hx = HI(&x1);
hy = HI(y);
hx = HI(x);
hy = HI(&y2);
hx = HI(&x2);
hy = HI(y);
hx = HI(x);
xsb1 = HI(&x1);
HI(&t1) = j1;
xsb0 = HI(&x0);
HI(&t0) = j0;
xsb0 = HI(x); /* get most significant word */
xsb1 = HI(x);
xsb2 = HI(x);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t0) = j0;
hx = HI(x);
hx = HI(x);
hx = HI(x);
xsb0 = HI(&x0);
xsb1 = HI(&x1);
xsb2 = HI(&x2);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
hx = HI(&ty[0]);
HI(&t) = j;
HI(&t) = j;
hx = HI(x);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
hx = HI(x);
hx = HI(x);
hx = HI(x);
xsb0 = HI(&x0);
xsb1 = HI(&x1);
xsb2 = HI(&x2);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
xsb1 = HI(&x1);
HI(&t1) = j1;
xsb0 = HI(&x0);
HI(&t0) = j0;
hx = HI(&ty[0]);
HI(&t) = j;
HI(&t) = j;
hx = HI(&tx);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
hx = HI(y##N); \
HI(z##N) = (hx & 0xfffff) | 0x41600000; \
HI(y##N) += (k##N + 0x3ef) << 20; \
HI(y##N) += k##N << 20; \
hx = HI(x[0]); \
HI(y0) += (k0 + 0x3ef) << 20;
HI(y0) += k0 << 20;
HI(y1) += (k1 + 0x3ef) << 20;
HI(y1) += k1 << 20;
HI(y2) += (k2 + 0x3ef) << 20;
HI(y2) += k2 << 20;
HI(y3) += (k3 + 0x3ef) << 20;
HI(y3) += k3 << 20;
HI(y4) += (k4 + 0x3ef) << 20;
HI(y4) += k4 << 20;
HI(y5) += (k5 + 0x3ef) << 20;
HI(y5) += k5 << 20;
hx0 = HI(px);
hy0 = HI(py);
hx1 = HI(px);
hy0 = HI(py);
hx0 = HI(px);
hy0 = HI(py);
HI(&scl) = (0x7fe00000 - j0);
HI(&scl) = j0;
hx0 = HI(px);
hy0 = HI(py);
HI(&scl0) = (0x7fe00000 - j0);
HI(&scl0) = j0;
hx0 = HI(px); \
hy0 = HI(py); \
i##N = HI(*x); \
HI(&ull_x0) += ind0;
HI(&ull_x0) += ind0;
hy = HI(py); \
HI(pz) = hy; \
hx = HI(px);
hx0 = HI(&ax0);
HI(&ull_x0) += ind0;
HI(&ull_x1) += ind1;
HI(&ull_x2) += ind2;
HI(&ull_x0) += ind0;
HI(&ull_x0) += ind0;
hx = HI(px); \
hy = HI(py); \
HI(pz) = hx; \
HI(pz) = hy; \
HI(pz) = hx; \
HI(pz) = hx; \
hx##I = HI(&ull_ax##I); \
unsigned hx = HI(px);
HI(&ull_x0) += ind0;
HI(&ull_x1) += ind1;
HI(&ull_x2) += ind2;
hx##I = HI(px); \
hy##I = HI(py); \
iarr0 = HI(&dres0); \
HI(&dd0) = itbl0; \
HI(&res0) = HI(&dres0) & 0xffffff00; \
HI(&scl##I) = 0x7ff00000 - j0;
iarr0 = HI(&dres0);
iarr1 = HI(&dres1);
iarr2 = HI(&dres2);
HI(&dd0) = itbl0;
HI(&dd1) = itbl1;
HI(&dd2) = itbl2;
HI(&res0) = HI(&dres0) & 0xffffff00;
HI(&res1) = HI(&dres1) & 0xffffff00;
HI(&res2) = HI(&dres2) & 0xffffff00;
iarr0 = HI(&dres0);
HI(&dd0) = itbl0;
HI(&res0) = HI(&dres0) & 0xffffff00;
iarr1 = HI(&dres1);
HI(&dd1) = itbl1;
HI(&res1) = HI(&dres1) & 0xffffff00;
ibase0 = HI(&hyp0);
HI(&dbase0) =
HI(&hyp0) = hyp0h;
HI(&h_hi0) = hyp0h & 0x7fffc000;
ibase0 = HI(&hyp0);
ibase1 = HI(&hyp1);
ibase2 = HI(&hyp2);
HI(&dbase0) = (0x60000000 - ((ibase0 & 0x7fe00000) >> 1));
HI(&dbase1) = (0x60000000 - ((ibase1 & 0x7fe00000) >> 1));
HI(&dbase2) = (0x60000000 - ((ibase2 & 0x7fe00000) >> 1));
HI(&hyp0) = hyp0h;
HI(&hyp1) = hyp1h;
HI(&hyp2) = hyp2h;
HI(&h_hi0) = hyp0h & 0x7fffc000;
HI(&h_hi1) = hyp1h & 0x7fffc000;
HI(&h_hi2) = hyp2h & 0x7fffc000;
ibase0 = HI(&hyp0);
HI(&dbase0) = (0x60000000 - ((ibase0 & 0x7fe00000) >> 1));
HI(&hyp0) = hyp0h;
HI(&h_hi0) = hyp0h & 0x7fffc000;
hx = HI(px); \
hx = HI(px);
hx0 = HI(&res);
HI(&res) = resh0;
HI(&res_c0) = res_ch0;
HI(&dsqrt_exp0) = sqrt_exp0;
hx = HI(px);
hx = HI(px);
hx0 = HI(&res);
HI(&res) = resh0;
HI(&res_c0) = res_ch0;
HI(&dsqrt_exp0) = sqrt_exp0;
HI(&res) = resh0;
HI(&res_c0) = res_ch0;
HI(&dsqrt_exp0) = sqrt_exp0;
hx0 = HI(px);
hx1 = HI(px);
hx2 = HI(px);
HI(&res0) = resh0;
HI(&res1) = resh1;
HI(&res2) = resh2;
HI(&res_c0) = res_ch0;
HI(&res_c1) = res_ch1;
HI(&res_c2) = res_ch2;
HI(&dsqrt_exp0) = sqrt_exp0;
HI(&dsqrt_exp1) = sqrt_exp1;
HI(&dsqrt_exp2) = sqrt_exp2;
hx0 = HI(px);
HI(&res0) = resh0;
HI(&res_c0) = res_ch0;
HI(&dsqrt_exp0) = sqrt_exp0;
xsb1 = HI(&x1);
HI(&t1) = j1;
xsb0 = HI(&x0);
HI(&t0) = j0;
xsb1 = HI(x);
xsb2 = HI(x);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t0) = j0;
hx = HI(x);
hx = HI(x);
hx = HI(x);
xsb0 = HI(&x0);
xsb1 = HI(&x1);
xsb2 = HI(&x2);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
xsb0 = HI(x);
hx = HI(&ty[0]);
HI(&t) = j;
HI(&t) = j;
hx = HI(x);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
hx = HI(x);
hx = HI(x);
hx = HI(x);
xsb0 = HI(&x0);
xsb1 = HI(&x1);
xsb2 = HI(&x2);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t1) = j1;
HI(&t0) = j0;
xsb1 = HI(&x1);
HI(&t1) = j1;
xsb0 = HI(&x0);
HI(&t0) = j0;
hx = HI(&ty[0]);
HI(&t) = j;
HI(&t) = j;
hx = HI(&tx);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t0) = j0;
xsb0 = HI(x); /* get most significant word */
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
xsb1 = HI(&x1);
HI(&t1) = j1;
xsb0 = HI(&x0);
HI(&t0) = j0;
xsb1 = HI(x);
xsb2 = HI(x);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t0) = j0;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t1) = j1;
HI(&t0) = j0;
hx = HI(x);
hx = HI(x);
hx = HI(x);
xsb2 = HI(&x2);
xsb1 = HI(&x1);
xsb0 = HI(&x0);
HI(&t0) = j0;
HI(&t1) = j1;
HI(&t2) = j2;
HI(&t0) = j0;
HI(&t1) = j1;
hx = HI(&ty[0]);
HI(&t) = j;
hx = HI(x);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
hx = HI(&ty[0]);
HI(&t) = j;
hx = HI(&tx);
HI(&tx) = 0x41600000 | (hx & 0xfffff);
hx = HI(y##N); \
HI(z##N) = (hx & 0xfffff) | 0x41600000; \
hx = HI(y##N); \
HI(z##N) = (hx & 0xfffff) | 0x41600000; \