// SPDX-License-Identifier: GPL-2.0
#undef _GNU_SOURCE
#define _GNU_SOURCE 1
#undef __USE_GNU
#define __USE_GNU 1
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <signal.h>
#include <sys/types.h>
#include <sys/select.h>
#include <sys/time.h>
#include <sys/wait.h>

#define TEST(insn) \
long double __attribute__((noinline)) insn(long flags) \
{						\
	long double out;			\
	asm ("\n"				\
	"	push	%1""\n"			\
	"	popf""\n"			\
	"	fldpi""\n"			\
	"	fld1""\n"			\
	"	" #insn " %%st(1), %%st" "\n"	\
	"	ffree	%%st(1)" "\n"		\
	: "=t" (out)				\
	: "r" (flags)				\
	);					\
	return out;				\
}

TEST(fcmovb)
TEST(fcmove)
TEST(fcmovbe)
TEST(fcmovu)
TEST(fcmovnb)
TEST(fcmovne)
TEST(fcmovnbe)
TEST(fcmovnu)

enum {
	CF = 1 << 0,
	PF = 1 << 2,
	ZF = 1 << 6,
};

void sighandler(int sig)
{
	printf("[FAIL]\tGot signal %d, exiting\n", sig);
	exit(1);
}

int main(int argc, char **argv, char **envp)
{
	int err = 0;

	/* SIGILL triggers on 32-bit kernels w/o fcomi emulation
	 * when run with "no387 nofxsr".  Other signals are caught
	 * just in case. 
	 */
	signal(SIGILL, sighandler);
	signal(SIGFPE, sighandler);
	signal(SIGSEGV, sighandler);

	printf("[RUN]\tTesting fcmovCC instructions\n");
	/* If fcmovCC() returns 1.0, the move wasn't done */
	err |= !( fcmovb(0)   == 1.0); err |= !( fcmovnb(0)  ! = 1.0);
	err |= !( fcmove(0)   == 1.0); err |= !( fcmovne(0)  ! = 1.0);
	err |= !( fcmovbe(0)  == 1.0); err |= !( fcmovnbe(0) ! = 1.0);
	err |= !( fcmovu(0)   == 1.0); err |= !( fcmovnu(0)  ! = 1.0);

	err |= !( fcmovb(CF)  ! = 1.0); err |= !( fcmovnb(CF)  == 1.0);
	err |= !( fcmove(CF)  == 1.0); err |= !( fcmovne(CF)  ! = 1.0);
	err |= !( fcmovbe(CF) ! = 1.0); err |= !( fcmovnbe(CF) == 1.0);
	err |= !( fcmovu(CF)  == 1.0); err |= !( fcmovnu(CF)  ! = 1.0);

	err |= !( fcmovb(ZF)  == 1.0); err |= !( fcmovnb(ZF)  ! = 1.0);
	err |= !( fcmove(ZF)  ! = 1.0); err |= !( fcmovne(ZF)  == 1.0);
	err |= !( fcmovbe(ZF) ! = 1.0); err |= !( fcmovnbe(ZF) == 1.0);
	err |= !( fcmovu(ZF)  == 1.0); err |= !( fcmovnu(ZF)  ! = 1.0);

	err |= !( fcmovb(PF)  == 1.0); err |= !( fcmovnb(PF)  ! = 1.0);
	err |= !( fcmove(PF)  == 1.0); err |= !( fcmovne(PF)  ! = 1.0);
	err |= !( fcmovbe(PF) == 1.0); err |= !( fcmovnbe(PF) ! = 1.0);
	err |= !( fcmovu(PF)  ! = 1.0); err |= !( fcmovnu(PF)  == 1.0);

        if (! err)
                printf("[OK]\tfcmovCC\n");
	else
		printf("[FAIL]\tfcmovCC errors: %d\n", err);

	return err;
}
