From: Jeff Law Date: Fri, 23 Aug 1996 19:35:05 +0000 (+0000) Subject: * gas/v850/basic.exp (mem_tests): Test instruction bit patterns. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8289ed0b657405ed9095093e513ae7766fba9828;p=binutils-gdb.git * 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. --- diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 19f278378c8..2e22f158ff7 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -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. diff --git a/gas/testsuite/gas/v850/basic.exp b/gas/testsuite/gas/v850/basic.exp index d883fc768d5..cf6e866c182 100755 --- a/gas/testsuite/gas/v850/basic.exp +++ b/gas/testsuite/gas/v850/basic.exp @@ -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 { diff --git a/gas/testsuite/gas/v850/mem.s b/gas/testsuite/gas/v850/mem.s index a87ff55c992..00e895292ab 100644 --- a/gas/testsuite/gas/v850/mem.s +++ b/gas/testsuite/gas/v850/mem.s @@ -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]