gas/testsuite/gas/cfi/cfi.exp

   1 if ![is_elf_format] then {
   2     return
   3 }
   4
   5 proc gas_x86_64_check { } {
   6     global NM
   7     global NMFLAGS
   8
   9     set status [gas_host_run "$NM $NMFLAGS --help" ""]
  10     return [regexp "targets:.*x86-64" [lindex $status 1]];
  11 }
  12
  13 proc gas_x86_32_check { } {
  14     global NM
  15     global NMFLAGS
  16
  17     set status [gas_host_run "$NM $NMFLAGS --help" ""]
  18     return [regexp "targets:.*i386" [lindex $status 1]];
  19 }
  20
  21 if  { [istarget "i*86-*-*"] || [istarget "x86_64-*-*"] } then {
  22
  23     global ASFLAGS
  24     set old_ASFLAGS "$ASFLAGS"
  25
  26     if { [gas_x86_64_check] } then {
  27         set ASFLAGS "$ASFLAGS --64"
  28         run_dump_test "cfi-x86_64"
  29         set ASFLAGS "$old_ASFLAGS"
  30     }
  31
  32     if { [gas_x86_32_check] }  then {
  33         set ASFLAGS "$ASFLAGS --32"
  34         run_dump_test "cfi-i386"
  35         set ASFLAGS "$old_ASFLAGS"
  36     }
  37
  38 } elseif { [istarget alpha*-*-*] } then {
  39     run_dump_test "cfi-alpha-1"
  40     run_dump_test "cfi-alpha-2"
  41     run_dump_test "cfi-alpha-3"
  42
  43 } elseif { [istarget ppc*-*-*] || [istarget powerpc*-*-*] } then {
  44     run_dump_test "cfi-ppc-1"
  45
  46 } elseif { [istarget s390*-*-*] } then {
  47     run_dump_test "cfi-s390-1"
  48     if { [istarget s390x*-*-*] } then {
  49         run_dump_test "cfi-s390x-1"
  50     }
  51
  52 } elseif { [istarget "m68*-*"] } then {
  53     run_dump_test "cfi-m68k"
  54
  55 } elseif { [istarget sparc*-*-*] } then {
  56     global NM
  57     global NMFLAGS
  58
  59     set nm_status [gas_host_run "$NM $NMFLAGS --help" ""]
  60     run_dump_test "cfi-sparc-1"
  61     if { [regexp "elf64\[_-\]sparc" [lindex $nm_status 1]] } then {
  62         run_dump_test "cfi-sparc64-1"
  63     }
  64
  65 } elseif [istarget "sh*-*"] then {
  66     if { [istarget sh64*-*-*] || [istarget sh5*-*-*] } then {
  67     } else {
  68         run_dump_test "cfi-sh-1"
  69     }
  70
  71 } elseif { [istarget "arm*-*"] || [istarget "xscale*-*"] } then {
  72     run_dump_test "cfi-arm-1"
  73
  74 } elseif { [istarget "mips*-*"] } then {
  75     run_dump_test "cfi-mips-1"
  76 } elseif { [istarget "hppa*-linux*"] } then {
  77     run_dump_test "cfi-hppa-1"
  78 } else {
  79     return
  80 }
  81
  82 run_list_test "cfi-diag-1" ""
  83
  84 # HPPA64 uses 64-bit relocations, which results in all of the dump
  85 # offset numbers not matching up.
  86 if { ![istarget "hppa64*-*"] } then {
  87   run_dump_test "cfi-common-1"
  88   run_dump_test "cfi-common-2"
  89   run_dump_test "cfi-common-3"
  90   run_dump_test "cfi-common-4"
  91   run_dump_test "cfi-common-5"
  92   run_dump_test "cfi-common-7"
  93 }
  94
  95 # MIPS doesn't support PC relative cfi directives.
  96 if { ![istarget "mips*-*"] } then {
  97     run_dump_test "cfi-common-6"
  98 }