mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-22 03:30:22 +02:00
Add new ldst variant test cases to check base/index register clobber.
* check/ldstr-c.ok, check/ldstr-c.tst, check/ldstxi-c.ok, check/ldstxi-c.tst, check/ldstxr-c.ok, check/ldstxr-c.tst: New test case files testing load clobbering the base and/or index register; * check/ldst.inc: New file with common definition for all the ldst* test cases. check/Makefile.am, check/ldsti.tst, check/ldstr.tst, check/ldstxi.tst, check/ldstxr.tst: Update for new common definitions file and new register clobber ldst tests.
This commit is contained in:
pcpa
parent
ee0fab1dae
commit
e7e55966cb
13 changed files with 682 additions and 426 deletions
14
ChangeLog
14
ChangeLog
|
|
@ -1,3 +1,17 @@
|
||||||
|
2012-12-05 Paulo Andrade <pcpa@gnu.org>
|
||||||
|
|
||||||
|
* check/ldstr-c.ok, check/ldstr-c.tst, check/ldstxi-c.ok,
|
||||||
|
check/ldstxi-c.tst, check/ldstxr-c.ok, check/ldstxr-c.tst:
|
||||||
|
New test case files testing load clobbering the base and/or
|
||||||
|
index register;
|
||||||
|
|
||||||
|
* check/ldst.inc: New file with common definition for all the
|
||||||
|
ldst* test cases.
|
||||||
|
|
||||||
|
check/Makefile.am, check/ldsti.tst, check/ldstr.tst,
|
||||||
|
check/ldstxi.tst, check/ldstxr.tst: Update for new common
|
||||||
|
definitions file and new register clobber ldst tests.
|
||||||
|
|
||||||
2012-12-05 Paulo Andrade <pcpa@gnu.org>
|
2012-12-05 Paulo Andrade <pcpa@gnu.org>
|
||||||
|
|
||||||
* lib/jit_mips-fpu.c: Correct wrong register order in stxr_{f,d}
|
* lib/jit_mips-fpu.c: Correct wrong register order in stxr_{f,d}
|
||||||
|
|
|
||||||
|
|
@ -32,14 +32,22 @@ EXTRA_DIST = \
|
||||||
divi.tst divi.ok \
|
divi.tst divi.ok \
|
||||||
fib.tst fib.ok \
|
fib.tst fib.ok \
|
||||||
rpn.tst rpn.ok \
|
rpn.tst rpn.ok \
|
||||||
|
ldst.inc \
|
||||||
ldstr.tst ldstr.ok \
|
ldstr.tst ldstr.ok \
|
||||||
ldsti.tst ldsti.ok \
|
ldsti.tst ldsti.ok \
|
||||||
ldstxi.tst ldstxi.ok \
|
|
||||||
ldstxr.tst ldstxr.ok \
|
ldstxr.tst ldstxr.ok \
|
||||||
|
ldstxi.tst ldstxi.ok \
|
||||||
|
ldstr-c.tst ldstr-c.ok \
|
||||||
|
ldstxr-c.tst ldstxr-c.ok \
|
||||||
|
ldstxi-c.tst ldstxi-c.ok \
|
||||||
check.sh run-test \
|
check.sh run-test \
|
||||||
all.tst
|
all.tst
|
||||||
|
|
||||||
TESTS = 3to2 add allocai bp divi fib rpn ldstr ldsti ldstxi ldstxr
|
TESTS = 3to2 add allocai \
|
||||||
|
bp divi fib rpn \
|
||||||
|
ldstr ldsti \
|
||||||
|
ldstxr ldstxi \
|
||||||
|
ldstr-c ldstxr-c ldstxi-c
|
||||||
|
|
||||||
CLEANFILES = $(TESTS)
|
CLEANFILES = $(TESTS)
|
||||||
|
|
||||||
|
|
|
||||||
101
check/ldst.inc
Normal file
101
check/ldst.inc
Normal file
|
|
@ -0,0 +1,101 @@
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
# define L0 0x8000000000000001
|
||||||
|
# define LL0 L0
|
||||||
|
# define LC0 0xffffffffffffff81
|
||||||
|
# define LS0 0xffffffffffff8001
|
||||||
|
# define LI0 0xffffffff80000001
|
||||||
|
# define L1 0x8000000000000000
|
||||||
|
# define LL1 L1
|
||||||
|
# define LC1 0xffffffffffffff80
|
||||||
|
# define LS1 0xffffffffffff8000
|
||||||
|
# define LI1 0xffffffff80000000
|
||||||
|
# define L2 0x7fffffffffffffff
|
||||||
|
# define LL2 L2
|
||||||
|
# define LC2 0x000000000000007f
|
||||||
|
# define LS2 0x0000000000007fff
|
||||||
|
# define LI2 0x000000007fffffff
|
||||||
|
# define L3 0xffffffffffffffff
|
||||||
|
# define LL3 L3
|
||||||
|
# define LC3 0xffffffffffffffff
|
||||||
|
# define LS3 0xffffffffffffffff
|
||||||
|
# define LI3 0xffffffffffffffff
|
||||||
|
# define XC LC0
|
||||||
|
# define XS LS0
|
||||||
|
# define XI LI0
|
||||||
|
#else
|
||||||
|
# define XC IC0
|
||||||
|
# define XS IS0
|
||||||
|
# define XI II0
|
||||||
|
#endif
|
||||||
|
#define I0 0x80000001
|
||||||
|
#define II0 I0
|
||||||
|
#define IC0 0xffffff81
|
||||||
|
#define IS0 0xffff8001
|
||||||
|
#define I1 0x80000000
|
||||||
|
#define II1 I1
|
||||||
|
#define IC1 0xffffff80
|
||||||
|
#define IS1 0xffff8000
|
||||||
|
#define I2 0x7fffffff
|
||||||
|
#define II2 I2
|
||||||
|
#define IC2 0x0000007f
|
||||||
|
#define IS2 0x00007fff
|
||||||
|
#define I3 0xffffffff
|
||||||
|
#define II3 I3
|
||||||
|
#define IC3 0xffffffff
|
||||||
|
#define IS3 0xffffffff
|
||||||
|
#define S0 0x8001
|
||||||
|
#define S1 0x8000
|
||||||
|
#define S2 0x7fff
|
||||||
|
#define S3 0xffff
|
||||||
|
#define C0 0x81
|
||||||
|
#define C1 0x80
|
||||||
|
#define C2 0x7f
|
||||||
|
#define C3 0xff
|
||||||
|
#define F0 0.25
|
||||||
|
#define F1 0.75
|
||||||
|
#define F2 -0.25
|
||||||
|
#define F3 -0.75
|
||||||
|
#define D0 0.25
|
||||||
|
#define D1 0.75
|
||||||
|
#define D2 -0.25
|
||||||
|
#define D3 -0.75
|
||||||
|
|
||||||
|
.data 512
|
||||||
|
ok:
|
||||||
|
.c "ok\n"
|
||||||
|
t0:
|
||||||
|
c0:
|
||||||
|
.c 0
|
||||||
|
uc0:
|
||||||
|
.c 0
|
||||||
|
s0:
|
||||||
|
.s 0
|
||||||
|
us0:
|
||||||
|
.s 0
|
||||||
|
.align 4
|
||||||
|
i0:
|
||||||
|
.i 0
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
ui0:
|
||||||
|
.i 0
|
||||||
|
.align 8
|
||||||
|
l0:
|
||||||
|
.l 0
|
||||||
|
#endif
|
||||||
|
f0:
|
||||||
|
.f 0
|
||||||
|
.align 8
|
||||||
|
d0:
|
||||||
|
.d 0
|
||||||
|
|
||||||
|
. $($offc = c0 - t0)
|
||||||
|
. $($offuc = uc0 - t0)
|
||||||
|
. $($offs = s0 - t0)
|
||||||
|
. $($offus = us0 - t0)
|
||||||
|
. $($offi = i0 - t0)
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
. $($offui = ui0 - t0)
|
||||||
|
. $($offl = l0 - t0)
|
||||||
|
#endif
|
||||||
|
. $($offf = f0 - t0)
|
||||||
|
. $($offd = d0 - t0)
|
||||||
101
check/ldsti.tst
101
check/ldsti.tst
|
|
@ -1,85 +1,4 @@
|
||||||
#if __WORDSIZE == 64
|
#include "ldst.inc"
|
||||||
# define L0 0x8000000000000001
|
|
||||||
# define LL0 L0
|
|
||||||
# define LC0 0xffffffffffffff81
|
|
||||||
# define LS0 0xffffffffffff8001
|
|
||||||
# define LI0 0xffffffff80000001
|
|
||||||
# define L1 0x8000000000000000
|
|
||||||
# define LL1 L1
|
|
||||||
# define LC1 0xffffffffffffff80
|
|
||||||
# define LS1 0xffffffffffff8000
|
|
||||||
# define LI1 0xffffffff80000000
|
|
||||||
# define L2 0x7fffffffffffffff
|
|
||||||
# define LL2 L2
|
|
||||||
# define LC2 0x000000000000007f
|
|
||||||
# define LS2 0x0000000000007fff
|
|
||||||
# define LI2 0x000000007fffffff
|
|
||||||
# define L3 0xffffffffffffffff
|
|
||||||
# define LL3 L3
|
|
||||||
# define LC3 0xffffffffffffffff
|
|
||||||
# define LS3 0xffffffffffffffff
|
|
||||||
# define LI3 0xffffffffffffffff
|
|
||||||
#endif
|
|
||||||
#define I0 0x80000001
|
|
||||||
#define II0 I0
|
|
||||||
#define IC0 0xffffff81
|
|
||||||
#define IS0 0xffff8001
|
|
||||||
#define I1 0x80000000
|
|
||||||
#define II1 I1
|
|
||||||
#define IC1 0xffffff80
|
|
||||||
#define IS1 0xffff8000
|
|
||||||
#define I2 0x7fffffff
|
|
||||||
#define II2 I2
|
|
||||||
#define IC2 0x0000007f
|
|
||||||
#define IS2 0x00007fff
|
|
||||||
#define I3 0xffffffff
|
|
||||||
#define II3 I3
|
|
||||||
#define IC3 0xffffffff
|
|
||||||
#define IS3 0xffffffff
|
|
||||||
#define S0 0x8001
|
|
||||||
#define S1 0x8000
|
|
||||||
#define S2 0x7fff
|
|
||||||
#define S3 0xffff
|
|
||||||
#define C0 0x81
|
|
||||||
#define C1 0x80
|
|
||||||
#define C2 0x7f
|
|
||||||
#define C3 0xff
|
|
||||||
#define F0 0.25
|
|
||||||
#define F1 0.75
|
|
||||||
#define F2 -0.25
|
|
||||||
#define F3 -0.75
|
|
||||||
#define D0 0.25
|
|
||||||
#define D1 0.75
|
|
||||||
#define D2 -0.25
|
|
||||||
#define D3 -0.75
|
|
||||||
|
|
||||||
.data 512
|
|
||||||
ok:
|
|
||||||
.c "ok\n"
|
|
||||||
t0:
|
|
||||||
c0:
|
|
||||||
.c 0
|
|
||||||
uc0:
|
|
||||||
.c 0
|
|
||||||
s0:
|
|
||||||
.s 0
|
|
||||||
us0:
|
|
||||||
.s 0
|
|
||||||
.align 4
|
|
||||||
i0:
|
|
||||||
.i 0
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
ui0:
|
|
||||||
.i 0
|
|
||||||
.align 8
|
|
||||||
l0:
|
|
||||||
.l 0
|
|
||||||
#endif
|
|
||||||
f0:
|
|
||||||
.f 0
|
|
||||||
.align 8
|
|
||||||
d0:
|
|
||||||
.d 0
|
|
||||||
|
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
# define LDSTL(N, R0) \
|
# define LDSTL(N, R0) \
|
||||||
|
|
@ -182,11 +101,7 @@ main:
|
||||||
movi_d %f0 0.25
|
movi_d %f0 0.25
|
||||||
sti_d d0 %f0
|
sti_d d0 %f0
|
||||||
ldi_c %r1 c0
|
ldi_c %r1 c0
|
||||||
#if __WORDSIZE == 32
|
beqi Lc %r1 XC
|
||||||
beqi Lc %r1 0xffffff81
|
|
||||||
#else
|
|
||||||
beqi Lc %r1 0xffffffffffffff81
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Lc:
|
Lc:
|
||||||
ldi_uc %r1 uc0
|
ldi_uc %r1 uc0
|
||||||
|
|
@ -194,11 +109,7 @@ Lc:
|
||||||
calli @abort
|
calli @abort
|
||||||
Luc:
|
Luc:
|
||||||
ldi_s %r1 s0
|
ldi_s %r1 s0
|
||||||
#if __WORDSIZE == 32
|
beqi Ls %r1 XS
|
||||||
beqi Ls %r1 0xffff8001
|
|
||||||
#else
|
|
||||||
beqi Ls %r1 0xffffffffffff8001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Ls:
|
Ls:
|
||||||
ldi_us %r1 us0
|
ldi_us %r1 us0
|
||||||
|
|
@ -206,11 +117,7 @@ Ls:
|
||||||
calli @abort
|
calli @abort
|
||||||
Lus:
|
Lus:
|
||||||
ldi_i %r1 i0
|
ldi_i %r1 i0
|
||||||
#if __WORDSIZE == 32
|
beqi Li %r1 XI
|
||||||
beqi Li %r1 0x80000001
|
|
||||||
#else
|
|
||||||
beqi Li %r1 0xffffffff80000001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Li:
|
Li:
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
|
|
|
||||||
1
check/ldstr-c.ok
Normal file
1
check/ldstr-c.ok
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
ok
|
||||||
157
check/ldstr-c.tst
Normal file
157
check/ldstr-c.tst
Normal file
|
|
@ -0,0 +1,157 @@
|
||||||
|
#include "ldst.inc"
|
||||||
|
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
# define LDSTL(N, R0, R1) \
|
||||||
|
movi %R0 $(t0 + $offui) \
|
||||||
|
str_i %R0 %R1 \
|
||||||
|
movi %R0 $(t0 + $offl) \
|
||||||
|
movi %R1 L##N \
|
||||||
|
str_l %R0 %R1
|
||||||
|
|
||||||
|
# define SI(C, N, x, X, R0) \
|
||||||
|
movi %R0 $(t0 + $off##x) \
|
||||||
|
ldr_##x %R0 %R0 \
|
||||||
|
beqi L##x##C %R0 L##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1) \
|
||||||
|
UI(C, N, i, I, R0) \
|
||||||
|
SI(C, N, l, L, R0)
|
||||||
|
#else
|
||||||
|
# define LDSTL(C, R0, R1)
|
||||||
|
# define SI(C, N, x, X, R0) \
|
||||||
|
movi %R0 $(t0 + $off##x) \
|
||||||
|
ldr_##x %R0 %R0 \
|
||||||
|
beqi L##x##C %R0 I##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1)
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define UI(C, N, x, X, R0) \
|
||||||
|
movi %R0 $(t0 + $offu##x) \
|
||||||
|
ldr_u##x %R0 %R0 \
|
||||||
|
beqi Lu##x##C %R0 X##N \
|
||||||
|
calli @abort \
|
||||||
|
Lu##x##C:
|
||||||
|
|
||||||
|
#define LDST1(X, N, R0, R1) \
|
||||||
|
movi %R0 $(t0 + $offc) \
|
||||||
|
movi %R1 C##N \
|
||||||
|
str_c %R0 %R1 \
|
||||||
|
movi %R0 $(t0 + $offuc) \
|
||||||
|
str_c %R0 %R1 \
|
||||||
|
movi %R0 $(t0 + $offs) \
|
||||||
|
movi %R1 S##N \
|
||||||
|
str_s %R0 %R1 \
|
||||||
|
movi %R0 $(t0 + $offus) \
|
||||||
|
str_s %R0 %R1 \
|
||||||
|
movi %R0 $(t0 + $offi) \
|
||||||
|
movi %R1 I##N \
|
||||||
|
str_i %R0 %R1 \
|
||||||
|
LDSTL(N, R0, R1) \
|
||||||
|
movi %R0 $(t0 + $offf) \
|
||||||
|
SI(X, N, c, C, R0) \
|
||||||
|
UI(X, N, c, C, R0) \
|
||||||
|
SI(X, N, s, S, R0) \
|
||||||
|
UI(X, N, s, S, R0) \
|
||||||
|
SI(X, N, i, I, R0) \
|
||||||
|
LDRL(X, N, R0, R1) \
|
||||||
|
|
||||||
|
#define LDST0(R0, R1) \
|
||||||
|
LDST1(0_##R0##_##R1, 0, R0, R1) \
|
||||||
|
LDST1(1_##R0##_##R1, 1, R0, R1) \
|
||||||
|
LDST1(2_##R0##_##R1, 2, R0, R1) \
|
||||||
|
LDST1(3_##R0##_##R1, 3, R0, R1)
|
||||||
|
|
||||||
|
#define LDST(V0, V1, V2, R0, R1, R2) \
|
||||||
|
LDST0(V0, V1) \
|
||||||
|
LDST0(V0, V2) \
|
||||||
|
LDST0(V0, R0) \
|
||||||
|
LDST0(V0, R1) \
|
||||||
|
LDST0(V0, R2) \
|
||||||
|
LDST0(V1, V0) \
|
||||||
|
LDST0(V1, V2) \
|
||||||
|
LDST0(V1, R0) \
|
||||||
|
LDST0(V1, R1) \
|
||||||
|
LDST0(V1, R2) \
|
||||||
|
LDST0(V2, R0) \
|
||||||
|
LDST0(V2, R1) \
|
||||||
|
LDST0(V2, R2)
|
||||||
|
|
||||||
|
.code
|
||||||
|
jmpi main
|
||||||
|
|
||||||
|
main:
|
||||||
|
prolog
|
||||||
|
|
||||||
|
/* Simple test to simplify validating encodings before
|
||||||
|
* brute force tests */
|
||||||
|
movi %r0 $(t0 + $offc)
|
||||||
|
movi %r1 0x81
|
||||||
|
str_c %r0 %r1
|
||||||
|
movi %r0 $(t0 + $offuc)
|
||||||
|
str_c %r0 %r1
|
||||||
|
movi %r0 $(t0 + $offs)
|
||||||
|
movi %r1 0x8001
|
||||||
|
str_s %r0 %r1
|
||||||
|
movi %r0 $(t0 + $offus)
|
||||||
|
str_s %r0 %r1
|
||||||
|
movi %r0 $(t0 + $offi)
|
||||||
|
movi %r1 0x80000001
|
||||||
|
str_i %r0 %r1
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
movi %r0 $(t0 + $offui)
|
||||||
|
str_i %r0 %r1
|
||||||
|
movi %r0 $(t0 + $offl)
|
||||||
|
movi %r1 0x8000000000000001
|
||||||
|
str_l %r0 %r1
|
||||||
|
#endif
|
||||||
|
movi %r0 $(t0 + $offc)
|
||||||
|
ldr_c %r0 %r0
|
||||||
|
beqi Lc %r0 XC
|
||||||
|
calli @abort
|
||||||
|
Lc:
|
||||||
|
movi %r0 $(t0 + $offuc)
|
||||||
|
ldr_uc %r0 %r0
|
||||||
|
beqi Luc %r0 0x81
|
||||||
|
calli @abort
|
||||||
|
Luc:
|
||||||
|
movi %r0 $(t0 + $offs)
|
||||||
|
ldr_s %r0 %r0
|
||||||
|
beqi Ls %r0 XS
|
||||||
|
calli @abort
|
||||||
|
Ls:
|
||||||
|
movi %r0 $(t0 + $offus)
|
||||||
|
ldr_us %r0 %r0
|
||||||
|
beqi Lus %r0 0x8001
|
||||||
|
calli @abort
|
||||||
|
Lus:
|
||||||
|
movi %r0 $(t0 + $offi)
|
||||||
|
ldr_i %r0 %r0
|
||||||
|
beqi Li %r0 XI
|
||||||
|
calli @abort
|
||||||
|
Li:
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
movi %r0 $(t0 + $offui)
|
||||||
|
ldr_ui %r0 %r0
|
||||||
|
beqi Lui %r0 0x80000001
|
||||||
|
calli @abort
|
||||||
|
Lui:
|
||||||
|
movi %r0 $(t0 + $offl)
|
||||||
|
ldr_l %r0 %r0
|
||||||
|
beqi Ll %r0 0x8000000000000001
|
||||||
|
calli @abort
|
||||||
|
Ll:
|
||||||
|
#endif
|
||||||
|
|
||||||
|
LDST(v0, v1, v2, r0, r1, r2)
|
||||||
|
// just to know did not abort
|
||||||
|
prepare 1
|
||||||
|
pushargi ok
|
||||||
|
finishi @printf
|
||||||
|
ret
|
||||||
|
epilog
|
||||||
113
check/ldstr.tst
113
check/ldstr.tst
|
|
@ -1,97 +1,4 @@
|
||||||
#if __WORDSIZE == 64
|
#include "ldst.inc"
|
||||||
# define L0 0x8000000000000001
|
|
||||||
# define LL0 L0
|
|
||||||
# define LC0 0xffffffffffffff81
|
|
||||||
# define LS0 0xffffffffffff8001
|
|
||||||
# define LI0 0xffffffff80000001
|
|
||||||
# define L1 0x8000000000000000
|
|
||||||
# define LL1 L1
|
|
||||||
# define LC1 0xffffffffffffff80
|
|
||||||
# define LS1 0xffffffffffff8000
|
|
||||||
# define LI1 0xffffffff80000000
|
|
||||||
# define L2 0x7fffffffffffffff
|
|
||||||
# define LL2 L2
|
|
||||||
# define LC2 0x000000000000007f
|
|
||||||
# define LS2 0x0000000000007fff
|
|
||||||
# define LI2 0x000000007fffffff
|
|
||||||
# define L3 0xffffffffffffffff
|
|
||||||
# define LL3 L3
|
|
||||||
# define LC3 0xffffffffffffffff
|
|
||||||
# define LS3 0xffffffffffffffff
|
|
||||||
# define LI3 0xffffffffffffffff
|
|
||||||
#endif
|
|
||||||
#define I0 0x80000001
|
|
||||||
#define II0 I0
|
|
||||||
#define IC0 0xffffff81
|
|
||||||
#define IS0 0xffff8001
|
|
||||||
#define I1 0x80000000
|
|
||||||
#define II1 I1
|
|
||||||
#define IC1 0xffffff80
|
|
||||||
#define IS1 0xffff8000
|
|
||||||
#define I2 0x7fffffff
|
|
||||||
#define II2 I2
|
|
||||||
#define IC2 0x0000007f
|
|
||||||
#define IS2 0x00007fff
|
|
||||||
#define I3 0xffffffff
|
|
||||||
#define II3 I3
|
|
||||||
#define IC3 0xffffffff
|
|
||||||
#define IS3 0xffffffff
|
|
||||||
#define S0 0x8001
|
|
||||||
#define S1 0x8000
|
|
||||||
#define S2 0x7fff
|
|
||||||
#define S3 0xffff
|
|
||||||
#define C0 0x81
|
|
||||||
#define C1 0x80
|
|
||||||
#define C2 0x7f
|
|
||||||
#define C3 0xff
|
|
||||||
#define F0 0.25
|
|
||||||
#define F1 0.75
|
|
||||||
#define F2 -0.25
|
|
||||||
#define F3 -0.75
|
|
||||||
#define D0 0.25
|
|
||||||
#define D1 0.75
|
|
||||||
#define D2 -0.25
|
|
||||||
#define D3 -0.75
|
|
||||||
|
|
||||||
.data 512
|
|
||||||
ok:
|
|
||||||
.c "ok\n"
|
|
||||||
t0:
|
|
||||||
c0:
|
|
||||||
.c 0
|
|
||||||
uc0:
|
|
||||||
.c 0
|
|
||||||
s0:
|
|
||||||
.s 0
|
|
||||||
us0:
|
|
||||||
.s 0
|
|
||||||
.align 4
|
|
||||||
i0:
|
|
||||||
.i 0
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
ui0:
|
|
||||||
.i 0
|
|
||||||
.align 8
|
|
||||||
l0:
|
|
||||||
.l 0
|
|
||||||
#endif
|
|
||||||
f0:
|
|
||||||
.f 0
|
|
||||||
.align 8
|
|
||||||
d0:
|
|
||||||
.d 0
|
|
||||||
|
|
||||||
. $($offc = c0 - t0)
|
|
||||||
. $($offuc = uc0 - t0)
|
|
||||||
. $($offs = s0 - t0)
|
|
||||||
. $($offus = us0 - t0)
|
|
||||||
. $($offi = i0 - t0)
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
. $($offui = ui0 - t0)
|
|
||||||
. $($offl = l0 - t0)
|
|
||||||
#endif
|
|
||||||
. $($offf = f0 - t0)
|
|
||||||
. $($offd = d0 - t0)
|
|
||||||
|
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
# define LDSTL(N, R0, R1) \
|
# define LDSTL(N, R0, R1) \
|
||||||
|
|
@ -223,11 +130,7 @@ main:
|
||||||
str_d %r0 %f0
|
str_d %r0 %f0
|
||||||
movi %r0 $(t0 + $offc)
|
movi %r0 $(t0 + $offc)
|
||||||
ldr_c %r1 %r0
|
ldr_c %r1 %r0
|
||||||
#if __WORDSIZE == 32
|
beqi Lc %r1 XC
|
||||||
beqi Lc %r1 0xffffff81
|
|
||||||
#else
|
|
||||||
beqi Lc %r1 0xffffffffffffff81
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Lc:
|
Lc:
|
||||||
movi %r0 $(t0 + $offuc)
|
movi %r0 $(t0 + $offuc)
|
||||||
|
|
@ -237,11 +140,7 @@ Lc:
|
||||||
Luc:
|
Luc:
|
||||||
movi %r0 $(t0 + $offs)
|
movi %r0 $(t0 + $offs)
|
||||||
ldr_s %r1 %r0
|
ldr_s %r1 %r0
|
||||||
#if __WORDSIZE == 32
|
beqi Ls %r1 XS
|
||||||
beqi Ls %r1 0xffff8001
|
|
||||||
#else
|
|
||||||
beqi Ls %r1 0xffffffffffff8001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Ls:
|
Ls:
|
||||||
movi %r0 $(t0 + $offus)
|
movi %r0 $(t0 + $offus)
|
||||||
|
|
@ -251,11 +150,7 @@ Ls:
|
||||||
Lus:
|
Lus:
|
||||||
movi %r0 $(t0 + $offi)
|
movi %r0 $(t0 + $offi)
|
||||||
ldr_i %r1 %r0
|
ldr_i %r1 %r0
|
||||||
#if __WORDSIZE == 32
|
beqi Li %r1 XI
|
||||||
beqi Li %r1 0x80000001
|
|
||||||
#else
|
|
||||||
beqi Li %r1 0xffffffff80000001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Li:
|
Li:
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
|
|
|
||||||
1
check/ldstxi-c.ok
Normal file
1
check/ldstxi-c.ok
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
ok
|
||||||
160
check/ldstxi-c.tst
Normal file
160
check/ldstxi-c.tst
Normal file
|
|
@ -0,0 +1,160 @@
|
||||||
|
#include "ldst.inc"
|
||||||
|
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
# define LDSTL(N, R0, R1) \
|
||||||
|
stxi_i $offui %R0 %R1 \
|
||||||
|
movi %R1 L##N \
|
||||||
|
stxi_l $offl %R0 %R1
|
||||||
|
|
||||||
|
# define SI(C, N, x, X, R0) \
|
||||||
|
ldxi_##x %R0 %R0 $off##x \
|
||||||
|
beqi L##x##C %R0 L##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1) \
|
||||||
|
UI(C, N, i, I, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(C, N, l, L, R0)
|
||||||
|
#else
|
||||||
|
# define LDSTL(C, R0, R1)
|
||||||
|
# define SI(C, N, x, X, R0) \
|
||||||
|
ldxi_##x %R0 %R0 $off##x \
|
||||||
|
beqi L##x##C %R0 I##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1)
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define UI(C, N, x, X, R0) \
|
||||||
|
ldxi_u##x %R0 %R0 $offu##x \
|
||||||
|
beqi Lu##x##C %R0 X##N \
|
||||||
|
calli @abort \
|
||||||
|
Lu##x##C:
|
||||||
|
|
||||||
|
#define LDST1(X, N, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
movi %R1 C##N \
|
||||||
|
stxi_c $offc %R0 %R1 \
|
||||||
|
stxi_c $offuc %R0 %R1 \
|
||||||
|
movi %R1 S##N \
|
||||||
|
stxi_s $offs %R0 %R1 \
|
||||||
|
stxi_s $offus %R0 %R1 \
|
||||||
|
movi %R1 I##N \
|
||||||
|
stxi_i $offi %R0 %R1 \
|
||||||
|
LDSTL(N, R0, R1) \
|
||||||
|
SI(X, N, c, C, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
UI(X, N, c, C, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(X, N, s, S, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
UI(X, N, s, S, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(X, N, i, I, R0) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
LDRL(X, N, R0, R1) \
|
||||||
|
|
||||||
|
#define LDST0(R0, R1) \
|
||||||
|
LDST1(0_##R0##_##R1, 0, R0, R1) \
|
||||||
|
LDST1(1_##R0##_##R1, 1, R0, R1) \
|
||||||
|
LDST1(2_##R0##_##R1, 2, R0, R1) \
|
||||||
|
LDST1(3_##R0##_##R1, 3, R0, R1)
|
||||||
|
|
||||||
|
#define LDST(V0, V1, V2, R0, R1, R2) \
|
||||||
|
LDST0(V0, V1) \
|
||||||
|
LDST0(V0, V2) \
|
||||||
|
LDST0(V0, R0) \
|
||||||
|
LDST0(V0, R1) \
|
||||||
|
LDST0(V0, R2) \
|
||||||
|
LDST0(V1, V2) \
|
||||||
|
LDST0(V1, R0) \
|
||||||
|
LDST0(V1, R1) \
|
||||||
|
LDST0(V1, R2) \
|
||||||
|
LDST0(V2, R0) \
|
||||||
|
LDST0(V2, R1) \
|
||||||
|
LDST0(V2, R2) \
|
||||||
|
LDST0(R0, V0) \
|
||||||
|
LDST0(R0, V1) \
|
||||||
|
LDST0(R0, V2) \
|
||||||
|
LDST0(R0, R1) \
|
||||||
|
LDST0(R0, R2) \
|
||||||
|
LDST0(R1, V0) \
|
||||||
|
LDST0(R1, V1) \
|
||||||
|
LDST0(R1, V2) \
|
||||||
|
LDST0(R1, R0) \
|
||||||
|
LDST0(R1, R2) \
|
||||||
|
LDST0(R2, V0) \
|
||||||
|
LDST0(R2, V1) \
|
||||||
|
LDST0(R2, V2) \
|
||||||
|
LDST0(R2, R0) \
|
||||||
|
LDST0(R2, R1)
|
||||||
|
|
||||||
|
.code
|
||||||
|
jmpi main
|
||||||
|
|
||||||
|
main:
|
||||||
|
prolog
|
||||||
|
|
||||||
|
/* Simple test to simplify validating encodings before
|
||||||
|
* brute force tests */
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 0x81
|
||||||
|
stxi_c $offc %r0 %r1
|
||||||
|
stxi_c $offuc %r0 %r1
|
||||||
|
movi %r1 0x8001
|
||||||
|
stxi_s $offs %r0 %r1
|
||||||
|
stxi_s $offus %r0 %r1
|
||||||
|
movi %r1 0x80000001
|
||||||
|
stxi_i $offi %r0 %r1
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
stxi_i $offui %r0 %r1
|
||||||
|
movi %r1 0x8000000000000001
|
||||||
|
stxi_l $offl %r0 %r1
|
||||||
|
#endif
|
||||||
|
ldxi_c %r0 %r0 $offc
|
||||||
|
beqi Lc %r0 XC
|
||||||
|
calli @abort
|
||||||
|
Lc:
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_uc %r0 %r0 $offuc
|
||||||
|
beqi Luc %r0 0x81
|
||||||
|
calli @abort
|
||||||
|
Luc:
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_s %r0 %r0 $offs
|
||||||
|
beqi Ls %r0 XS
|
||||||
|
calli @abort
|
||||||
|
Ls:
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_us %r0 %r0 $offus
|
||||||
|
beqi Lus %r0 0x8001
|
||||||
|
calli @abort
|
||||||
|
Lus:
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_i %r0 %r0 $offi
|
||||||
|
beqi Li %r0 XI
|
||||||
|
calli @abort
|
||||||
|
Li:
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_ui %r0 %r0 $offui
|
||||||
|
beqi Lui %r0 0x80000001
|
||||||
|
calli @abort
|
||||||
|
Lui:
|
||||||
|
movi %r0 t0
|
||||||
|
ldxi_l %r0 %r0 $offl
|
||||||
|
beqi Ll %r0 0x8000000000000001
|
||||||
|
calli @abort
|
||||||
|
Ll:
|
||||||
|
#endif
|
||||||
|
|
||||||
|
LDST(v0, v1, v2, r0, r1, r2)
|
||||||
|
// just to know did not abort
|
||||||
|
prepare 1
|
||||||
|
pushargi ok
|
||||||
|
finishi @printf
|
||||||
|
ret
|
||||||
|
epilog
|
||||||
113
check/ldstxi.tst
113
check/ldstxi.tst
|
|
@ -1,97 +1,4 @@
|
||||||
#if __WORDSIZE == 64
|
#include "ldst.inc"
|
||||||
# define L0 0x8000000000000001
|
|
||||||
# define LL0 L0
|
|
||||||
# define LC0 0xffffffffffffff81
|
|
||||||
# define LS0 0xffffffffffff8001
|
|
||||||
# define LI0 0xffffffff80000001
|
|
||||||
# define L1 0x8000000000000000
|
|
||||||
# define LL1 L1
|
|
||||||
# define LC1 0xffffffffffffff80
|
|
||||||
# define LS1 0xffffffffffff8000
|
|
||||||
# define LI1 0xffffffff80000000
|
|
||||||
# define L2 0x7fffffffffffffff
|
|
||||||
# define LL2 L2
|
|
||||||
# define LC2 0x000000000000007f
|
|
||||||
# define LS2 0x0000000000007fff
|
|
||||||
# define LI2 0x000000007fffffff
|
|
||||||
# define L3 0xffffffffffffffff
|
|
||||||
# define LL3 L3
|
|
||||||
# define LC3 0xffffffffffffffff
|
|
||||||
# define LS3 0xffffffffffffffff
|
|
||||||
# define LI3 0xffffffffffffffff
|
|
||||||
#endif
|
|
||||||
#define I0 0x80000001
|
|
||||||
#define II0 I0
|
|
||||||
#define IC0 0xffffff81
|
|
||||||
#define IS0 0xffff8001
|
|
||||||
#define I1 0x80000000
|
|
||||||
#define II1 I1
|
|
||||||
#define IC1 0xffffff80
|
|
||||||
#define IS1 0xffff8000
|
|
||||||
#define I2 0x7fffffff
|
|
||||||
#define II2 I2
|
|
||||||
#define IC2 0x0000007f
|
|
||||||
#define IS2 0x00007fff
|
|
||||||
#define I3 0xffffffff
|
|
||||||
#define II3 I3
|
|
||||||
#define IC3 0xffffffff
|
|
||||||
#define IS3 0xffffffff
|
|
||||||
#define S0 0x8001
|
|
||||||
#define S1 0x8000
|
|
||||||
#define S2 0x7fff
|
|
||||||
#define S3 0xffff
|
|
||||||
#define C0 0x81
|
|
||||||
#define C1 0x80
|
|
||||||
#define C2 0x7f
|
|
||||||
#define C3 0xff
|
|
||||||
#define F0 0.25
|
|
||||||
#define F1 0.75
|
|
||||||
#define F2 -0.25
|
|
||||||
#define F3 -0.75
|
|
||||||
#define D0 0.25
|
|
||||||
#define D1 0.75
|
|
||||||
#define D2 -0.25
|
|
||||||
#define D3 -0.75
|
|
||||||
|
|
||||||
.data 512
|
|
||||||
ok:
|
|
||||||
.c "ok\n"
|
|
||||||
t0:
|
|
||||||
c0:
|
|
||||||
.c 0
|
|
||||||
uc0:
|
|
||||||
.c 0
|
|
||||||
s0:
|
|
||||||
.s 0
|
|
||||||
us0:
|
|
||||||
.s 0
|
|
||||||
.align 4
|
|
||||||
i0:
|
|
||||||
.i 0
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
ui0:
|
|
||||||
.i 0
|
|
||||||
.align 8
|
|
||||||
l0:
|
|
||||||
.l 0
|
|
||||||
#endif
|
|
||||||
f0:
|
|
||||||
.f 0
|
|
||||||
.align 8
|
|
||||||
d0:
|
|
||||||
.d 0
|
|
||||||
|
|
||||||
. $($offc = c0 - t0)
|
|
||||||
. $($offuc = uc0 - t0)
|
|
||||||
. $($offs = s0 - t0)
|
|
||||||
. $($offus = us0 - t0)
|
|
||||||
. $($offi = i0 - t0)
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
. $($offui = ui0 - t0)
|
|
||||||
. $($offl = l0 - t0)
|
|
||||||
#endif
|
|
||||||
. $($offf = f0 - t0)
|
|
||||||
. $($offd = d0 - t0)
|
|
||||||
|
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
# define LDSTL(N, R0, R1) \
|
# define LDSTL(N, R0, R1) \
|
||||||
|
|
@ -202,11 +109,7 @@ main:
|
||||||
movi_d %f0 0.25
|
movi_d %f0 0.25
|
||||||
stxi_d $offd %r0 %f0
|
stxi_d $offd %r0 %f0
|
||||||
ldxi_c %r1 %r0 $offc
|
ldxi_c %r1 %r0 $offc
|
||||||
#if __WORDSIZE == 32
|
beqi Lc %r1 XC
|
||||||
beqi Lc %r1 0xffffff81
|
|
||||||
#else
|
|
||||||
beqi Lc %r1 0xffffffffffffff81
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Lc:
|
Lc:
|
||||||
ldxi_uc %r1 %r0 $offuc
|
ldxi_uc %r1 %r0 $offuc
|
||||||
|
|
@ -214,11 +117,7 @@ Lc:
|
||||||
calli @abort
|
calli @abort
|
||||||
Luc:
|
Luc:
|
||||||
ldxi_s %r1 %r0 $offs
|
ldxi_s %r1 %r0 $offs
|
||||||
#if __WORDSIZE == 32
|
beqi Ls %r1 XS
|
||||||
beqi Ls %r1 0xffff8001
|
|
||||||
#else
|
|
||||||
beqi Ls %r1 0xffffffffffff8001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Ls:
|
Ls:
|
||||||
ldxi_us %r1 %r0 $offus
|
ldxi_us %r1 %r0 $offus
|
||||||
|
|
@ -226,11 +125,7 @@ Ls:
|
||||||
calli @abort
|
calli @abort
|
||||||
Lus:
|
Lus:
|
||||||
ldxi_i %r1 %r0 $offi
|
ldxi_i %r1 %r0 $offi
|
||||||
#if __WORDSIZE == 32
|
beqi Li %r1 XI
|
||||||
beqi Li %r1 0x80000001
|
|
||||||
#else
|
|
||||||
beqi Li %r1 0xffffffff80000001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Li:
|
Li:
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
|
|
|
||||||
1
check/ldstxr-c.ok
Normal file
1
check/ldstxr-c.ok
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
ok
|
||||||
221
check/ldstxr-c.tst
Normal file
221
check/ldstxr-c.tst
Normal file
|
|
@ -0,0 +1,221 @@
|
||||||
|
#include "ldst.inc"
|
||||||
|
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
# define LDSTL(N, R0, R1, R2) \
|
||||||
|
movi %R2 $offui \
|
||||||
|
stxr_i %R2 %R0 %R1 \
|
||||||
|
movi %R1 L##N \
|
||||||
|
movi %R2 $offl \
|
||||||
|
stxr_l %R2 %R0 %R1
|
||||||
|
|
||||||
|
# define SI(C, N, x, X, R0, R1) \
|
||||||
|
movi %R1 $off##x \
|
||||||
|
ldxr_##x %R1 %R0 %R1 \
|
||||||
|
beqi L##x##C##0 %R1 L##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C##0: \
|
||||||
|
movi %R1 $off##x \
|
||||||
|
ldxr_##x %R0 %R0 %R1 \
|
||||||
|
beqi L##x##C##1 %R0 L##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C##1:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1, R2) \
|
||||||
|
UI(C, N, i, I, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(C, N, l, L, R0, R1)
|
||||||
|
#else
|
||||||
|
# define LDSTL(C, R0, R1, R2)
|
||||||
|
# define SI(C, N, x, X, R0, R1) \
|
||||||
|
movi %R1 $off##x \
|
||||||
|
ldxr_##x %R1 %R0 %R1 \
|
||||||
|
beqi L##x##C##0 %R1 I##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C##0: \
|
||||||
|
movi %R1 $off##x \
|
||||||
|
ldxr_##x %R0 %R0 %R1 \
|
||||||
|
beqi L##x##C##1 %R0 I##X##N \
|
||||||
|
calli @abort \
|
||||||
|
L##x##C##1:
|
||||||
|
|
||||||
|
# define LDRL(C, N, R0, R1, R2)
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define UI(C, N, x, X, R0, R1) \
|
||||||
|
movi %R1 $offu##x \
|
||||||
|
ldxr_u##x %R1 %R0 %R1 \
|
||||||
|
beqi Lu##x##C##0 %R1 X##N \
|
||||||
|
calli @abort \
|
||||||
|
Lu##x##C##0: \
|
||||||
|
movi %R1 $offu##x \
|
||||||
|
ldxr_u##x %R0 %R0 %R1 \
|
||||||
|
beqi Lu##x##C##1 %R0 X##N \
|
||||||
|
calli @abort \
|
||||||
|
Lu##x##C##1:
|
||||||
|
|
||||||
|
#define LDST1(X, N, R0, R1, R2) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
movi %R1 C##N \
|
||||||
|
movi %R2 $offc \
|
||||||
|
stxr_c %R2 %R0 %R1 \
|
||||||
|
movi %R2 $offuc \
|
||||||
|
stxr_c %R2 %R0 %R1 \
|
||||||
|
movi %R1 S##N \
|
||||||
|
movi %R2 $offs \
|
||||||
|
stxr_s %R2 %R0 %R1 \
|
||||||
|
movi %R2 $offus \
|
||||||
|
stxr_s %R2 %R0 %R1 \
|
||||||
|
movi %R1 I##N \
|
||||||
|
movi %R2 $offi \
|
||||||
|
stxr_i %R2 %R0 %R1 \
|
||||||
|
LDSTL(N, R0, R1, R2) \
|
||||||
|
SI(X, N, c, C, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
UI(X, N, c, C, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(X, N, s, S, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
UI(X, N, s, S, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
SI(X, N, i, I, R0, R1) \
|
||||||
|
movi %R0 t0 \
|
||||||
|
LDRL(X, N, R0, R1, R2) \
|
||||||
|
|
||||||
|
#define LDST0(R0, R1, R2) \
|
||||||
|
LDST1(0_##R0##_##R1##_##R2, 0, R0, R1, R2) \
|
||||||
|
LDST1(1_##R0##_##R1##_##R2, 1, R0, R1, R2) \
|
||||||
|
LDST1(2_##R0##_##R1##_##R2, 2, R0, R1, R2) \
|
||||||
|
LDST1(3_##R0##_##R1##_##R2, 3, R0, R1, R2)
|
||||||
|
|
||||||
|
#define LDST(V0, V1, V2, R0, R1, R2) \
|
||||||
|
LDST0(V1, V2, V0) \
|
||||||
|
LDST0(V1, R0, V0) \
|
||||||
|
LDST0(V1, R1, V0) \
|
||||||
|
LDST0(V1, R2, V0) \
|
||||||
|
LDST0(V0, R0, V1) \
|
||||||
|
LDST0(V0, R1, V1) \
|
||||||
|
LDST0(V0, R2, V1) \
|
||||||
|
LDST0(V0, V2, V1) \
|
||||||
|
LDST0(V2, V0, V1) \
|
||||||
|
LDST0(V2, R0, V1) \
|
||||||
|
LDST0(V2, R1, V1) \
|
||||||
|
LDST0(V2, R2, V1) \
|
||||||
|
LDST0(R0, R1, V2) \
|
||||||
|
LDST0(R0, R2, V2)
|
||||||
|
|
||||||
|
.code
|
||||||
|
jmpi main
|
||||||
|
|
||||||
|
main:
|
||||||
|
prolog
|
||||||
|
|
||||||
|
/* Simple test to simplify validating encodings before
|
||||||
|
* brute force tests */
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 0x81
|
||||||
|
movi %r2 $offc
|
||||||
|
stxr_c %r2 %r0 %r1
|
||||||
|
movi %r2 $offuc
|
||||||
|
stxr_c %r2 %r0 %r1
|
||||||
|
movi %r1 0x8001
|
||||||
|
movi %r2 $offs
|
||||||
|
stxr_s %r2 %r0 %r1
|
||||||
|
movi %r2 $offus
|
||||||
|
stxr_s %r2 %r0 %r1
|
||||||
|
movi %r1 0x80000001
|
||||||
|
movi %r2 $offi
|
||||||
|
stxr_i %r2 %r0 %r1
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
movi %r2 $offui
|
||||||
|
stxr_i %r2 %r0 %r1
|
||||||
|
movi %r1 0x8000000000000001
|
||||||
|
movi %r2 $offl
|
||||||
|
stxr_l %r2 %r0 %r1
|
||||||
|
#endif
|
||||||
|
movi %r1 $offc
|
||||||
|
ldxr_c %r1 %r0 %r1
|
||||||
|
beqi Lc0 %r1 XC
|
||||||
|
calli @abort
|
||||||
|
Lc0:
|
||||||
|
movi %r1 $offc
|
||||||
|
ldxr_c %r0 %r0 %r1
|
||||||
|
beqi Lc1 %r0 XC
|
||||||
|
calli @abort
|
||||||
|
Lc1:
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offuc
|
||||||
|
ldxr_uc %r1 %r0 %r1
|
||||||
|
beqi Luc0 %r1 0x81
|
||||||
|
calli @abort
|
||||||
|
Luc0:
|
||||||
|
movi %r1 $offuc
|
||||||
|
ldxr_uc %r0 %r0 %r1
|
||||||
|
beqi Luc1 %r0 0x81
|
||||||
|
calli @abort
|
||||||
|
Luc1:
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offs
|
||||||
|
ldxr_s %r1 %r0 %r1
|
||||||
|
beqi Ls0 %r1 XS
|
||||||
|
calli @abort
|
||||||
|
Ls0:
|
||||||
|
movi %r1 $offs
|
||||||
|
ldxr_s %r0 %r0 %r1
|
||||||
|
beqi Ls1 %r0 XS
|
||||||
|
calli @abort
|
||||||
|
Ls1:
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offus
|
||||||
|
ldxr_us %r1 %r0 %r1
|
||||||
|
beqi Lus0 %r1 0x8001
|
||||||
|
calli @abort
|
||||||
|
Lus0:
|
||||||
|
movi %r1 $offus
|
||||||
|
ldxr_us %r0 %r0 %r1
|
||||||
|
beqi Lus1 %r0 0x8001
|
||||||
|
calli @abort
|
||||||
|
Lus1:
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offi
|
||||||
|
ldxr_i %r1 %r0 %r1
|
||||||
|
beqi Li0 %r1 XI
|
||||||
|
calli @abort
|
||||||
|
Li0:
|
||||||
|
movi %r1 $offi
|
||||||
|
ldxr_i %r0 %r0 %r1
|
||||||
|
beqi Li1 %r0 XI
|
||||||
|
calli @abort
|
||||||
|
Li1:
|
||||||
|
#if __WORDSIZE == 64
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offui
|
||||||
|
ldxr_ui %r1 %r0 %r1
|
||||||
|
beqi Lui0 %r1 0x80000001
|
||||||
|
calli @abort
|
||||||
|
Lui0:
|
||||||
|
movi %r1 $offui
|
||||||
|
ldxr_ui %r0 %r0 %r1
|
||||||
|
beqi Lui1 %r0 0x80000001
|
||||||
|
calli @abort
|
||||||
|
Lui1:
|
||||||
|
movi %r0 t0
|
||||||
|
movi %r1 $offl
|
||||||
|
ldxr_l %r1 %r0 %r1
|
||||||
|
beqi Ll0 %r1 0x8000000000000001
|
||||||
|
calli @abort
|
||||||
|
Ll0:
|
||||||
|
movi %r1 $offl
|
||||||
|
ldxr_l %r0 %r0 %r1
|
||||||
|
beqi Ll1 %r0 0x8000000000000001
|
||||||
|
calli @abort
|
||||||
|
Ll1:
|
||||||
|
#endif
|
||||||
|
|
||||||
|
LDST(v0, v1, v2, r0, r1, r2)
|
||||||
|
// just to know did not abort
|
||||||
|
prepare 1
|
||||||
|
pushargi ok
|
||||||
|
finishi @printf
|
||||||
|
ret
|
||||||
|
epilog
|
||||||
113
check/ldstxr.tst
113
check/ldstxr.tst
|
|
@ -1,97 +1,4 @@
|
||||||
#if __WORDSIZE == 64
|
#include "ldst.inc"
|
||||||
# define L0 0x8000000000000001
|
|
||||||
# define LL0 L0
|
|
||||||
# define LC0 0xffffffffffffff81
|
|
||||||
# define LS0 0xffffffffffff8001
|
|
||||||
# define LI0 0xffffffff80000001
|
|
||||||
# define L1 0x8000000000000000
|
|
||||||
# define LL1 L1
|
|
||||||
# define LC1 0xffffffffffffff80
|
|
||||||
# define LS1 0xffffffffffff8000
|
|
||||||
# define LI1 0xffffffff80000000
|
|
||||||
# define L2 0x7fffffffffffffff
|
|
||||||
# define LL2 L2
|
|
||||||
# define LC2 0x000000000000007f
|
|
||||||
# define LS2 0x0000000000007fff
|
|
||||||
# define LI2 0x000000007fffffff
|
|
||||||
# define L3 0xffffffffffffffff
|
|
||||||
# define LL3 L3
|
|
||||||
# define LC3 0xffffffffffffffff
|
|
||||||
# define LS3 0xffffffffffffffff
|
|
||||||
# define LI3 0xffffffffffffffff
|
|
||||||
#endif
|
|
||||||
#define I0 0x80000001
|
|
||||||
#define II0 I0
|
|
||||||
#define IC0 0xffffff81
|
|
||||||
#define IS0 0xffff8001
|
|
||||||
#define I1 0x80000000
|
|
||||||
#define II1 I1
|
|
||||||
#define IC1 0xffffff80
|
|
||||||
#define IS1 0xffff8000
|
|
||||||
#define I2 0x7fffffff
|
|
||||||
#define II2 I2
|
|
||||||
#define IC2 0x0000007f
|
|
||||||
#define IS2 0x00007fff
|
|
||||||
#define I3 0xffffffff
|
|
||||||
#define II3 I3
|
|
||||||
#define IC3 0xffffffff
|
|
||||||
#define IS3 0xffffffff
|
|
||||||
#define S0 0x8001
|
|
||||||
#define S1 0x8000
|
|
||||||
#define S2 0x7fff
|
|
||||||
#define S3 0xffff
|
|
||||||
#define C0 0x81
|
|
||||||
#define C1 0x80
|
|
||||||
#define C2 0x7f
|
|
||||||
#define C3 0xff
|
|
||||||
#define F0 0.25
|
|
||||||
#define F1 0.75
|
|
||||||
#define F2 -0.25
|
|
||||||
#define F3 -0.75
|
|
||||||
#define D0 0.25
|
|
||||||
#define D1 0.75
|
|
||||||
#define D2 -0.25
|
|
||||||
#define D3 -0.75
|
|
||||||
|
|
||||||
.data 512
|
|
||||||
ok:
|
|
||||||
.c "ok\n"
|
|
||||||
t0:
|
|
||||||
c0:
|
|
||||||
.c 0
|
|
||||||
uc0:
|
|
||||||
.c 0
|
|
||||||
s0:
|
|
||||||
.s 0
|
|
||||||
us0:
|
|
||||||
.s 0
|
|
||||||
.align 4
|
|
||||||
i0:
|
|
||||||
.i 0
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
ui0:
|
|
||||||
.i 0
|
|
||||||
.align 8
|
|
||||||
l0:
|
|
||||||
.l 0
|
|
||||||
#endif
|
|
||||||
f0:
|
|
||||||
.f 0
|
|
||||||
.align 8
|
|
||||||
d0:
|
|
||||||
.d 0
|
|
||||||
|
|
||||||
. $($offc = c0 - t0)
|
|
||||||
. $($offuc = uc0 - t0)
|
|
||||||
. $($offs = s0 - t0)
|
|
||||||
. $($offus = us0 - t0)
|
|
||||||
. $($offi = i0 - t0)
|
|
||||||
#if __WORDSIZE == 64
|
|
||||||
. $($offui = ui0 - t0)
|
|
||||||
. $($offl = l0 - t0)
|
|
||||||
#endif
|
|
||||||
. $($offf = f0 - t0)
|
|
||||||
. $($offd = d0 - t0)
|
|
||||||
|
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
# define LDSTL(N, R0, R1, R2) \
|
# define LDSTL(N, R0, R1, R2) \
|
||||||
|
|
@ -249,11 +156,7 @@ main:
|
||||||
stxr_d %r2 %r0 %f0
|
stxr_d %r2 %r0 %f0
|
||||||
movi %r2 $offc
|
movi %r2 $offc
|
||||||
ldxr_c %r1 %r0 %r2
|
ldxr_c %r1 %r0 %r2
|
||||||
#if __WORDSIZE == 32
|
beqi Lc %r1 XC
|
||||||
beqi Lc %r1 0xffffff81
|
|
||||||
#else
|
|
||||||
beqi Lc %r1 0xffffffffffffff81
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Lc:
|
Lc:
|
||||||
movi %r2 $offuc
|
movi %r2 $offuc
|
||||||
|
|
@ -263,11 +166,7 @@ Lc:
|
||||||
Luc:
|
Luc:
|
||||||
movi %r2 $offs
|
movi %r2 $offs
|
||||||
ldxr_s %r1 %r0 %r2
|
ldxr_s %r1 %r0 %r2
|
||||||
#if __WORDSIZE == 32
|
beqi Ls %r1 XS
|
||||||
beqi Ls %r1 0xffff8001
|
|
||||||
#else
|
|
||||||
beqi Ls %r1 0xffffffffffff8001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Ls:
|
Ls:
|
||||||
movi %r2 $offus
|
movi %r2 $offus
|
||||||
|
|
@ -277,11 +176,7 @@ Ls:
|
||||||
Lus:
|
Lus:
|
||||||
movi %r2 $offi
|
movi %r2 $offi
|
||||||
ldxr_i %r1 %r0 %r2
|
ldxr_i %r1 %r0 %r2
|
||||||
#if __WORDSIZE == 32
|
beqi Li %r1 XI
|
||||||
beqi Li %r1 0x80000001
|
|
||||||
#else
|
|
||||||
beqi Li %r1 0xffffffff80000001
|
|
||||||
#endif
|
|
||||||
calli @abort
|
calli @abort
|
||||||
Li:
|
Li:
|
||||||
#if __WORDSIZE == 64
|
#if __WORDSIZE == 64
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue