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 } elseif { [istarget ppc*-*-*] || [istarget powerpc*-*-*] } then {
  31     run_dump_test "cfi-ppc-1"
  32
  33 } elseif { [istarget s390*-*-*] } then {
  34     run_dump_test "cfi-s390-1"
  35     if { [istarget s390x*-*-*] } then {
  36         run_dump_test "cfi-s390x-1"
  37     }
  38
  39 } elseif { [istarget "m68*-*"] } then {
  40     run_dump_test "cfi-m68k"
  41
  42 } elseif { [istarget sparc*-*-*] } then {
  43     global NM
  44     global NMFLAGS
  45     global srcdir
  46
  47     catch "exec $srcdir/lib/run $NM $NMFLAGS --help" nm_help
  48     run_dump_test "cfi-sparc-1"
  49     if { [regexp "elf64\[_-\]sparc" $nm_help] } then {
  50         run_dump_test "cfi-sparc64-1"
  51     }
  52
  53 } elseif [istarget "sh*-*"] then {
  54     if { [istarget sh64*-*-*] || [istarget sh5*-*-*] } then {
  55     } else {
  56         run_dump_test "cfi-sh-1"
  57     }
  58
  59 } else {
  60     return
  61 }
  62
  63 run_list_test "cfi-diag-1" ""
  64 run_dump_test "cfi-common-1"
  65 run_dump_test "cfi-common-2"
  66 run_dump_test "cfi-common-3"