gas/testsuite/gas/hppa/unsorted/unsorted.exp

   1 # Copyright (C) 1993, 1997 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  16
  17 # Please email any bugs, comments, and/or additions to this file to:
  18 # DejaGnu@cygnus.com
  19
  20 # Written by the Center for Software Science at the University of Utah
  21 # and by Cygnus Support.
  22
  23 proc do_subspace_align_test {} {
  24     set testname "ss_align.s: Test subspace alignment (part 2)"
  25     set x 0
  26
  27     if [gas_test_old "ss_align.s" "" "subspace alignment (part 1)"] then {
  28         objdump_start_no_subdir "a.out" "-h"
  29
  30     # Check the headers for the correct alignment value for the
  31     # .data section (elf) or the $DATA$ subspace (som).
  32         if [istarget hppa*-*-*elf*] then {
  33             while 1 {
  34                 expect {
  35                     -re "data\[^\n\]* 2..6\[^\n\]*\n"   { set x 1 }
  36                     -re "\[^\n\]*\n"                            { }
  37                     timeout                     { perror "timeout\n"; break }
  38                     eof                         { break }
  39                 }
  40             }
  41         } else {
  42             while 1 {
  43                 expect  {
  44                     -re "DATA\[^\n\]* 2..6\[^\n\]*\n"   { set x 1 }
  45                     -re "\[^\n\]*\n"                            { }
  46                     timeout                     { perror "timeout\n"; break }
  47                     eof                         { break }
  48                 }
  49             }
  50         }
  51
  52         # This was intended to do any cleanup necessary.  It kinda looks like it
  53         # isn't needed, but just in case, please keep it in for now.
  54         objdump_finish
  55
  56         # Did we find what we were looking for?  If not, flunk it.
  57         if [expr $x==1] then { pass $testname } else { fail $testname }
  58     }
  59 }
  60
  61 proc do_local_label_test {} {
  62     set testname "locallabel.s: Elimination of local labels (part 2)"
  63     set x 0
  64
  65     if [gas_test_old "locallabel.s" "" "Elimination of local labels (part1)"] {
  66         objdump_start_no_subdir "a.out" "-t"
  67
  68         while 1 {
  69             expect {
  70                 -re "^00000000\[^\n\]*Label\[^\n\]*\n"          { set x 1 }
  71                 -re "^00000000\[^\n\]*L\$01234\[^\n\]*\n"       { set x 0 }
  72                 -re "\[^\n\]*\n"                                { }
  73                 timeout                         { perror "timeout\n"; break }
  74                 eof                             { break }
  75             }
  76         }
  77
  78         # This was intended to do any cleanup necessary.  It kinda looks like it
  79         # isn't needed, but just in case, please keep it in for now.
  80         objdump_finish
  81
  82         # Did we find what we were looking for?  If not, flunk it.
  83         if [expr $x==1] then { pass $testname } else { fail $testname }
  84     }
  85 }
  86
  87 proc do_frchain_test {} {
  88     set testname "fragbug.s: Test bug in frag chaining (part 2)"
  89     set x 0
  90
  91     if [gas_test_old "fragbug.s" "" "Test bug in frag chaining (part1)"] {
  92         objdump_start_no_subdir "a.out" "--prefix-addresses -d"
  93
  94         while 1 {
  95             expect {
  96                 -re "^0x00000000\[^\n\]*nop\[^\n\]*\n"          { set x 1 }
  97                 -re "^0x00000004\[^\n\]*nop\[^\n\]*\n"          { set x 0 }
  98                 -re "\[^\n\]*\n"                                { }
  99                 timeout                         { perror "timeout\n"; break }
 100                 eof                             { break }
 101             }
 102         }
 103
 104         # This was intended to do any cleanup necessary.  It kinda looks like it
 105         # isn't needed, but just in case, please keep it in for now.
 106         objdump_finish
 107
 108         # Did we find what we were looking for?  If not, flunk it.
 109         if [expr $x==1] then { pass $testname } else { fail $testname }
 110     }
 111 }
 112
 113 proc do_align3_test {} {
 114     set testname "align3.s: Test for alignment bug when switching subspaces (part2)"
 115     set x 0
 116
 117     if [gas_test_old "align3.s" "" "Test for alignment bug when switching subspaces (part1)"] {
 118         objdump_start_no_subdir "a.out" "--prefix-addresses -d"
 119
 120         while 1 {
 121             expect {
 122                 -re "\[^\n\]* <main> nop\[^\n\]*\n"             { set x 1 }
 123                 -re "\[^\n\]* <.*end_main> nop\[^\n\]*\n"               { set x 1 }
 124                 -re "\[^\n\]* <main+.*> nop\[^\n\]*\n"          { set x 0 }
 125                 -re "\[^\n\]*\n"                                { }
 126                 timeout                         { perror "timeout\n"; break }
 127                 eof                             { break }
 128             }
 129         }
 130
 131         # This was intended to do any cleanup necessary.  It kinda looks like it
 132         # isn't needed, but just in case, please keep it in for now.
 133         objdump_finish
 134
 135         # Did we find what we were looking for?  If not, flunk it.
 136         if [expr $x==1] then { pass $testname } else { fail $testname }
 137     }
 138 }
 139
 140 proc do_align4_test {} {
 141     set testname "align4.s: More subspace alignment tests (part2)"
 142     set x 0
 143
 144     if [istarget hppa*-*-*elf*] 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
 171 proc 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
 197 proc do_common_test {} {
 198     set testname "common.s: Test for bug in .comm handling (part2)"
 199     set x 0
 200
 201     if [gas_test_old "common.s" "" "Test for bug in .comm handling (part1)"] {
 202         objdump_start_no_subdir "a.out" "--syms"
 203
 204         while 1 {
 205             expect {
 206                 -re "\[^\n\]*.COM.*common_symbol\[^\n\]*\n"     { set x 1 }
 207                 -re "\[^\n\]*\n"                                { }
 208                 timeout                         { perror "timeout\n"; break }
 209                 eof                             { break }
 210             }
 211         }
 212
 213         # This was intended to do any cleanup necessary.  It kinda looks like it
 214         # isn't needed, but just in case, please keep it in for now.
 215         objdump_finish
 216
 217         # Did we find what we were looking for?  If not, flunk it.
 218         if [expr $x==1] then { pass $testname } else { fail $testname }
 219     }
 220 }
 221
 222 if [istarget hppa*-*-*] then {
 223     # Make sure subspace alignment requests from the subspace directives
 224     # are honored
 225     do_subspace_align_test
 226
 227     # Make sure the correct labels end up in the symbol table
 228     do_local_label_test
 229
 230     # GAS-1.36 choked on this file.
 231     gas_test "labeldiffs.s" "" "" "Difference of labels"
 232
 233     # Test a recent bug where frag chaining wasn't working correctly.
 234     do_frchain_test
 235
 236     # Test bug where switching between subspaces creates bogus alignments
 237     do_align3_test
 238
 239     # Test bug where switching between subspaces creates bogus alignments
 240     do_align4_test
 241
 242     # Test a problem where $global$ is defined, then used within the
 243     # same source file.
 244     setup_xfail hppa*-*-*
 245     gas_test "globalbug.s" "" "" "Use \$global\$ in file which defines it"
 246
 247     # Test that importing a defined symbol doesn't screw up the symbol's
 248     # space/subspace.
 249     do_import_test
 250
 251     # Test for a buglet in the handling of common symbols
 252     do_common_test
 253
 254     # Test for an off-by-2 bug in range check for conditional branches
 255     gas_test_error "brlenbug.s" "" "Check for error(s) in branch length"
 256
 257 }
 258