OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* gas/v850/basic.exp (mem_tests): Test instruction bit patterns.

Browse Source 
xfail sst and sld tests.
        (mov_tests): Remove bogus xfail.
        * gas/v850/mem.s: sst and sld instructions can only index from
        "ep" register.
This commit is contained in:
Jeff Law 1996-08-23 19:35:05 +00:00
parent fb6da8680e
commit 8289ed0b65
3 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gas/testsuite/ChangeLog
View File

@ -1,6 +1,12 @@
start-sanitize-v850
Fri Aug 23 11:02:55 1996 Jeffrey A Law (law@cygnus.com)
* gas/v850/basic.exp (mem_tests): Test instruction bit patterns.
xfail sst and sld tests.
(mov_tests): Remove bogus xfail.
* gas/v850/mem.s: sst and sld instructions can only index from
"ep" register.
* gas/v850/basic.exp (logical_tests): Test instruction bit patterns.
Update addresses.
* gas/v850/logical.s: Tweak constants for better testing.

20
gas/testsuite/gas/v850/basic.exp
View File

@ -258,15 +258,15 @@ proc do_mem {} {
# of instructions (as these tests to).
while 1 {
expect {
-re "^ +\[0-9\]+ 0000\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0000 05370500\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0004 25370400\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0008 25370500\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000c\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 000e\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0010\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0016\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0012 462F0500\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0016 662F0400\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001a 662F0500\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 001e\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0020\[^\n\]*\n" { set x [expr $x+1] }
-re "^ +\[0-9\]+ 0022\[^\n\]*\n" { set x [expr $x+1] }
@ -282,6 +282,12 @@ proc do_mem {} {
# Did we find what we were looking for? If not, flunk it.
if [expr $x==12] then { pass $testname } else { fail $testname }
setup_xfail v850*-*-*
fail "sld and sst instructions improperly assembled."
setup_xfail v850*-*-*
fail "sld and sst instructions did not catch improper index assembled."
}
proc do_misc {} {
@ -344,7 +350,7 @@ proc do_move {} {
gas_finish
# Did we find what we were looking for? If not, flunk it.
if [expr $x==4] then { pass $testname } else { setup_xfail "*-*-*" ; fail $testname }
if [expr $x==4] then { pass $testname } else { fail $testname }
}
if [istarget v850*-*-*] then {

12
gas/testsuite/gas/v850/mem.s
View File

@ -5,12 +5,12 @@ memory:
ld.b 5[r5],r6
ld.h 4[r5],r6
ld.w 4[r5],r6
sld.b -64[r5],r6
sld.h 128[r5],r6
sld.w 128[r5],r6
sld.b -64[ep],r6
sld.h 128[ep],r6
sld.w 128[ep],r6
st.b r5,5[r6]
st.h r5,4[r6]
st.w r5,4[r6]
sst.b r5,63[r6]
sst.h r5,128[r6]
sst.w r5,128[r6]
sst.b r5,63[ep]
sst.h r5,128[ep]
sst.w r5,128[ep]