1 # Copyright (C) 1993-2021 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
17 # Please email any bugs, comments, and/or additions to this file to:
20 # Written by the Center for Software Science at the University of Utah
21 # and by Cygnus Support.
23 proc do_subspace_align_test {} {
24 set testname "ss_align.s: Test subspace alignment (part 2)"
27 if {[istarget hppa*64*-*-*]
28 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
32 if [gas_test_old "ss_align.s" "" "subspace alignment (part 1)"] then {
33 objdump_start_no_subdir "a.out" "-h"
35 # Check the headers for the correct alignment value for the
36 # the $DATA$ subspace (som).
39 -re "DATA\[^\n\]* 2..6\[^\n\]*\n" { set x 1 }
41 timeout { perror "timeout\n"; break }
46 # This was intended to do any cleanup necessary. It kinda looks like it
47 # isn't needed, but just in case, please keep it in for now.
50 # Did we find what we were looking for? If not, flunk it.
51 if [expr $x==1] then { pass $testname } else { fail $testname }
55 proc do_local_label_test {} {
56 set testname "locallabel.s: Elimination of local labels (part 2)"
59 if [gas_test_old "locallabel.s" "" "Elimination of local labels (part1)"] {
60 objdump_start_no_subdir "a.out" "-t"
64 -re "^00000000\[^\n\]*Label\[^\n\]*\n" { set x 1 }
65 -re "^00000000\[^\n\]*L\$01234\[^\n\]*\n" { set x 0 }
67 timeout { perror "timeout\n"; break }
72 # This was intended to do any cleanup necessary. It kinda looks like it
73 # isn't needed, but just in case, please keep it in for now.
76 # Did we find what we were looking for? If not, flunk it.
77 if [expr $x==1] then { pass $testname } else { fail $testname }
81 proc do_frchain_test {} {
82 set testname "fragbug.s: Test bug in frag chaining (part 2)"
85 if [gas_test_old "fragbug.s" "" "Test bug in frag chaining (part1)"] {
86 objdump_start_no_subdir "a.out" "--prefix-addresses -d"
90 -re "^0x00000000\[^\n\]*nop\[^\n\]*\n" { set x 1 }
91 -re "^0x00000004\[^\n\]*nop\[^\n\]*\n" { set x 0 }
93 timeout { perror "timeout\n"; break }
98 # This was intended to do any cleanup necessary. It kinda looks like it
99 # isn't needed, but just in case, please keep it in for now.
102 # Did we find what we were looking for? If not, flunk it.
103 if [expr $x==1] then { pass $testname } else { fail $testname }
107 proc do_align3_test {} {
108 set testname "align3.s: Test for alignment bug when switching subspaces (part2)"
111 if {[istarget hppa*64*-*-*]
112 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
116 if [gas_test_old "align3.s" "" "Test for alignment bug when switching subspaces (part1)"] {
117 objdump_start_no_subdir "a.out" "--prefix-addresses -d"
121 -re "\[^\n\]* <main> nop\[^\n\]*\n" { set x 1 }
122 -re "\[^\n\]* <.*end_main> nop\[^\n\]*\n" { set x 1 }
123 -re "\[^\n\]* <main+.*> nop\[^\n\]*\n" { set x 0 }
125 timeout { perror "timeout\n"; break }
130 # This was intended to do any cleanup necessary. It kinda looks like it
131 # isn't needed, but just in case, please keep it in for now.
134 # Did we find what we were looking for? If not, flunk it.
135 if [expr $x==1] then { pass $testname } else { fail $testname }
139 proc do_align4_test {} {
140 set testname "align4.s: More subspace alignment tests (part2)"
143 if {[istarget hppa*64*-*-*]
144 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then {
148 if [gas_test_old "align4.s" "" "More subspace alignment tests (part1)"] {
149 objdump_start_no_subdir "a.out" "-h"
153 -re "\[^\n\]*MILLICODE\[^\n\]*2..6\[^\n\]*\n"
154 { set x [expr $x+1] }
155 -re "\[^\n\]*YABBA\[^\n\]*2..3\[^\n\]*\n"
156 { set x [expr $x+1] }
157 timeout { perror "timeout\n"; break }
162 # This was intended to do any cleanup necessary. It kinda looks like it
163 # isn't needed, but just in case, please keep it in for now.
166 # Did we find what we were looking for? If not, flunk it.
167 if [expr $x==2] then { pass $testname } else { fail $testname }
171 proc do_import_test {} {
172 set testname "importbug.s: Test for bug in .import directive (part2)"
175 if [gas_test_old "importbug.s" "" "Test for bug in .import directive (part1)"] {
176 objdump_start_no_subdir "a.out" "--syms"
180 -re "\[^\n\]*.DATA..foo\[^\n\]*\n" { set x 1 }
181 -re "\[^\n\]*.data.*foo\[^\n\]*\n" { set x 1 }
183 timeout { perror "timeout\n"; break }
188 # This was intended to do any cleanup necessary. It kinda looks like it
189 # isn't needed, but just in case, please keep it in for now.
192 # Did we find what we were looking for? If not, flunk it.
193 if [expr $x==1] then { pass $testname } else { fail $testname }
197 proc do_common_test {} {
198 # linux has a different .comm syntax
199 if [istarget hppa*-*-linux*] then {
203 set testname "common.s: Test for bug in .comm handling (part2)"
206 if [gas_test_old "common.s" "" "Test for bug in .comm handling (part1)"] {
207 objdump_start_no_subdir "a.out" "--syms"
211 -re "\[^\n\]*.COM.*common_symbol\[^\n\]*\n" { set x 1 }
213 timeout { perror "timeout\n"; break }
218 # This was intended to do any cleanup necessary. It kinda looks like it
219 # isn't needed, but just in case, please keep it in for now.
222 # Did we find what we were looking for? If not, flunk it.
223 if [expr $x==1] then { pass $testname } else { fail $testname }
227 if [istarget hppa*-*-*] then {
228 # Make sure subspace alignment requests from the subspace directives
230 do_subspace_align_test
232 # Make sure the correct labels end up in the symbol table
235 # GAS-1.36 choked on this file.
236 gas_test "labeldiffs.s" "" "" "Difference of labels"
238 # Test a recent bug where frag chaining wasn't working correctly.
241 # Test bug where switching between subspaces creates bogus alignments
244 # Test bug where switching between subspaces creates bogus alignments
247 if { ([istarget *-*-osf*] || [istarget *-*-hpux*] || [istarget *-*-bsd*]
248 || [istarget *-*-mpeix*] || [istarget *-*-hiux*])
249 && ![istarget hppa*64*-*-hpux11*] } {
250 # Test a problem where $global$ is defined, then used within the
252 gas_test "globalbug.s" "" "" "Use \$global\$ in file which defines it"
254 # Test that importing a defined symbol doesn't screw up the symbol's
258 # Test for a buglet in the handling of common symbols
261 # Test for an off-by-2 bug in range check for conditional branches
262 # The labels in brlenbug.s lack colons and are not linux compatible.
263 if {! [istarget *-*-linux*]} then {
264 gas_test_error "brlenbug.s" "" "Check for error(s) in branch length"