Update year range in copyright notice of binutils files
[deliverable/binutils-gdb.git] / gas / testsuite / gas / v850 / basic.exp
old mode 100755 (executable)
new mode 100644 (file)
index c43bc16..495adbf
@@ -1,8 +1,8 @@
-# Copyright (C) 1996 Free Software Foundation, Inc.
+# Copyright (C) 1996-2019 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
+# the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 # 
 # This program is distributed in the hope that it will be useful,
 # 
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
 
 # Please email any bugs, comments, and/or additions to this file to:
-# DejaGnu@cygnus.com
+# dejagnu@gnu.org
 
 # Written by Cygnus Support.
 
@@ -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" "-mgcc-abi" "Test for proper relocation (part 1)"] then {
+       objdump_start_no_subdir "a.out" "-r"
+
+       while 1 {
+           expect {
+               -re "^00000002\[^\n\]*R_V8\[A-Z0-9_\]+\[^\n\]*\n"
+                       { set x [expr $x+1] }
+               -re "^00000006\[^\n\]*R_V8\[A-Z0-9_\]+\[^\n\]*\n"
+                       { set x [expr $x+1] }
+               -re "^0000000a\[^\n\]*R_V8\[A-Z0-9_\]+\[^\n\]*\n"
+                       { set x [expr $x+1] }
+               -re "^0000000e\[^\n\]*R_V8\[A-Z0-9_\]+\[^\n\]*\n"
+                       { set x [expr $x+1] }
+               -re "^00000012\[^\n\]*R_V8\[A-Z0-9_\]+\[^\n\]*\n"
+                       { set x [expr $x+1] }
+               -re "^00000016\[^\n\]*R_V8\[A-Z0-9_\]+\[^\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,16 @@ 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"
+
+    gas_test_error "range.s" "-mwarn-signed-overflow" "Check for range error on byte load/store"
+    run_dump_test "v850e1"
+    run_dump_test "split-lo16"
+    run_dump_test "pr19937"
 }
This page took 0.025512 seconds and 4 git commands to generate.