1# Copyright (C) 1993-2021 Free Software Foundation, Inc. 2 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. 7# 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. 12# 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. 16 17# Please email any bugs, comments, and/or additions to this file to: 18# dejagnu@gnu.org 19 20# Written by the Center for Software Science at the University of Utah 21# and by Cygnus Support. 22 23proc do_subspace_align_test {} { 24 set testname "ss_align.s: Test subspace alignment (part 2)" 25 set x 0 26 27 if {[istarget hppa*64*-*-*] 28 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { 29 return 30 } 31 32 if [gas_test_old "ss_align.s" "" "subspace alignment (part 1)"] then { 33 objdump_start_no_subdir "a.out" "-h" 34 35 # Check the headers for the correct alignment value for the 36 # the $DATA$ subspace (som). 37 while 1 { 38 expect { 39 -re "DATA\[^\n\]* 2..6\[^\n\]*\n" { set x 1 } 40 -re "\[^\n\]*\n" { } 41 timeout { perror "timeout\n"; break } 42 eof { break } 43 } 44 } 45 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. 48 objdump_finish 49 50 # Did we find what we were looking for? If not, flunk it. 51 if [expr $x==1] then { pass $testname } else { fail $testname } 52 } 53} 54 55proc do_local_label_test {} { 56 set testname "locallabel.s: Elimination of local labels (part 2)" 57 set x 0 58 59 if [gas_test_old "locallabel.s" "" "Elimination of local labels (part1)"] { 60 objdump_start_no_subdir "a.out" "-t" 61 62 while 1 { 63 expect { 64 -re "^00000000\[^\n\]*Label\[^\n\]*\n" { set x 1 } 65 -re "^00000000\[^\n\]*L\$01234\[^\n\]*\n" { set x 0 } 66 -re "\[^\n\]*\n" { } 67 timeout { perror "timeout\n"; break } 68 eof { break } 69 } 70 } 71 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. 74 objdump_finish 75 76 # Did we find what we were looking for? If not, flunk it. 77 if [expr $x==1] then { pass $testname } else { fail $testname } 78 } 79} 80 81proc do_frchain_test {} { 82 set testname "fragbug.s: Test bug in frag chaining (part 2)" 83 set x 0 84 85 if [gas_test_old "fragbug.s" "" "Test bug in frag chaining (part1)"] { 86 objdump_start_no_subdir "a.out" "--prefix-addresses -d" 87 88 while 1 { 89 expect { 90 -re "^0x00000000\[^\n\]*nop\[^\n\]*\n" { set x 1 } 91 -re "^0x00000004\[^\n\]*nop\[^\n\]*\n" { set x 0 } 92 -re "\[^\n\]*\n" { } 93 timeout { perror "timeout\n"; break } 94 eof { break } 95 } 96 } 97 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. 100 objdump_finish 101 102 # Did we find what we were looking for? If not, flunk it. 103 if [expr $x==1] then { pass $testname } else { fail $testname } 104 } 105} 106 107proc do_align3_test {} { 108 set testname "align3.s: Test for alignment bug when switching subspaces (part2)" 109 set x 0 110 111 if {[istarget hppa*64*-*-*] 112 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { 113 return 114 } 115 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" 118 119 while 1 { 120 expect { 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 } 124 -re "\[^\n\]*\n" { } 125 timeout { perror "timeout\n"; break } 126 eof { break } 127 } 128 } 129 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. 132 objdump_finish 133 134 # Did we find what we were looking for? If not, flunk it. 135 if [expr $x==1] then { pass $testname } else { fail $testname } 136 } 137} 138 139proc do_align4_test {} { 140 set testname "align4.s: More subspace alignment tests (part2)" 141 set x 0 142 143 if {[istarget hppa*64*-*-*] 144 || [istarget hppa*-*-*elf*] || [istarget hppa*-*-linux*]} then { 145 return 146 } 147 148 if [gas_test_old "align4.s" "" "More subspace alignment tests (part1)"] { 149 objdump_start_no_subdir "a.out" "-h" 150 151 while 1 { 152 expect { 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 } 158 eof { break } 159 } 160 } 161 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. 164 objdump_finish 165 166 # Did we find what we were looking for? If not, flunk it. 167 if [expr $x==2] then { pass $testname } else { fail $testname } 168 } 169} 170 171proc do_import_test {} { 172 set testname "importbug.s: Test for bug in .import directive (part2)" 173 set x 0 174 175 if [gas_test_old "importbug.s" "" "Test for bug in .import directive (part1)"] { 176 objdump_start_no_subdir "a.out" "--syms" 177 178 while 1 { 179 expect { 180 -re "\[^\n\]*.DATA..foo\[^\n\]*\n" { set x 1 } 181 -re "\[^\n\]*.data.*foo\[^\n\]*\n" { set x 1 } 182 -re "\[^\n\]*\n" { } 183 timeout { perror "timeout\n"; break } 184 eof { break } 185 } 186 } 187 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. 190 objdump_finish 191 192 # Did we find what we were looking for? If not, flunk it. 193 if [expr $x==1] then { pass $testname } else { fail $testname } 194 } 195} 196 197proc do_common_test {} { 198 # linux has a different .comm syntax 199 if [istarget hppa*-*-linux*] then { 200 return 201 } 202 203 set testname "common.s: Test for bug in .comm handling (part2)" 204 set x 0 205 206 if [gas_test_old "common.s" "" "Test for bug in .comm handling (part1)"] { 207 objdump_start_no_subdir "a.out" "--syms" 208 209 while 1 { 210 expect { 211 -re "\[^\n\]*.COM.*common_symbol\[^\n\]*\n" { set x 1 } 212 -re "\[^\n\]*\n" { } 213 timeout { perror "timeout\n"; break } 214 eof { break } 215 } 216 } 217 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. 220 objdump_finish 221 222 # Did we find what we were looking for? If not, flunk it. 223 if [expr $x==1] then { pass $testname } else { fail $testname } 224 } 225} 226 227if [istarget hppa*-*-*] then { 228 # Make sure subspace alignment requests from the subspace directives 229 # are honored 230 do_subspace_align_test 231 232 # Make sure the correct labels end up in the symbol table 233 do_local_label_test 234 235 # GAS-1.36 choked on this file. 236 gas_test "labeldiffs.s" "" "" "Difference of labels" 237 238 # Test a recent bug where frag chaining wasn't working correctly. 239 do_frchain_test 240 241 # Test bug where switching between subspaces creates bogus alignments 242 do_align3_test 243 244 # Test bug where switching between subspaces creates bogus alignments 245 do_align4_test 246 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 251 # same source file. 252 gas_test "globalbug.s" "" "" "Use \$global\$ in file which defines it" 253 } 254 # Test that importing a defined symbol doesn't screw up the symbol's 255 # space/subspace. 256 do_import_test 257 258 # Test for a buglet in the handling of common symbols 259 do_common_test 260 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" 265 } 266} 267