mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 11:10:27 +02:00
59255a493c
* check/clobber.ok, check/clobber.tst: New test case doing extensive validation tests to ensure registers not used in a operation are not clobbered. * check/Makefile.am: Update for new test case.
943 lines
31 KiB
Scilab
943 lines
31 KiB
Scilab
/* do not bother about result of operations, only ensure valid arguments
|
|
* and that registers not modified by the operation are not clobbered */
|
|
|
|
#define IV0 0x10000
|
|
#define IV1 0x10001
|
|
#define IV2 0x10002
|
|
#define IV3 0x10003
|
|
#define IV4 0x10004
|
|
#define IV5 0x10005
|
|
#define FV0 100.0
|
|
#define FV1 101.0
|
|
#define FV2 102.0
|
|
#define FV3 103.0
|
|
#define FV4 104.0
|
|
#define FV5 105.0
|
|
#define IR0 r0
|
|
#define IR1 r1
|
|
#define IR2 r2
|
|
#define IR3 v0
|
|
#define IR4 v1
|
|
#define IR5 v2
|
|
#define FR0 f0
|
|
#define FR1 f1
|
|
#define FR2 f2
|
|
#define FR3 f3
|
|
#define FR4 f4
|
|
#define FR5 f5
|
|
|
|
#define setup() \
|
|
movi %r0 IV0 \
|
|
movi %r1 IV1 \
|
|
movi %r2 IV2 \
|
|
movi %v0 IV3 \
|
|
movi %v1 IV4 \
|
|
movi %v2 IV5
|
|
#define setup_f() \
|
|
movi_f %f0 FV0 \
|
|
movi_f %f1 FV1 \
|
|
movi_f %f2 FV2 \
|
|
movi_f %f3 FV3 \
|
|
movi_f %f4 FV4 \
|
|
movi_f %f5 FV5
|
|
#define setup_d() \
|
|
movi_d %f0 FV0 \
|
|
movi_d %f1 FV1 \
|
|
movi_d %f2 FV2 \
|
|
movi_d %f3 FV3 \
|
|
movi_d %f4 FV4 \
|
|
movi_d %f5 FV5
|
|
|
|
#define check(label, rn) \
|
|
beqi label %IR##rn IV##rn \
|
|
calli @abort \
|
|
label:
|
|
#define check1(k, l, i0) \
|
|
check(k##l##i0##_0, i0)
|
|
#define check2(k, l, i0, i1) \
|
|
check(k##l##i0##i1##_0, i0) \
|
|
check(k##l##i0##i1##_1, i1)
|
|
#define check3(k, l, i0, i1, i2) \
|
|
check(k##l##i0##i1##i2##_0, i0) \
|
|
check(k##l##i0##i1##i2##_1, i1) \
|
|
check(k##l##i0##i1##i2##_2, i2)
|
|
#define check4(k, l, i0, i1, i2, i3) \
|
|
check(k##l##i0##i1##i2##i3##_0, i0) \
|
|
check(k##l##i0##i1##i2##i3##_1, i1) \
|
|
check(k##l##i0##i1##i2##i3##_2, i2) \
|
|
check(k##l##i0##i1##i2##i3##_3, i3)
|
|
#define check5(k, l, i0, i1, i2, i3, i4) \
|
|
check(k##l##i0##i1##i2##i3##i4##_0, i0) \
|
|
check(k##l##i0##i1##i2##i3##i4##_1, i1) \
|
|
check(k##l##i0##i1##i2##i3##i3##_2, i2) \
|
|
check(k##l##i0##i1##i2##i3##i4##_3, i3) \
|
|
check(k##l##i0##i1##i2##i3##i4##_4, i4)
|
|
#define check6(k, l, i0, i1, i2, i3, i4, i5) \
|
|
check(k##l##i0##i1##i2##i3##i4##i5##_0, i0) \
|
|
check(k##l##i0##i1##i2##i3##i4##i5##_1, i1) \
|
|
check(k##l##i0##i1##i2##i3##i3##i5##_2, i2) \
|
|
check(k##l##i0##i1##i2##i3##i4##i5##_3, i3) \
|
|
check(k##l##i0##i1##i2##i3##i4##i5##_4, i4) \
|
|
check(k##l##i0##i1##i2##i3##i4##i5##_5, i5)
|
|
|
|
#define checkf(f, label, rn) \
|
|
beqi##f label %FR##rn FV##rn \
|
|
calli @abort \
|
|
label:
|
|
#define checkf1(f, k, l, i0) \
|
|
checkf(f, f##k##l##i0##_0, i0)
|
|
#define checkf2(f, k, l, i0, i1) \
|
|
checkf(f, f##k##l##i0##i1##_0, i0) \
|
|
checkf(f, f##k##l##i0##i1##_1, i1)
|
|
#define checkf3(f, k, l, i0, i1, i2) \
|
|
checkf(f, f##k##l##i0##i1##i2##_0, i0) \
|
|
checkf(f, f##k##l##i0##i1##i2##_1, i1) \
|
|
checkf(f, f##k##l##i0##i1##i2##_2, i2)
|
|
#define checkf4(f, k, l, i0, i1, i2, i3) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##_0, i0) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##_1, i1) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##_2, i2) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##_3, i3)
|
|
#define checkf5(f, k, l, i0, i1, i2, i3, i4) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##_0, i0) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##_1, i1) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i3##_2, i2) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##_3, i3) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##_4, i4)
|
|
#define checkf6(f, k, l, i0, i1, i2, i3, i4, i5) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_0, i0) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_1, i1) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i3##i5##_2, i2) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_3, i3) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_4, i4) \
|
|
checkf(f, f##k##l##i0##i1##i2##i3##i4##i5##_5, i5)
|
|
|
|
#define alui(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##i %IR##i1 %IR##i0 1 \
|
|
check4(i, l, i2, i3, i4, i5)
|
|
#define aluic(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##i %IR##i0 %IR##i0 1 \
|
|
check5(ic, l, i1, i2, i3, i4, i5)
|
|
#define alur(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r %IR##i2 %IR##i0 %IR##i1 \
|
|
check3(r, l, i3, i4, i5)
|
|
#define alurc0(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r %IR##i0 %IR##i0 %IR##i1 \
|
|
check4(r0, l, i2, i3, i4, i5)
|
|
#define alurc1(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r %IR##i1 %IR##i0 %IR##i1 \
|
|
check4(r1, l, i2, i3, i4, i5)
|
|
#define alurc2(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##r %IR##i0 %IR##i0 %IR##i0 \
|
|
check5(r2, l, i1, i2, i3, i4, i5)
|
|
#define xalu(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alui(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluic(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alur(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc0(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc1(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc2(l, op, i0, i1, i2, i3, i4, i5)
|
|
#define alu(l, op) \
|
|
xalu(l, op, 0, 1, 2, 3, 4, 5) \
|
|
xalu(l, op, 1, 2, 3, 4, 5, 0) \
|
|
xalu(l, op, 2, 3, 4, 5, 0, 1) \
|
|
xalu(l, op, 3, 4, 5, 0, 1, 2) \
|
|
xalu(l, op, 4, 5, 0, 1, 2, 3) \
|
|
xalu(l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define fopi(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
op##i##f %FR##f1 %FR##f0 1.0 \
|
|
checkf4(f, i, l, f2, f3, f4, f5)
|
|
#define fopic(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
op##i##f %FR##f0 %FR##f0 1.0 \
|
|
checkf5(f, ic, l, f1, f2, f3, f4, f5)
|
|
#define fopr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
movi##f %FR##f1 1.0 \
|
|
op##r##f %FR##f2 %FR##f0 %FR##f1 \
|
|
checkf3(f, r, l, f3, f4, f5)
|
|
#define foprc0(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
movi##f %FR##f1 1.0 \
|
|
op##r##f %FR##f0 %FR##f0 %FR##f1 \
|
|
checkf4(f, r0, l, f2, f3, f4, f5)
|
|
#define foprc1(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
movi##f %FR##f1 1.0 \
|
|
op##r##f %FR##f1 %FR##f0 %FR##f1 \
|
|
checkf4(f, r1, l, f2, f3, f4, f5)
|
|
#define foprc2(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
op##r##f %FR##f0 %FR##f0 %FR##f0 \
|
|
checkf5(f, r2, l, f1, f2, f3, f4, f5)
|
|
#define xfop(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
fopi(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
fopic(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
fopr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
foprc0(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
foprc1(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
foprc2(f, l, op, f0, f1, f2, f3, f4, f5)
|
|
#define xxfop(l, op, f, f0, f1, f2, f3, f4, f5) \
|
|
xfop(_f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
xfop(_d, l, op, f0, f1, f2, f3, f4, f5)
|
|
#define fop(l, op) \
|
|
xxfop(l, op, f, 0, 1, 2, 3, 4, 5) \
|
|
xxfop(l, op, f, 1, 2, 3, 4, 5, 0) \
|
|
xxfop(l, op, f, 2, 3, 4, 5, 0, 1) \
|
|
xxfop(l, op, f, 3, 4, 5, 0, 1, 2) \
|
|
xxfop(l, op, f, 4, 5, 0, 1, 2, 3) \
|
|
xxfop(l, op, f, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define aluxii(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##ci %IR##i1 %IR##i0 1 \
|
|
op##xi %IR##i2 %IR##i0 1 \
|
|
check3(ii, l, i3, i4, i5)
|
|
#define aluxir(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##ci %IR##i1 %IR##i0 1 \
|
|
op##xr %IR##i2 %IR##i0 %IR##i1 \
|
|
check3(ir, l, i3, i4, i5)
|
|
#define aluxri(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##cr %IR##i2 %IR##i0 %IR##i1 \
|
|
op##xi %IR##i0 %IR##i1 1 \
|
|
check3(ri, l, i3, i4, i5)
|
|
#define aluxrr(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##cr %IR##i2 %IR##i0 %IR##i1 \
|
|
op##xr %IR##i2 %IR##i0 %IR##i1 \
|
|
check3(rr, l, i3, i4, i5)
|
|
#define xalux(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluxii(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluxir(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluxri(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluxrr(l, op, i0, i1, i2, i3, i4, i5)
|
|
#define alux(l, op) \
|
|
xalux(l, op, 0, 1, 2, 3, 4, 5) \
|
|
xalux(l, op, 1, 2, 3, 4, 5, 0) \
|
|
xalux(l, op, 2, 3, 4, 5, 0, 1) \
|
|
xalux(l, op, 3, 4, 5, 0, 1, 2) \
|
|
xalux(l, op, 4, 5, 0, 1, 2, 3) \
|
|
xalux(l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define alui_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##i_u %IR##i1 %IR##i0 1 \
|
|
check4(i_u, l, i2, i3, i4, i5)
|
|
#define aluic_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##i_u %IR##i0 %IR##i0 1 \
|
|
check5(ic_u, l, i1, i2, i3, i4, i5)
|
|
#define alur_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r_u %IR##i2 %IR##i0 %IR##i1 \
|
|
check3(r_u, l, i3, i4, i5)
|
|
#define alurc0_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r_u %IR##i0 %IR##i0 %IR##i1 \
|
|
check4(r0_u, l, i2, i3, i4, i5)
|
|
#define alurc1_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
movi %IR##i1 1 \
|
|
op##r_u %IR##i1 %IR##i0 %IR##i1 \
|
|
check4(r1_u, l, i2, i3, i4, i5)
|
|
#define alurc2_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op##r_u %IR##i0 %IR##i0 %IR##i0 \
|
|
check5(r2_u, l, i1, i2, i3, i4, i5)
|
|
#define xalu_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alui_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
aluic_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alur_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc0_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc1_u(l, op, i0, i1, i2, i3, i4, i5) \
|
|
alurc2_u(l, op, i0, i1, i2, i3, i4, i5)
|
|
#define alu_u(l, op) \
|
|
xalu_u(l, op, 0, 1, 2, 3, 4, 5) \
|
|
xalu_u(l, op, 1, 2, 3, 4, 5, 0) \
|
|
xalu_u(l, op, 2, 3, 4, 5, 0, 1) \
|
|
xalu_u(l, op, 3, 4, 5, 0, 1, 2) \
|
|
xalu_u(l, op, 4, 5, 0, 1, 2, 3) \
|
|
xalu_u(l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define unir(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op %IR##i1 %IR##i0 \
|
|
check4(rr, l, i2, i3, i4, i5)
|
|
#define unirc(l, op, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
op %IR##i0 %IR##i0 \
|
|
check5(rc, l, i1, i2, i3, i4, i5)
|
|
#define xuni(l, op, i0, i1, i2, i3, i4, i5) \
|
|
unir(l, op, i0, i1, i2, i3, i4, i5) \
|
|
unirc(l, op, i0, i1, i2, i3, i4, i5)
|
|
#define uni(l, op) \
|
|
xuni(l, op, 0, 1, 2, 3, 4, 5) \
|
|
xuni(l, op, 1, 2, 3, 4, 5, 0) \
|
|
xuni(l, op, 2, 3, 4, 5, 0, 1) \
|
|
xuni(l, op, 3, 4, 5, 0, 1, 2) \
|
|
xuni(l, op, 4, 5, 0, 1, 2, 3) \
|
|
xuni(l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define unfr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
op##f %FR##f1 %FR##f0 \
|
|
checkf4(f, rr, l, f2, f3, f4, f5)
|
|
#define unfrc(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
op##f %FR##f0 %FR##f0 \
|
|
checkf5(f, rc, l, f1, f2, f3, f4, f5)
|
|
#define xunf(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
unfr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
unfrc(f, l, op, f0, f1, f2, f3, f4, f5)
|
|
#define xxunf(l, op, f0, f1, f2, f3, f4, f5) \
|
|
xunf(_f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
xunf(_d, l, op, f0, f1, f2, f3, f4, f5)
|
|
#define unf(l, op) \
|
|
xxunf(l, op, 0, 1, 2, 3, 4, 5) \
|
|
xxunf(l, op, 1, 2, 3, 4, 5, 0) \
|
|
xxunf(l, op, 2, 3, 4, 5, 0, 1) \
|
|
xxunf(l, op, 3, 4, 5, 0, 1, 2) \
|
|
xxunf(l, op, 4, 5, 0, 1, 2, 3) \
|
|
xxunf(l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define fcpi(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
op##i##f %IR##r0 %FR##f0 1.0 \
|
|
check5(i##f##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
|
|
#define fcpr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
movi##f %FR##f1 1.0 \
|
|
op##r##f %IR##r0 %FR##f0 %FR##f1 \
|
|
check5(r##f##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf4(f, r##r0, l, f2, f3, f4, f5)
|
|
#define fcprc(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi##f %FR##f0 1.0 \
|
|
op##r##f %IR##r0 %FR##f0 %FR##f0 \
|
|
check5(rc##f##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, rc##r0, l, f1, f2, f3, f4, f5)
|
|
#define ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
fcpi(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5) \
|
|
fcpr(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5) \
|
|
fcprc(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
|
|
#define xfcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3) \
|
|
ifcp(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
|
|
#define fcmp(l, op) \
|
|
xfcp(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5) \
|
|
xfcp(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
|
|
|
|
#define imvi(l, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i0 1 \
|
|
check5(i, l, i1, i2, i3, i4, i5)
|
|
#define imvr(l, i0, i1, i2, i3, i4, i5) \
|
|
setup() \
|
|
movi %IR##i1 1 \
|
|
movr %IR##i0 %IR##i1 \
|
|
check4(r, l, i2, i3, i4, i5)
|
|
#define xmvi(l, i0, i1, i2, i3, i4, i5) \
|
|
imvi(l, i0, i1, i2, i3, i4, i5) \
|
|
imvr(l, i0, i1, i2, i3, i4, i5)
|
|
#define mvi(l) \
|
|
xmvi(l, 0, 1, 2, 3, 4, 5) \
|
|
xmvi(l, 1, 2, 3, 4, 5, 0) \
|
|
xmvi(l, 2, 3, 4, 5, 0, 1) \
|
|
xmvi(l, 3, 4, 5, 0, 1, 2) \
|
|
xmvi(l, 4, 5, 0, 1, 2, 3) \
|
|
xmvi(l, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define fmvi(f, l, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
checkf5(f, i, l, f1, f2, f3, f4, f5)
|
|
#define fmvr(f, l, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f1 1 \
|
|
movr##f %FR##f0 %FR##f1 \
|
|
checkf4(f, r, l, f2, f3, f4, f5)
|
|
#define xmvf(f, l, f0, f1, f2, f3, f4, f5) \
|
|
fmvi(f, l, f0, f1, f2, f3, f4, f5) \
|
|
fmvr(f, l, f0, f1, f2, f3, f4, f5)
|
|
#define xxmvf(f, l) \
|
|
xmvf(f, l, 0, 1, 2, 3, 4, 5) \
|
|
xmvf(f, l, 1, 2, 3, 4, 5, 0) \
|
|
xmvf(f, l, 2, 3, 4, 5, 0, 1) \
|
|
xmvf(f, l, 3, 4, 5, 0, 1, 2) \
|
|
xmvf(f, l, 4, 5, 0, 1, 2, 3) \
|
|
xmvf(f, l, 5, 0, 1, 2, 3, 4)
|
|
#define mvf(l) \
|
|
xxmvf(_f, l) \
|
|
xxmvf(_d, l)
|
|
|
|
#define f2fr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
op %FR##f1 %FR##f0 \
|
|
checkf4(f, rr, l, f2, f3, f4, f5)
|
|
#define f2frc(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
op %FR##f0 %FR##f0 \
|
|
checkf5(f, rc, l, f1, f2, f3, f4, f5)
|
|
#define xf2f(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
f2fr(f, l, op, f0, f1, f2, f3, f4, f5) \
|
|
f2frc(f, l, op, f0, f1, f2, f3, f4, f5)
|
|
#define f2f(l, f, op) \
|
|
xf2f(f, l, op, 0, 1, 2, 3, 4, 5) \
|
|
xf2f(f, l, op, 1, 2, 3, 4, 5, 0) \
|
|
xf2f(f, l, op, 2, 3, 4, 5, 0, 1) \
|
|
xf2f(f, l, op, 3, 4, 5, 0, 1, 2) \
|
|
xf2f(f, l, op, 4, 5, 0, 1, 2, 3) \
|
|
xf2f(f, l, op, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define f2ir(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi##f %FR##f0 1 \
|
|
op##f %IR##r0 %FR##f0 \
|
|
check5(r##f##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
|
|
#define if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
f2ir(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
|
|
#define xf2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3) \
|
|
if2i(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
|
|
#define f2i(l, op) \
|
|
xf2i(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5) \
|
|
xf2i(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
|
|
|
|
#define i2fr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 1 \
|
|
op##f %FR##f0 %IR##r0 \
|
|
check5(r##f##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, i##r0, l, f1, f2, f3, f4, f5)
|
|
#define ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
i2fr(f, l, op, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
|
|
#define xi2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3) \
|
|
ii2f(f, l, op, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
|
|
#define i2f(l, op) \
|
|
xi2f(_f, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5) \
|
|
xi2f(_d, l, op, 0, 1, 2, 3, 4, 5, 0, 1, 2, 3, 4, 5)
|
|
|
|
#define off_c 1
|
|
#define off_uc off_c
|
|
#define off_s 2
|
|
#define off_us off_s
|
|
#define off_i 4
|
|
#define off_ui off_i
|
|
#define off_l 8
|
|
#define off_f 4
|
|
#define off_d 8
|
|
|
|
#define ildi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
ldi##i %IR##r0 buff \
|
|
check5(ldi##i, l, r1, r2, r3, r4, r5)
|
|
#define ildr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
ldr##i %IR##r0 %IR##r1 \
|
|
check4(ldr##i, l, r2, r3, r4, r5)
|
|
#define ildr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r0 buff \
|
|
ldr##i %IR##r0 %IR##r0 \
|
|
check5(ldr##i, l, r1, r2, r3, r4, r5)
|
|
#define ildxi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
ldxi##i %IR##r0 %IR##r1 off##i \
|
|
check4(ldxi##i, l, r2, r3, r4, r5)
|
|
#define ildxr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
movi %IR##r2 off##i \
|
|
ldxr##i %IR##r0 %IR##r1 %IR##r2 \
|
|
check3(ldxr##i, l, r3, r4, r5)
|
|
#define ildxr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
movi %IR##r0 off##i \
|
|
ldxr##i %IR##r0 %IR##r1 %IR##r0 \
|
|
check4(ldxr0##i, l, r2, r3, r4, r5)
|
|
#define ildxr1(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r0 buff \
|
|
movi %IR##r1 off##i \
|
|
ldxr##i %IR##r0 %IR##r0 %IR##r1 \
|
|
check4(ldxr1##i, l, r2, r3, r4, r5)
|
|
#define xxldi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildxi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildxr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildxr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
ildxr1(i, l, r0, r1, r2, r3, r4, r5)
|
|
#if __WORDSIZE == 32
|
|
#define xxxldi(l, r0, r1, r2, r3, r4, r5)
|
|
#else
|
|
#define xxxldi(l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi(_ui, l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi( _l, l, r0, r1, r2, r3, r4, r5)
|
|
#endif
|
|
#define xldi(l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi( _c, l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi(_uc, l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi( _s, l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi(_us, l, r0, r1, r2, r3, r4, r5) \
|
|
xxldi( _i, l, r0, r1, r2, r3, r4, r5) \
|
|
xxxldi(l, r0, r1, r2, r3, r4, r5)
|
|
#define ldi(l) \
|
|
xldi(l, 0, 1, 2, 3, 4, 5) \
|
|
xldi(l, 1, 2, 3, 4, 5, 0) \
|
|
xldi(l, 2, 3, 4, 5, 0, 1) \
|
|
xldi(l, 3, 4, 5, 0, 1, 2) \
|
|
xldi(l, 4, 5, 0, 1, 2, 3) \
|
|
xldi(l, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define fldi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
ldi##f %FR##f0 buff \
|
|
check6(ldi##f##r0##f0, l, r0, r1, r2, r3, r4, r5) \
|
|
checkf5(f, ldi##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fldr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
ldr##f %FR##f0 %IR##r0 \
|
|
check5(ldr##f##r0##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, ldr##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fldxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
ldxi##f %FR##f0 %IR##r0 off##f \
|
|
check5(ldxi##f##r0##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, ldxi##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fldxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
movi %IR##r1 off##f \
|
|
ldxr##f %FR##f0 %IR##r0 %IR##r1 \
|
|
check4(ldxr##f##r0##f0, l, r2, r3, r4, r5) \
|
|
checkf5(f, ldxr##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define xldf(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fldi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fldr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fldxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fldxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
|
|
#define xxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xldf(_f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xldf(_d, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
|
|
#define fxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3) \
|
|
xxldf(l, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
|
|
#define ixldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
fxldf(l, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
|
|
#define ldf(l) \
|
|
ixldf(l, 0,1,2,3,4,5, 0,1,2,3,4,5)
|
|
|
|
#define isti(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
sti##i buff %IR##r0 \
|
|
check5(sti##i, l, r1, r2, r3, r4, r5)
|
|
#define istr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
str##i %IR##r1 %IR##r0 \
|
|
check4(str##i, l, r2, r3, r4, r5)
|
|
#define istr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
str##i %IR##r1 %IR##r0 \
|
|
check4(str0##i, l, r2, r3, r4, r5)
|
|
#define istxi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
stxi##i off##i %IR##r1 %IR##r0 \
|
|
check4(stxi##i, l, r2, r3, r4, r5)
|
|
#define istxr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
movi %IR##r2 off##i \
|
|
stxr##i %IR##r2 %IR##r1 %IR##r0 \
|
|
check3(stxr##i, l, r3, r4, r5)
|
|
#define istxr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r1 buff \
|
|
movi %IR##r0 off##i \
|
|
stxr##i %IR##r0 %IR##r1 %IR##r0 \
|
|
check4(stxr0##i, l, r2, r3, r4, r5)
|
|
#define istxr1(i, l, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r0 buff \
|
|
movi %IR##r1 off##i \
|
|
stxr##i %IR##r1 %IR##r0 %IR##r0 \
|
|
check4(stxr1##i, l, r2, r3, r4, r5)
|
|
#define xxsti(i, l, r0, r1, r2, r3, r4, r5) \
|
|
isti(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istxi(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istxr(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istxr0(i, l, r0, r1, r2, r3, r4, r5) \
|
|
istxr1(i, l, r0, r1, r2, r3, r4, r5)
|
|
#if __WORDSIZE == 32
|
|
#define xxxsti(l, r0, r1, r2, r3, r4, r5)
|
|
#else
|
|
#define xxxsti(l, r0, r1, r2, r3, r4, r5) \
|
|
xxsti( _l, l, r0, r1, r2, r3, r4, r5)
|
|
#endif
|
|
#define xsti(l, r0, r1, r2, r3, r4, r5) \
|
|
xxsti( _c, l, r0, r1, r2, r3, r4, r5) \
|
|
xxsti( _s, l, r0, r1, r2, r3, r4, r5) \
|
|
xxsti( _i, l, r0, r1, r2, r3, r4, r5) \
|
|
xxxsti(l, r0, r1, r2, r3, r4, r5)
|
|
#define sti(l) \
|
|
xsti(l, 0, 1, 2, 3, 4, 5) \
|
|
xsti(l, 1, 2, 3, 4, 5, 0) \
|
|
xsti(l, 2, 3, 4, 5, 0, 1) \
|
|
xsti(l, 3, 4, 5, 0, 1, 2) \
|
|
xsti(l, 4, 5, 0, 1, 2, 3) \
|
|
xsti(l, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define fsti(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
sti##f buff %FR##f0 \
|
|
check6(sti##f##r0##f0, l, r0, r1, r2, r3, r4, r5) \
|
|
checkf5(f, sti##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fstr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
str##f %IR##r0 %FR##f0 \
|
|
check5(str##f##r0##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, str##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fstxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
stxi##f off##f %IR##r0 %FR##f0 \
|
|
check5(stxi##f##r0##f0, l, r1, r2, r3, r4, r5) \
|
|
checkf5(f, stxi##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define fstxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
setup() \
|
|
setup##f() \
|
|
movi %IR##r0 buff \
|
|
movi %IR##r1 off##f \
|
|
stxr##f %IR##r1 %IR##r0 %FR##f0 \
|
|
check4(stxr##f##r0##f0, l, r2, r3, r4, r5) \
|
|
checkf5(f, stxr##r0##f0, l, f1, f2, f3, f4, f5)
|
|
#define xstf(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fsti(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fstr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fstxi(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fstxr(f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
|
|
#define xxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xstf(_f, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xstf(_d, l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5)
|
|
#define fxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f1,f2,f3,f4,f5,f0) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f2,f3,f4,f5,f0,f1) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f3,f4,f5,f0,f1,f2) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f4,f5,f0,f1,f2,f3) \
|
|
xxstf(l, r0,r1,r2,r3,r4,r5, f5,f0,f1,f2,f3,f4)
|
|
#define ixstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r0,r1,r2,r3,r4,r5, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r1,r2,r3,r4,r5,r0, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r2,r3,r4,r5,r0,r1, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r3,r4,r5,r0,r1,r2, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r4,r5,r0,r1,r2,r3, f0,f1,f2,f3,f4,f5) \
|
|
fxstf(l, r5,r0,r1,r2,r3,r4, f0,f1,f2,f3,f4,f5)
|
|
#define stf(l) \
|
|
ixstf(l, 0,1,2,3,4,5, 0,1,2,3,4,5)
|
|
|
|
/* Need a valid jump or simple optimization will remove it */
|
|
#define bri(l, op, u, il, ir, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r0 il \
|
|
b##op##i##u i##l##op##r0 %IR##r0 ir \
|
|
calli @abort \
|
|
i##l##op##r0: \
|
|
check5(i, l, r1, r2, r3, r4, r5)
|
|
#define brr(l, op, u, il, ir, r0, r1, r2, r3, r4, r5) \
|
|
setup() \
|
|
movi %IR##r0 il \
|
|
movi %IR##r1 ir \
|
|
b##op##r##u r##l##op##r0 %IR##r0 %IR##r1 \
|
|
calli @abort \
|
|
r##l##op##r0: \
|
|
check4(r, l, r2, r3, r4, r5)
|
|
#define xjmpi(l, op, u, il, ir, r0, r1, r2, r3, r4, r5) \
|
|
bri(l, op, u, il, ir, r0, r1, r2, r3, r4, r5) \
|
|
brr(l, op, u, il, ir, r0, r1, r2, r3, r4, r5)
|
|
#define jmpi(l, op, u, il, ir) \
|
|
xjmpi(l, op, u, il, ir, 0, 1, 2, 3, 4, 5) \
|
|
xjmpi(l, op, u, il, ir, 1, 2, 3, 4, 5, 0) \
|
|
xjmpi(l, op, u, il, ir, 2, 3, 4, 5, 0, 1) \
|
|
xjmpi(l, op, u, il, ir, 3, 4, 5, 0, 1, 2) \
|
|
xjmpi(l, op, u, il, ir, 4, 5, 0, 1, 2, 3) \
|
|
xjmpi(l, op, u, il, ir, 5, 0, 1, 2, 3, 4)
|
|
|
|
#define bfi(f, l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 il \
|
|
b##op##i##f i##l##op##f##f0 %FR##f0 ir \
|
|
calli @abort \
|
|
i##l##op##f##f0: \
|
|
checkf5(f, i, l, f1, f2, f3, f4, f5)
|
|
#define bff(f, l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
setup##f() \
|
|
movi##f %FR##f0 il \
|
|
movi##f %FR##f1 ir \
|
|
b##op##r##f r##l##op##f##f0 %FR##f0 %FR##f1 \
|
|
calli @abort \
|
|
r##l##op##f##f0: \
|
|
checkf4(f, r, l, f2, f3, f4, f5)
|
|
#define xjmpf(f, l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
bfi(f, l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
bff(f, l, op, il, ir, f0, f1, f2, f3, f4, f5)
|
|
#define xxjmpf(l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
xjmpf(_f, l, op, il, ir, f0, f1, f2, f3, f4, f5) \
|
|
xjmpf(_d, l, op, il, ir, f0, f1, f2, f3, f4, f5)
|
|
#define jmpf(l, op, il, ir) \
|
|
xxjmpf(l, op, il, ir, 0, 1, 2, 3, 4, 5) \
|
|
xxjmpf(l, op, il, ir, 1, 2, 3, 4, 5, 0) \
|
|
xxjmpf(l, op, il, ir, 2, 3, 4, 5, 0, 1) \
|
|
xxjmpf(l, op, il, ir, 3, 4, 5, 0, 1, 2) \
|
|
xxjmpf(l, op, il, ir, 4, 5, 0, 1, 2, 3) \
|
|
xxjmpf(l, op, il, ir, 5, 0, 1, 2, 3, 4)
|
|
|
|
.data 32
|
|
buff:
|
|
.size 16
|
|
ok:
|
|
.c "ok\n"
|
|
|
|
.code
|
|
jmpi main
|
|
|
|
main:
|
|
prolog
|
|
|
|
alu(__LINE__, add)
|
|
alux(__LINE__, add)
|
|
fop(__LINE__, add)
|
|
alu(__LINE__, sub)
|
|
alux(__LINE__, sub)
|
|
fop(__LINE__, sub)
|
|
alu(__LINE__, mul)
|
|
fop(__LINE__, mul)
|
|
alu(__LINE__, div)
|
|
alu_u(__LINE__, div)
|
|
fop(__LINE__, div)
|
|
alu(__LINE__, rem)
|
|
alu_u(__LINE__, rem)
|
|
alu(__LINE__, and)
|
|
alu(__LINE__, or)
|
|
alu(__LINE__, xor)
|
|
alu(__LINE__, lsh)
|
|
alu(__LINE__, rsh)
|
|
alu_u(__LINE__, rsh)
|
|
uni(__LINE__, negr)
|
|
unf(__LINE__, negr)
|
|
uni(__LINE__, comr)
|
|
unf(__LINE__, absr)
|
|
unf(__LINE__, sqrtr)
|
|
alu(__LINE__, lt)
|
|
alu_u(__LINE__, lt)
|
|
fcmp(__LINE__, lt)
|
|
alu(__LINE__, le)
|
|
alu_u(__LINE__, le)
|
|
fcmp(__LINE__, le)
|
|
alu(__LINE__, eq)
|
|
fcmp(__LINE__, eq)
|
|
alu(__LINE__, ge)
|
|
alu_u(__LINE__, ge)
|
|
fcmp(__LINE__, ge)
|
|
alu(__LINE__, gt)
|
|
alu_u(__LINE__, gt)
|
|
fcmp(__LINE__, gt)
|
|
alu(__LINE__, ne)
|
|
fcmp(__LINE__, ne)
|
|
fcmp(__LINE__, unlt)
|
|
fcmp(__LINE__, unle)
|
|
fcmp(__LINE__, uneq)
|
|
fcmp(__LINE__, unge)
|
|
fcmp(__LINE__, ungt)
|
|
fcmp(__LINE__, ltgt)
|
|
fcmp(__LINE__, ord)
|
|
fcmp(__LINE__, unord)
|
|
mvi(__LINE__)
|
|
mvf(__LINE__)
|
|
uni(__LINE__, extr_c)
|
|
uni(__LINE__, extr_uc)
|
|
uni(__LINE__, extr_s)
|
|
uni(__LINE__, extr_us)
|
|
#if __WORDSIZE == 64
|
|
uni(__LINE__, extr_ui)
|
|
#endif
|
|
uni(__LINE__, htonr)
|
|
f2f(__LINE__, _f, extr_d_f)
|
|
f2f(__LINE__, _d, extr_f_d)
|
|
f2i(__LINE__, truncr)
|
|
i2f(__LINE__, extr)
|
|
ldi(__LINE__)
|
|
ldf(__LINE__)
|
|
sti(__LINE__)
|
|
stf(__LINE__)
|
|
jmpi(__LINE__, lt, , 0, 1)
|
|
jmpi(__LINE__, lt, _u, 0, 1)
|
|
jmpf(__LINE__, lt, 0, 1)
|
|
jmpi(__LINE__, le, , 1, 1)
|
|
jmpi(__LINE__, le, _u, 1, 1)
|
|
jmpf(__LINE__, le, 1, 1)
|
|
jmpi(__LINE__, eq, , -1, -1)
|
|
jmpf(__LINE__, eq, -1, -1)
|
|
jmpi(__LINE__, ge, , 2, 2)
|
|
jmpi(__LINE__, ge, _u, 2, 2)
|
|
jmpf(__LINE__, ge, 2, 2)
|
|
jmpi(__LINE__, gt, , 2, 1)
|
|
jmpi(__LINE__, gt, _u, 2, 1)
|
|
jmpf(__LINE__, gt, 2, 1)
|
|
jmpi(__LINE__, ne, , 3, 2)
|
|
jmpf(__LINE__, ne, 3, 2)
|
|
jmpi(__LINE__, ms, , 1, 1)
|
|
jmpi(__LINE__, mc, , 1, 2)
|
|
#if __WORDSIZE == 32
|
|
# define ix7f 0x7fffffff
|
|
# define ix80 0x80000000
|
|
# define ixff 0xffffffff
|
|
#else
|
|
# define ix7f 0x7fffffffffffffff
|
|
# define ix80 0x8000000000000000
|
|
# define ixff 0xffffffffffffffff
|
|
#endif
|
|
jmpi(__LINE__, oadd, , ix7f, 1)
|
|
jmpi(__LINE__, oadd, _u, ixff, 1)
|
|
jmpi(__LINE__, xadd, , ix80, 1)
|
|
jmpi(__LINE__, xadd, _u, ix7f, 1)
|
|
jmpi(__LINE__, osub, , ix80, 1)
|
|
jmpi(__LINE__, osub, _u, 0, 1)
|
|
jmpi(__LINE__, xsub, , ix7f, 1)
|
|
jmpi(__LINE__, xsub, _u, ix80, 1)
|
|
jmpf(__LINE__, unlt, 0, 1)
|
|
jmpf(__LINE__, unle, 1, 1)
|
|
jmpf(__LINE__, uneq, 2, 2)
|
|
jmpf(__LINE__, unge, 3, 3)
|
|
jmpf(__LINE__, ungt, 4, 3)
|
|
jmpf(__LINE__, ltgt, 5, 4)
|
|
jmpf(__LINE__, ord, 0, 0)
|
|
jmpf(__LINE__, unord, 0, $(0.0 / 0.0))
|
|
|
|
prepare
|
|
pushargi ok
|
|
ellipsis
|
|
finishi @printf
|
|
|
|
ret
|
|
epilog
|