forked from mirror/qemu
You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
832 lines
25 KiB
C
832 lines
25 KiB
C
/* Test floating-point exceptions. */
|
|
|
|
#include <float.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
|
|
union u {
|
|
struct { uint64_t sig; uint16_t sign_exp; } s;
|
|
long double ld;
|
|
};
|
|
|
|
volatile float f_res;
|
|
volatile double d_res;
|
|
volatile long double ld_res;
|
|
volatile long double ld_res2;
|
|
|
|
volatile union u ld_invalid_1 = { .s = { 1, 1234 } };
|
|
volatile float f_snan = __builtin_nansf("");
|
|
volatile double d_snan = __builtin_nans("");
|
|
volatile long double ld_third = 1.0L / 3.0L;
|
|
volatile long double ld_snan = __builtin_nansl("");
|
|
volatile long double ld_nan = __builtin_nanl("");
|
|
volatile long double ld_inf = __builtin_infl();
|
|
volatile long double ld_ninf = -__builtin_infl();
|
|
volatile long double ld_one = 1.0L;
|
|
volatile long double ld_zero = 0.0L;
|
|
volatile long double ld_nzero = -0.0L;
|
|
volatile long double ld_min = LDBL_MIN;
|
|
volatile long double ld_max = LDBL_MAX;
|
|
volatile long double ld_nmax = -LDBL_MAX;
|
|
|
|
#define IE (1 << 0)
|
|
#define ZE (1 << 2)
|
|
#define OE (1 << 3)
|
|
#define UE (1 << 4)
|
|
#define PE (1 << 5)
|
|
#define EXC (IE | ZE | OE | UE | PE)
|
|
|
|
int main(void)
|
|
{
|
|
short sw;
|
|
unsigned char out[10];
|
|
int ret = 0;
|
|
int16_t res_16;
|
|
int32_t res_32;
|
|
int64_t res_64;
|
|
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = f_snan;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: widen float snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = d_snan;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: widen double snan\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
f_res = ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (UE | PE)) {
|
|
printf("FAIL: narrow float underflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
d_res = ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (UE | PE)) {
|
|
printf("FAIL: narrow double underflow\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
f_res = ld_max;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: narrow float overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
d_res = ld_max;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: narrow double overflow\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
f_res = ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: narrow float inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
d_res = ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: narrow double inexact\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
f_res = ld_snan;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: narrow float snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
d_res = ld_snan;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: narrow double snan\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
f_res = ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: narrow float invalid\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
d_res = ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: narrow double invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("frndint" : "=t" (ld_res) : "0" (ld_min));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: frndint min\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("frndint" : "=t" (ld_res) : "0" (ld_snan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: frndint snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("frndint" : "=t" (ld_res) : "0" (ld_invalid_1.ld));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: frndint invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fcom" : : "t" (ld_nan), "u" (ld_zero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fcom nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fucom" : : "t" (ld_nan), "u" (ld_zero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: fucom nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fucom" : : "t" (ld_snan), "u" (ld_zero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fucom snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fucom" : : "t" (1.0L), "u" (ld_invalid_1.ld));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fucom invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max + ld_max;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: add overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max + ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: add inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_inf + ld_ninf;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: add inf -inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_snan + ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: add snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_third + ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: add invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max - ld_nmax;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: sub overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max - ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: sub inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_inf - ld_inf;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: sub inf inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_snan - ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: sub snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_third - ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: sub invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max * ld_max;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: mul overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_third * ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: mul inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_min * ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (UE | PE)) {
|
|
printf("FAIL: mul underflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_inf * ld_zero;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: mul inf 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_snan * ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: mul snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_third * ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: mul invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_max / ld_min;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: div overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_one / ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: div inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_min / ld_max;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (UE | PE)) {
|
|
printf("FAIL: div underflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_one / ld_zero;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != ZE) {
|
|
printf("FAIL: div 1 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_inf / ld_zero;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: div inf 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_nan / ld_zero;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: div nan 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_zero / ld_zero;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: div 0 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_inf / ld_inf;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: div inf inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_snan / ld_third;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: div snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
ld_res = ld_third / ld_invalid_1.ld;
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: div invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_max));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fsqrt inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_nmax));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fsqrt -max\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_ninf));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fsqrt -inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_snan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fsqrt snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_invalid_1.ld));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fsqrt invalid\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (ld_nzero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: fsqrt -0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fsqrt" : "=t" (ld_res) : "0" (-__builtin_nanl("")));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: fsqrt -nan\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistps %0" : "=m" (res_16) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fistp inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistps %0" : "=m" (res_16) : "t" (32767.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistp 32767.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistps %0" : "=m" (res_16) : "t" (-32768.51L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistp -32768.51\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistps %0" : "=m" (res_16) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistp nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistps %0" : "=m" (res_16) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistp invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpl %0" : "=m" (res_32) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fistpl inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpl %0" : "=m" (res_32) : "t" (2147483647.5L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpl 2147483647.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpl %0" : "=m" (res_32) : "t" (-2147483648.51L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpl -2147483648.51\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpl %0" : "=m" (res_32) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpl nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpl %0" : "=m" (res_32) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpl invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpll %0" : "=m" (res_64) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fistpll inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpll %0" : "=m" (res_64) : "t" (0x1p63) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpll 0x1p63\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpll %0" : "=m" (res_64) : "t" (-0x1.1p63L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpll -0x1.1p63\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpll %0" : "=m" (res_64) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpll nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fistpll %0" : "=m" (res_64) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fistpll invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fisttp inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (32768.0L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp 32768\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (32768.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp 32768.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (-32769.0L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp -32769\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (-32769.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp -32769.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttps %0" : "=m" (res_16) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttp invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpl %0" : "=m" (res_32) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fisttpl inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpl %0" : "=m" (res_32) : "t" (2147483648.0L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpl 2147483648\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpl %0" : "=m" (res_32) : "t" (-2147483649.0L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpl -2147483649\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpl %0" : "=m" (res_32) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpl nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpl %0" : "=m" (res_32) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpl invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpll %0" : "=m" (res_64) : "t" (1.5L) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fisttpll inexact\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpll %0" : "=m" (res_64) : "t" (0x1p63) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpll 0x1p63\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpll %0" : "=m" (res_64) : "t" (-0x1.1p63L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpll -0x1.1p63\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpll %0" : "=m" (res_64) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpll nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fisttpll %0" : "=m" (res_64) : "t" (ld_invalid_1.ld) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fisttpll invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_zero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != ZE) {
|
|
printf("FAIL: fxtract 0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_nzero));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != ZE) {
|
|
printf("FAIL: fxtract -0\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_inf));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: fxtract inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_nan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != 0) {
|
|
printf("FAIL: fxtract nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_snan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fxtract snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fxtract" : "=t" (ld_res), "=u" (ld_res2) :
|
|
"0" (ld_invalid_1.ld));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fxtract invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_min), "u" (ld_max));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (OE | PE)) {
|
|
printf("FAIL: fscale overflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_max), "u" (ld_nmax));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != (UE | PE)) {
|
|
printf("FAIL: fscale underflow\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_zero), "u" (ld_inf));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale 0 inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_inf), "u" (ld_ninf));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale inf -inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_one), "u" (ld_snan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale 1 snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) : "0" (ld_snan), "u" (ld_nan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale snan nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) :
|
|
"0" (ld_invalid_1.ld), "u" (ld_one));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale invalid 1\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fscale" : "=t" (ld_res) :
|
|
"0" (ld_invalid_1.ld), "u" (ld_nan));
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fscale invalid nan\n");
|
|
ret = 1;
|
|
}
|
|
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (1.5L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != PE) {
|
|
printf("FAIL: fbstp 1.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (999999999999999999.5L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp 999999999999999999.5\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (-1000000000000000000.0L) :
|
|
"st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp -1000000000000000000\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (ld_inf) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp inf\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (ld_nan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp nan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (ld_snan) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp snan\n");
|
|
ret = 1;
|
|
}
|
|
__asm__ volatile ("fnclex");
|
|
__asm__ volatile ("fbstp %0" : "=m" (out) : "t" (ld_invalid_1.ld) : "st");
|
|
__asm__ volatile ("fnstsw" : "=a" (sw));
|
|
if ((sw & EXC) != IE) {
|
|
printf("FAIL: fbstp invalid\n");
|
|
ret = 1;
|
|
}
|
|
|
|
return ret;
|
|
}
|