gas/testsuite/gas/cfi/cfi.exp

   1 # ??? This probably shouldn't be replicated here...
   2 proc run_list_test { name opts } {
   3     global srcdir subdir
   4     set testname "cfi $name"
   5     set file $srcdir/$subdir/$name
   6     gas_run ${name}.s $opts ">&dump.out"
   7     if { [regexp_diff "dump.out" "${file}.l"] } then {
   8         fail $testname
   9         verbose "output is [file_contents "dump.out"]" 2
  10         return
  11     }
  12     pass $testname
  13 }
  14
  15 set any "0"
  16
  17 if [istarget "x86_64-*"] then {
  18     run_dump_test "cfi-x86_64"
  19     set any "1"
  20 }
  21
  22 if [istarget "i?86-*"] then {
  23     run_dump_test "cfi-i386"
  24     set any "1"
  25 }
  26
  27 if { [istarget alpha*-*-*] } then {
  28
  29     set elf [expr [istarget *-*-elf*] \
  30                   || [istarget *-*-linux*] \
  31                   || [istarget *-*-freebsd*] \
  32                   || [istarget *-*-netbsd*] ]
  33
  34     if $elf {
  35         run_dump_test "cfi-alpha-1"
  36         run_dump_test "cfi-alpha-2"
  37         run_dump_test "cfi-alpha-3"
  38         set any "1"
  39     }
  40 }
  41
  42 if $any {
  43     run_list_test "cfi-diag-1" ""
  44     run_dump_test "cfi-common-1"
  45     run_dump_test "cfi-common-2"
  46 }