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 if ![is_elf_format] then {
  16     return
  17 }
  18
  19 if [istarget "x86_64-*"] then {
  20     run_dump_test "cfi-x86_64"
  21
  22 } elseif [istarget "i?86-*"] then {
  23     run_dump_test "cfi-i386"
  24
  25 } elseif { [istarget alpha*-*-*] } then {
  26     run_dump_test "cfi-alpha-1"
  27     run_dump_test "cfi-alpha-2"
  28     run_dump_test "cfi-alpha-3"
  29
  30 } else {
  31     return
  32 }
  33
  34 run_list_test "cfi-diag-1" ""
  35 run_dump_test "cfi-common-1"
  36 run_dump_test "cfi-common-2"
  37 run_dump_test "cfi-common-3"