2003-02-25 04:14:06 +08:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <math.h>
|
|
|
|
|
|
|
|
#define xglue(x, y) x ## y
|
|
|
|
#define glue(x, y) xglue(x, y)
|
|
|
|
#define stringify(s) tostring(s)
|
|
|
|
#define tostring(s) #s
|
|
|
|
|
|
|
|
#define CC_C 0x0001
|
|
|
|
#define CC_P 0x0004
|
|
|
|
#define CC_A 0x0010
|
|
|
|
#define CC_Z 0x0040
|
|
|
|
#define CC_S 0x0080
|
|
|
|
#define CC_O 0x0800
|
|
|
|
|
|
|
|
#define __init_call __attribute__ ((unused,__section__ (".initcall.init")))
|
|
|
|
|
|
|
|
static void *call_start __init_call = NULL;
|
|
|
|
|
2003-03-04 07:23:09 +08:00
|
|
|
#define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O | CC_A)
|
|
|
|
|
2003-02-25 04:14:06 +08:00
|
|
|
#define OP add
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP sub
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP xor
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP and
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP or
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP cmp
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP adc
|
|
|
|
#define OP_CC
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP sbb
|
|
|
|
#define OP_CC
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP inc
|
|
|
|
#define OP_CC
|
|
|
|
#define OP1
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP dec
|
|
|
|
#define OP_CC
|
|
|
|
#define OP1
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP neg
|
|
|
|
#define OP_CC
|
|
|
|
#define OP1
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
|
|
|
#define OP not
|
|
|
|
#define OP_CC
|
|
|
|
#define OP1
|
|
|
|
#include "test-i386.h"
|
|
|
|
|
2003-03-04 07:23:09 +08:00
|
|
|
#undef CC_MASK
|
|
|
|
#define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O)
|
|
|
|
|
2003-02-25 07:43:02 +08:00
|
|
|
#define OP shl
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP shr
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP sar
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP rol
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP ror
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP rcr
|
|
|
|
#define OP_CC
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP rcl
|
|
|
|
#define OP_CC
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
2003-03-04 09:14:13 +08:00
|
|
|
#define OP shld
|
|
|
|
#define OP_SHIFTD
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP shrd
|
|
|
|
#define OP_SHIFTD
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
/* XXX: should be more precise ? */
|
|
|
|
#undef CC_MASK
|
|
|
|
#define CC_MASK (CC_C)
|
|
|
|
|
|
|
|
#define OP bt
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP bts
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP btr
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
|
|
|
|
|
|
|
#define OP btc
|
|
|
|
#define OP_NOBYTE
|
|
|
|
#include "test-i386-shift.h"
|
2003-02-25 07:43:02 +08:00
|
|
|
|
2003-02-25 04:14:06 +08:00
|
|
|
/* lea test (modrm support) */
|
|
|
|
#define TEST_LEA(STR)\
|
|
|
|
{\
|
|
|
|
asm("leal " STR ", %0"\
|
|
|
|
: "=r" (res)\
|
|
|
|
: "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\
|
|
|
|
printf("lea %s = %08x\n", STR, res);\
|
|
|
|
}
|
|
|
|
|
|
|
|
#define TEST_LEA16(STR)\
|
|
|
|
{\
|
|
|
|
asm(".code16 ; .byte 0x67 ; leal " STR ", %0 ; .code32"\
|
|
|
|
: "=wq" (res)\
|
|
|
|
: "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\
|
|
|
|
printf("lea %s = %08x\n", STR, res);\
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void test_lea(void)
|
|
|
|
{
|
|
|
|
int eax, ebx, ecx, edx, esi, edi, res;
|
|
|
|
eax = 0x0001;
|
|
|
|
ebx = 0x0002;
|
|
|
|
ecx = 0x0004;
|
|
|
|
edx = 0x0008;
|
|
|
|
esi = 0x0010;
|
|
|
|
edi = 0x0020;
|
|
|
|
|
|
|
|
TEST_LEA("0x4000");
|
|
|
|
|
|
|
|
TEST_LEA("(%%eax)");
|
|
|
|
TEST_LEA("(%%ebx)");
|
|
|
|
TEST_LEA("(%%ecx)");
|
|
|
|
TEST_LEA("(%%edx)");
|
|
|
|
TEST_LEA("(%%esi)");
|
|
|
|
TEST_LEA("(%%edi)");
|
|
|
|
|
|
|
|
TEST_LEA("0x40(%%eax)");
|
|
|
|
TEST_LEA("0x40(%%ebx)");
|
|
|
|
TEST_LEA("0x40(%%ecx)");
|
|
|
|
TEST_LEA("0x40(%%edx)");
|
|
|
|
TEST_LEA("0x40(%%esi)");
|
|
|
|
TEST_LEA("0x40(%%edi)");
|
|
|
|
|
|
|
|
TEST_LEA("0x4000(%%eax)");
|
|
|
|
TEST_LEA("0x4000(%%ebx)");
|
|
|
|
TEST_LEA("0x4000(%%ecx)");
|
|
|
|
TEST_LEA("0x4000(%%edx)");
|
|
|
|
TEST_LEA("0x4000(%%esi)");
|
|
|
|
TEST_LEA("0x4000(%%edi)");
|
|
|
|
|
|
|
|
TEST_LEA("(%%eax, %%ecx)");
|
|
|
|
TEST_LEA("(%%ebx, %%edx)");
|
|
|
|
TEST_LEA("(%%ecx, %%ecx)");
|
|
|
|
TEST_LEA("(%%edx, %%ecx)");
|
|
|
|
TEST_LEA("(%%esi, %%ecx)");
|
|
|
|
TEST_LEA("(%%edi, %%ecx)");
|
|
|
|
|
|
|
|
TEST_LEA("0x40(%%eax, %%ecx)");
|
|
|
|
TEST_LEA("0x4000(%%ebx, %%edx)");
|
|
|
|
|
|
|
|
TEST_LEA("(%%ecx, %%ecx, 2)");
|
|
|
|
TEST_LEA("(%%edx, %%ecx, 4)");
|
|
|
|
TEST_LEA("(%%esi, %%ecx, 8)");
|
|
|
|
|
|
|
|
TEST_LEA("(,%%eax, 2)");
|
|
|
|
TEST_LEA("(,%%ebx, 4)");
|
|
|
|
TEST_LEA("(,%%ecx, 8)");
|
|
|
|
|
|
|
|
TEST_LEA("0x40(,%%eax, 2)");
|
|
|
|
TEST_LEA("0x40(,%%ebx, 4)");
|
|
|
|
TEST_LEA("0x40(,%%ecx, 8)");
|
|
|
|
|
|
|
|
|
|
|
|
TEST_LEA("-10(%%ecx, %%ecx, 2)");
|
|
|
|
TEST_LEA("-10(%%edx, %%ecx, 4)");
|
|
|
|
TEST_LEA("-10(%%esi, %%ecx, 8)");
|
|
|
|
|
|
|
|
TEST_LEA("0x4000(%%ecx, %%ecx, 2)");
|
|
|
|
TEST_LEA("0x4000(%%edx, %%ecx, 4)");
|
|
|
|
TEST_LEA("0x4000(%%esi, %%ecx, 8)");
|
|
|
|
|
|
|
|
/* limited 16 bit addressing test */
|
|
|
|
TEST_LEA16("0x4000");
|
|
|
|
TEST_LEA16("(%%bx)");
|
|
|
|
TEST_LEA16("(%%si)");
|
|
|
|
TEST_LEA16("(%%di)");
|
|
|
|
TEST_LEA16("0x40(%%bx)");
|
|
|
|
TEST_LEA16("0x40(%%si)");
|
|
|
|
TEST_LEA16("0x40(%%di)");
|
|
|
|
TEST_LEA16("0x4000(%%bx)");
|
|
|
|
TEST_LEA16("0x4000(%%si)");
|
|
|
|
TEST_LEA16("(%%bx,%%si)");
|
|
|
|
TEST_LEA16("(%%bx,%%di)");
|
|
|
|
TEST_LEA16("0x40(%%bx,%%si)");
|
|
|
|
TEST_LEA16("0x40(%%bx,%%di)");
|
|
|
|
TEST_LEA16("0x4000(%%bx,%%si)");
|
|
|
|
TEST_LEA16("0x4000(%%bx,%%di)");
|
|
|
|
}
|
|
|
|
|
|
|
|
#define TEST_JCC(JCC, v1, v2)\
|
|
|
|
{\
|
|
|
|
asm("movl $1, %0\n\t"\
|
|
|
|
"cmpl %2, %1\n\t"\
|
|
|
|
JCC " 1f\n\t"\
|
|
|
|
"movl $0, %0\n\t"\
|
|
|
|
"1:\n\t"\
|
|
|
|
: "=r" (res)\
|
|
|
|
: "r" (v1), "r" (v2));\
|
|
|
|
printf("%-10s %d\n", JCC, res);\
|
|
|
|
}
|
|
|
|
|
|
|
|
/* various jump tests */
|
|
|
|
void test_jcc(void)
|
|
|
|
{
|
|
|
|
int res;
|
|
|
|
|
|
|
|
TEST_JCC("jne", 1, 1);
|
|
|
|
TEST_JCC("jne", 1, 0);
|
|
|
|
|
|
|
|
TEST_JCC("je", 1, 1);
|
|
|
|
TEST_JCC("je", 1, 0);
|
|
|
|
|
|
|
|
TEST_JCC("jl", 1, 1);
|
|
|
|
TEST_JCC("jl", 1, 0);
|
|
|
|
TEST_JCC("jl", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jle", 1, 1);
|
|
|
|
TEST_JCC("jle", 1, 0);
|
|
|
|
TEST_JCC("jle", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jge", 1, 1);
|
|
|
|
TEST_JCC("jge", 1, 0);
|
|
|
|
TEST_JCC("jge", -1, 1);
|
|
|
|
|
|
|
|
TEST_JCC("jg", 1, 1);
|
|
|
|
TEST_JCC("jg", 1, 0);
|
|
|
|
TEST_JCC("jg", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jb", 1, 1);
|
|
|
|
TEST_JCC("jb", 1, 0);
|
|
|
|
TEST_JCC("jb", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jbe", 1, 1);
|
|
|
|
TEST_JCC("jbe", 1, 0);
|
|
|
|
TEST_JCC("jbe", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jae", 1, 1);
|
|
|
|
TEST_JCC("jae", 1, 0);
|
|
|
|
TEST_JCC("jae", 1, -1);
|
|
|
|
|
|
|
|
TEST_JCC("ja", 1, 1);
|
|
|
|
TEST_JCC("ja", 1, 0);
|
|
|
|
TEST_JCC("ja", 1, -1);
|
|
|
|
|
|
|
|
|
|
|
|
TEST_JCC("jp", 1, 1);
|
|
|
|
TEST_JCC("jp", 1, 0);
|
|
|
|
|
|
|
|
TEST_JCC("jnp", 1, 1);
|
|
|
|
TEST_JCC("jnp", 1, 0);
|
|
|
|
|
|
|
|
TEST_JCC("jo", 0x7fffffff, 0);
|
|
|
|
TEST_JCC("jo", 0x7fffffff, -1);
|
|
|
|
|
|
|
|
TEST_JCC("jno", 0x7fffffff, 0);
|
|
|
|
TEST_JCC("jno", 0x7fffffff, -1);
|
|
|
|
|
|
|
|
TEST_JCC("js", 0, 1);
|
|
|
|
TEST_JCC("js", 0, -1);
|
|
|
|
TEST_JCC("js", 0, 0);
|
|
|
|
|
|
|
|
TEST_JCC("jns", 0, 1);
|
|
|
|
TEST_JCC("jns", 0, -1);
|
|
|
|
TEST_JCC("jns", 0, 0);
|
|
|
|
}
|
|
|
|
|
2003-03-04 07:23:09 +08:00
|
|
|
#undef CC_MASK
|
|
|
|
#define CC_MASK (CC_O | CC_C)
|
|
|
|
|
|
|
|
#define OP mul
|
|
|
|
#include "test-i386-muldiv.h"
|
|
|
|
|
|
|
|
#define OP imul
|
|
|
|
#include "test-i386-muldiv.h"
|
|
|
|
|
|
|
|
#undef CC_MASK
|
|
|
|
#define CC_MASK (0)
|
|
|
|
|
|
|
|
#define OP div
|
|
|
|
#include "test-i386-muldiv.h"
|
|
|
|
|
|
|
|
#define OP idiv
|
|
|
|
#include "test-i386-muldiv.h"
|
|
|
|
|
|
|
|
void test_imulw2(int op0, int op1)
|
|
|
|
{
|
|
|
|
int res, s1, s0, flags;
|
|
|
|
s0 = op0;
|
|
|
|
s1 = op1;
|
|
|
|
res = s0;
|
|
|
|
flags = 0;
|
|
|
|
asm ("push %4\n\t"
|
|
|
|
"popf\n\t"
|
|
|
|
"imulw %w2, %w0\n\t"
|
|
|
|
"pushf\n\t"
|
|
|
|
"popl %1\n\t"
|
|
|
|
: "=q" (res), "=g" (flags)
|
|
|
|
: "q" (s1), "0" (res), "1" (flags));
|
|
|
|
printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n",
|
|
|
|
"imulw", s0, s1, res, flags & CC_MASK);
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_imull2(int op0, int op1)
|
|
|
|
{
|
|
|
|
int res, s1, s0, flags;
|
|
|
|
s0 = op0;
|
|
|
|
s1 = op1;
|
|
|
|
res = s0;
|
|
|
|
flags = 0;
|
|
|
|
asm ("push %4\n\t"
|
|
|
|
"popf\n\t"
|
|
|
|
"imull %2, %0\n\t"
|
|
|
|
"pushf\n\t"
|
|
|
|
"popl %1\n\t"
|
|
|
|
: "=q" (res), "=g" (flags)
|
|
|
|
: "q" (s1), "0" (res), "1" (flags));
|
|
|
|
printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n",
|
|
|
|
"imull", s0, s1, res, flags & CC_MASK);
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_mul(void)
|
|
|
|
{
|
|
|
|
test_imulb(0x1234561d, 4);
|
|
|
|
test_imulb(3, -4);
|
|
|
|
test_imulb(0x80, 0x80);
|
|
|
|
test_imulb(0x10, 0x10);
|
|
|
|
|
|
|
|
test_imulw(0, 0x1234001d, 45);
|
|
|
|
test_imulw(0, 23, -45);
|
|
|
|
test_imulw(0, 0x8000, 0x8000);
|
|
|
|
test_imulw(0, 0x100, 0x100);
|
|
|
|
|
|
|
|
test_imull(0, 0x1234001d, 45);
|
|
|
|
test_imull(0, 23, -45);
|
|
|
|
test_imull(0, 0x80000000, 0x80000000);
|
|
|
|
test_imull(0, 0x10000, 0x10000);
|
|
|
|
|
|
|
|
test_mulb(0x1234561d, 4);
|
|
|
|
test_mulb(3, -4);
|
|
|
|
test_mulb(0x80, 0x80);
|
|
|
|
test_mulb(0x10, 0x10);
|
|
|
|
|
|
|
|
test_mulw(0, 0x1234001d, 45);
|
|
|
|
test_mulw(0, 23, -45);
|
|
|
|
test_mulw(0, 0x8000, 0x8000);
|
|
|
|
test_mulw(0, 0x100, 0x100);
|
|
|
|
|
|
|
|
test_mull(0, 0x1234001d, 45);
|
|
|
|
test_mull(0, 23, -45);
|
|
|
|
test_mull(0, 0x80000000, 0x80000000);
|
|
|
|
test_mull(0, 0x10000, 0x10000);
|
|
|
|
|
|
|
|
test_imulw2(0x1234001d, 45);
|
|
|
|
test_imulw2(23, -45);
|
|
|
|
test_imulw2(0x8000, 0x8000);
|
|
|
|
test_imulw2(0x100, 0x100);
|
|
|
|
|
|
|
|
test_imull2(0x1234001d, 45);
|
|
|
|
test_imull2(23, -45);
|
|
|
|
test_imull2(0x80000000, 0x80000000);
|
|
|
|
test_imull2(0x10000, 0x10000);
|
|
|
|
|
|
|
|
test_idivb(0x12341678, 0x127e);
|
|
|
|
test_idivb(0x43210123, -5);
|
|
|
|
test_idivb(0x12340004, -1);
|
|
|
|
|
|
|
|
test_idivw(0, 0x12345678, 12347);
|
|
|
|
test_idivw(0, -23223, -45);
|
|
|
|
test_idivw(0, 0x12348000, -1);
|
|
|
|
test_idivw(0x12343, 0x12345678, 0x81238567);
|
|
|
|
|
|
|
|
test_idivl(0, 0x12345678, 12347);
|
|
|
|
test_idivl(0, -233223, -45);
|
|
|
|
test_idivl(0, 0x80000000, -1);
|
|
|
|
test_idivl(0x12343, 0x12345678, 0x81234567);
|
|
|
|
|
|
|
|
test_divb(0x12341678, 0x127e);
|
|
|
|
test_divb(0x43210123, -5);
|
|
|
|
test_divb(0x12340004, -1);
|
|
|
|
|
|
|
|
test_divw(0, 0x12345678, 12347);
|
|
|
|
test_divw(0, -23223, -45);
|
|
|
|
test_divw(0, 0x12348000, -1);
|
|
|
|
test_divw(0x12343, 0x12345678, 0x81238567);
|
|
|
|
|
|
|
|
test_divl(0, 0x12345678, 12347);
|
|
|
|
test_divl(0, -233223, -45);
|
|
|
|
test_divl(0, 0x80000000, -1);
|
|
|
|
test_divl(0x12343, 0x12345678, 0x81234567);
|
|
|
|
}
|
|
|
|
|
2003-03-06 04:57:02 +08:00
|
|
|
#define TEST_BSX(op, size, op0)\
|
|
|
|
{\
|
|
|
|
int res, val, resz;\
|
|
|
|
val = op0;\
|
|
|
|
asm("xorl %1, %1 ; " #op " %" size "2, %" size "0 ; setz %b1" \
|
|
|
|
: "=r" (res), "=q" (resz)\
|
|
|
|
: "g" (val));\
|
|
|
|
printf("%-10s A=%08x R=%08x %d\n", #op, val, resz ? 0 : res, resz);\
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_bsx(void)
|
|
|
|
{
|
|
|
|
TEST_BSX(bsrw, "w", 0);
|
|
|
|
TEST_BSX(bsrw, "w", 0x12340128);
|
|
|
|
TEST_BSX(bsrl, "", 0);
|
|
|
|
TEST_BSX(bsrl, "", 0x00340128);
|
|
|
|
TEST_BSX(bsfw, "w", 0);
|
|
|
|
TEST_BSX(bsfw, "w", 0x12340128);
|
|
|
|
TEST_BSX(bsfl, "", 0);
|
|
|
|
TEST_BSX(bsfl, "", 0x00340128);
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_fops(double a, double b)
|
|
|
|
{
|
|
|
|
printf("a=%f b=%f a+b=%f\n", a, b, a + b);
|
|
|
|
printf("a=%f b=%f a-b=%f\n", a, b, a - b);
|
|
|
|
printf("a=%f b=%f a*b=%f\n", a, b, a * b);
|
|
|
|
printf("a=%f b=%f a/b=%f\n", a, b, a / b);
|
|
|
|
printf("a=%f b=%f fmod(a, b)=%f\n", a, b, fmod(a, b));
|
|
|
|
printf("a=%f sqrt(a)=%f\n", a, sqrt(a));
|
|
|
|
printf("a=%f sin(a)=%f\n", a, sin(a));
|
|
|
|
printf("a=%f cos(a)=%f\n", a, cos(a));
|
|
|
|
printf("a=%f tan(a)=%f\n", a, tan(a));
|
|
|
|
printf("a=%f log(a)=%f\n", a, log(a));
|
|
|
|
printf("a=%f exp(a)=%f\n", a, exp(a));
|
|
|
|
printf("a=%f b=%f atan2(a, b)=%f\n", a, b, atan2(a, b));
|
|
|
|
/* just to test some op combining */
|
|
|
|
printf("a=%f asin(sin(a))=%f\n", a, asin(sin(a)));
|
|
|
|
printf("a=%f acos(cos(a))=%f\n", a, acos(cos(a)));
|
|
|
|
printf("a=%f atan(tan(a))=%f\n", a, atan(tan(a)));
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_fcmp(double a, double b)
|
|
|
|
{
|
|
|
|
printf("(%f<%f)=%d\n",
|
|
|
|
a, b, a < b);
|
|
|
|
printf("(%f<=%f)=%d\n",
|
|
|
|
a, b, a <= b);
|
|
|
|
printf("(%f==%f)=%d\n",
|
|
|
|
a, b, a == b);
|
|
|
|
printf("(%f>%f)=%d\n",
|
|
|
|
a, b, a > b);
|
|
|
|
printf("(%f<=%f)=%d\n",
|
|
|
|
a, b, a >= b);
|
|
|
|
}
|
|
|
|
|
|
|
|
void test_fcvt(double a)
|
|
|
|
{
|
|
|
|
float fa;
|
|
|
|
long double la;
|
|
|
|
|
|
|
|
fa = a;
|
|
|
|
la = a;
|
|
|
|
printf("(float)%f = %f\n", a, fa);
|
|
|
|
printf("(long double)%f = %Lf\n", a, la);
|
2003-03-06 06:24:26 +08:00
|
|
|
printf("a=%016Lx\n", *(long long *)&a);
|
|
|
|
printf("la=%016Lx %04x\n", *(long long *)&la,
|
|
|
|
*(unsigned short *)((char *)(&la) + 8));
|
2003-03-06 04:57:02 +08:00
|
|
|
printf("a=%f floor(a)=%f\n", a, floor(a));
|
|
|
|
printf("a=%f ceil(a)=%f\n", a, ceil(a));
|
|
|
|
printf("a=%f rint(a)=%f\n", a, rint(a));
|
|
|
|
}
|
|
|
|
|
|
|
|
#define TEST(N) \
|
|
|
|
asm("fld" #N : "=t" (a)); \
|
|
|
|
printf("fld" #N "= %f\n", a);
|
|
|
|
|
|
|
|
void test_fconst(void)
|
|
|
|
{
|
|
|
|
double a;
|
|
|
|
TEST(1);
|
|
|
|
TEST(l2t);
|
|
|
|
TEST(l2e);
|
|
|
|
TEST(pi);
|
|
|
|
TEST(lg2);
|
|
|
|
TEST(ln2);
|
|
|
|
TEST(z);
|
|
|
|
}
|
|
|
|
|
2003-03-06 06:24:26 +08:00
|
|
|
void test_fbcd(double a)
|
|
|
|
{
|
|
|
|
unsigned short bcd[5];
|
|
|
|
double b;
|
|
|
|
|
|
|
|
asm("fbstp %0" : "=m" (bcd[0]) : "t" (a) : "st");
|
|
|
|
asm("fbld %1" : "=t" (b) : "m" (bcd[0]));
|
|
|
|
printf("a=%f bcd=%04x%04x%04x%04x%04x b=%f\n",
|
|
|
|
a, bcd[4], bcd[3], bcd[2], bcd[1], bcd[0], b);
|
|
|
|
}
|
|
|
|
|
2003-03-06 04:57:02 +08:00
|
|
|
void test_floats(void)
|
|
|
|
{
|
|
|
|
test_fops(2, 3);
|
|
|
|
test_fops(1.4, -5);
|
|
|
|
test_fcmp(2, -1);
|
|
|
|
test_fcmp(2, 2);
|
|
|
|
test_fcmp(2, 3);
|
|
|
|
test_fcvt(1.0/7.0);
|
|
|
|
test_fcvt(-1.0/9.0);
|
|
|
|
test_fcvt(1e30);
|
|
|
|
test_fconst();
|
2003-03-06 06:24:26 +08:00
|
|
|
test_fbcd(1234567890123456);
|
|
|
|
test_fbcd(-123451234567890);
|
2003-03-06 04:57:02 +08:00
|
|
|
}
|
2003-03-04 07:23:09 +08:00
|
|
|
|
2003-02-25 04:14:06 +08:00
|
|
|
static void *call_end __init_call = NULL;
|
|
|
|
|
|
|
|
int main(int argc, char **argv)
|
|
|
|
{
|
|
|
|
void **ptr;
|
|
|
|
void (*func)(void);
|
2003-03-04 07:23:09 +08:00
|
|
|
|
2003-02-25 04:14:06 +08:00
|
|
|
ptr = &call_start + 1;
|
|
|
|
while (*ptr != NULL) {
|
|
|
|
func = *ptr++;
|
|
|
|
func();
|
|
|
|
}
|
2003-03-06 04:57:02 +08:00
|
|
|
test_bsx();
|
2003-03-04 09:14:13 +08:00
|
|
|
test_mul();
|
2003-02-25 04:14:06 +08:00
|
|
|
test_jcc();
|
2003-03-04 07:23:09 +08:00
|
|
|
test_lea();
|
2003-03-06 04:57:02 +08:00
|
|
|
test_floats();
|
2003-02-25 04:14:06 +08:00
|
|
|
return 0;
|
|
|
|
}
|