]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gas/testsuite/gas/hppa/unsorted/unsorted.exp
Update year range in copyright notice of binutils files
[thirdparty/binutils-gdb.git] / gas / testsuite / gas / hppa / unsorted / unsorted.exp
index 31300c70b2fe0edff6d9469c2cf8b620410d19b7..c96a865b906e97dc380b3792b59e07e6559ad23a 100644 (file)
@@ -1,8 +1,8 @@
-# Copyright (C) 1993, 1997 Free Software Foundation, Inc.
+# Copyright (C) 1993-2021 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 the Center for Software Science at the University of Utah
 # and by Cygnus Support.
@@ -24,28 +24,22 @@ proc do_subspace_align_test {} {
     set testname "ss_align.s: Test subspace alignment (part 2)"
     set x 0
 
+    if {[istarget hppa*64*-*-*]
+       || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
+      return 
+    }
+
     if [gas_test_old "ss_align.s" "" "subspace alignment (part 1)"] then {
        objdump_start_no_subdir "a.out" "-h"
 
     # Check the headers for the correct alignment value for the
-    # .data section (elf) or the $DATA$ subspace (som).
-       if [istarget hppa*-*-*elf*] then {
-           while 1 {
-               expect {
-                   -re "data\[^\n\]* 2..6\[^\n\]*\n"   { set x 1 }
-                   -re "\[^\n\]*\n"                            { }
-                   timeout                     { perror "timeout\n"; break }
-                   eof                         { break }
-               }
-           }
-       } else {
-           while 1 {
-               expect  {
-                   -re "DATA\[^\n\]* 2..6\[^\n\]*\n"   { set x 1 }
-                   -re "\[^\n\]*\n"                            { }
-                   timeout                     { perror "timeout\n"; break }
-                   eof                         { break }
-               }
+    # the $DATA$ subspace (som).
+       while 1 {
+           expect  {
+               -re "DATA\[^\n\]* 2..6\[^\n\]*\n"       { set x 1 }
+               -re "\[^\n\]*\n"                                { }
+               timeout                 { perror "timeout\n"; break }
+               eof                             { break }
            }
        }
 
@@ -114,6 +108,11 @@ proc do_align3_test {} {
     set testname "align3.s: Test for alignment bug when switching subspaces (part2)"
     set x 0
 
+    if {[istarget hppa*64*-*-*]
+       || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
+      return 
+    }
+
     if [gas_test_old "align3.s" "" "Test for alignment bug when switching subspaces (part1)"] {
        objdump_start_no_subdir "a.out" "--prefix-addresses -d"
 
@@ -141,8 +140,9 @@ proc do_align4_test {} {
     set testname "align4.s: More subspace alignment tests (part2)"
     set x 0
 
-    if [istarget hppa*-*-*elf*] then {
-       return
+    if {[istarget hppa*64*-*-*]
+       || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
+      return 
     }
 
     if [gas_test_old "align4.s" "" "More subspace alignment tests (part1)"] {
@@ -195,6 +195,11 @@ proc do_import_test {} {
 }
 
 proc do_common_test {} {
+    # linux has a different .comm syntax
+    if [istarget hppa*-*-linux*] then {
+       return
+    }
+
     set testname "common.s: Test for bug in .comm handling (part2)"
     set x 0
 
@@ -239,11 +244,13 @@ if [istarget hppa*-*-*] then {
     # Test bug where switching between subspaces creates bogus alignments
     do_align4_test
 
-    # Test a problem where $global$ is defined, then used within the
-    # same source file.
-    setup_xfail hppa*-*-*
-    gas_test "globalbug.s" "" "" "Use \$global\$ in file which defines it"
-
+    if { ([istarget *-*-osf*] || [istarget *-*-hpux*] || [istarget *-*-bsd*]
+         || [istarget *-*-mpeix*] || [istarget *-*-hiux*])
+        && ![istarget hppa*64*-*-hpux11*] } {
+       # Test a problem where $global$ is defined, then used within the
+       # same source file.
+       gas_test "globalbug.s" "" "" "Use \$global\$ in file which defines it"
+    }
     # Test that importing a defined symbol doesn't screw up the symbol's
     # space/subspace.
     do_import_test
@@ -252,7 +259,8 @@ if [istarget hppa*-*-*] then {
     do_common_test
 
     # Test for an off-by-2 bug in range check for conditional branches
-    gas_test_error "brlenbug.s" "" "Check for error(s) in branch length"
-
+    # The labels in brlenbug.s lack colons and are not linux compatible.
+    if {! [istarget *-*-linux*]} then {
+       gas_test_error "brlenbug.s" "" "Check for error(s) in branch length"
+    }
 }
-