From 9f72a94f7202ac13be5b26b813bb3b1c66d3411e Mon Sep 17 00:00:00 2001 From: Jeff Law Date: Tue, 29 Jul 1997 20:31:41 +0000 Subject: [PATCH] * gas/v850/hilo2.s: New test. * gas/v850/fepsw.s: New test. * gas/v850/basic.exp: Run them. --- gas/testsuite/ChangeLog | 8 +++++ gas/testsuite/gas/v850/.Sanitize | 2 ++ gas/testsuite/gas/v850/basic.exp | 60 ++++++++++++++++++++++++++------ gas/testsuite/gas/v850/fepsw.s | 2 ++ gas/testsuite/gas/v850/hilo2.s | 4 +++ 5 files changed, 65 insertions(+), 11 deletions(-) create mode 100644 gas/testsuite/gas/v850/fepsw.s create mode 100644 gas/testsuite/gas/v850/hilo2.s diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 77198d6e318..e2cadbb101a 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,11 @@ +start-sanitize-v850 +Tue Jul 29 14:35:02 1997 Jeffrey A Law (law@cygnus.com) + + * gas/v850/hilo2.s: New test. + * gas/v850/fepsw.s: New test. + * gas/v850/basic.exp: Run them. + +end-sanitize-v850 Tue Jul 15 13:03:17 1997 Doug Evans * gas/m32r/uppercase.[sd]: New testcase. diff --git a/gas/testsuite/gas/v850/.Sanitize b/gas/testsuite/gas/v850/.Sanitize index 17b7e661db4..201aa7aebad 100644 --- a/gas/testsuite/gas/v850/.Sanitize +++ b/gas/testsuite/gas/v850/.Sanitize @@ -30,7 +30,9 @@ basic.exp bit.s branch.s compare.s +fepsw.s hilo.s +hilo2.s jumps.s logical.s mem.s diff --git a/gas/testsuite/gas/v850/basic.exp b/gas/testsuite/gas/v850/basic.exp index c43bc1621b8..be7293da6b8 100755 --- a/gas/testsuite/gas/v850/basic.exp +++ b/gas/testsuite/gas/v850/basic.exp @@ -262,14 +262,14 @@ proc do_mem {} { -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 4033\[^\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\]+ 000e 4034\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0010 4035\[^\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] } + -re "^ +\[0-9\]+ 001e C033\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0020 C034\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0022 4135\[^\n\]*\n" { set x [expr $x+1] } -re "\[^\n\]*\n" { } timeout { perror "timeout\n"; break } eof { break } @@ -282,12 +282,6 @@ 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 {} { @@ -381,6 +375,43 @@ proc do_hilo {} { if [expr $x==3] then { pass $testname } else { fail $testname } } + +proc do_simple_reloc_tests {} { + set testname "reloc.s: Test for proper relocations (part 2)" + set x 0 + + if [gas_test_old "reloc.s" "" "Test for proper relocation (part 1)"] then { + objdump_start_no_subdir "a.out" "-r" + + while 1 { + expect { + -re "^00000002\[^\n\]*R_V850_LO16\[^\n\]*\n" + { set x [expr $x+1] } + -re "^00000006\[^\n\]*R_V850_HI16_S\[^\n\]*\n" + { set x [expr $x+1] } + -re "^0000000a\[^\n\]*R_V850_HI16\[^\n\]*\n" + { set x [expr $x+1] } + -re "^0000000e\[^\n\]*R_V850_ZDA_OFFSET\[^\n\]*\n" + { set x [expr $x+1] } + -re "^00000012\[^\n\]*R_V850_TDA_OFFSET\[^\n\]*\n" + { set x [expr $x+1] } + -re "^00000016\[^\n\]*R_V850_SDA_OFFSET\[^\n\]*\n" + { set x [expr $x+1] } + -re "\[^\n\]*\n" { } + timeout { perror "timeout\n"; break } + eof { break } + } + } + } + + # This was intended to do any cleanup necessary. It kinda looks like it + # isn't needed, but just in case, please keep it in for now. + objdump_finish + + # Did we find what we were looking for? If not, flunk it. + if [expr $x==6] then { pass $testname } else { fail $testname } +} + if [istarget v850*-*-*] then { # Test the basic instruction parser. do_arith @@ -395,4 +426,11 @@ if [istarget v850*-*-*] then { # Make sure we handle lo() hi() and hi0() correctly. do_hilo + + # Check for proper relocs on lo, hi, hi0, zdaoff, tdaoff and sdaoff + # expressions + do_simple_reloc_tests + + gas_test "hilo2.s" "" "" "hi/lo regression test" + gas_test "fepsw.s" "" "" "eqsw regression test" } diff --git a/gas/testsuite/gas/v850/fepsw.s b/gas/testsuite/gas/v850/fepsw.s new file mode 100644 index 00000000000..e20333cb2ba --- /dev/null +++ b/gas/testsuite/gas/v850/fepsw.s @@ -0,0 +1,2 @@ + .text + ldsr r17,fepsw diff --git a/gas/testsuite/gas/v850/hilo2.s b/gas/testsuite/gas/v850/hilo2.s new file mode 100644 index 00000000000..4a8249fdb11 --- /dev/null +++ b/gas/testsuite/gas/v850/hilo2.s @@ -0,0 +1,4 @@ + .text + .org 0x10000 + movea hi(blah),r0,r0 +blah: -- 2.30.2