gas/testsuite/gas/vtable/vtable.exp

   1 #
   2 # vtable tests
   3 #
   4 proc run_list_test { name opts } {
   5     global srcdir subdir
   6     set testname "vtable $name"
   7     set file $srcdir/$subdir/$name
   8     gas_run ${name}.s $opts ">&dump.out"
   9     if { [regexp_diff "dump.out" "${file}.l"] } then {
  10         fail $testname
  11         verbose "output is [file_contents "dump.out"]" 2
  12         return
  13     }
  14     pass $testname
  15 }
  16
  17 # Vtable bits are only supported by ELF targets.
  18 if { (   [istarget "*-*-elf*"] || [istarget "*-*-linux*"])
  19      && ![istarget *-*-linux*aout*]
  20      && ![istarget *-*-linux*oldld*] } then {
  21
  22     # These tests are not (yet) supported on some targets.
  23     if {   [istarget "ia64-*"]
  24         || [istarget "hppa*64*-*-*"]
  25         || [istarget "i960-*-*"]
  26         || [istarget "arc*-*-*"]
  27         || [istarget "alpha*-*-*"]
  28         || [istarget "d30v-*-*"] } then {
  29         return
  30     }
  31
  32     run_dump_test "inherit0"
  33     run_list_test "inherit1" "-al"
  34
  35     # The vtable entry results are different on Rel and Rela targets.
  36     if {[istarget "i*86-*-*"]
  37         || [istarget "d10v-*-*"]
  38         || [istarget "mips*-*-*"]
  39         || [istarget "strongarm*-*-*"]
  40         || [istarget "xscale*-*-*"]
  41         || [istarget "arm*-*-*"] } then {
  42
  43         run_dump_test "entry0"
  44
  45     } else {
  46
  47         run_dump_test "entry1"
  48
  49     }
  50 }