gas/testsuite/gas/alpha/alpha.exp

   1 #
   2 # Some generic alpha tests
   3 #
   4
   5 proc run_list_test { name opts } {
   6     global srcdir subdir
   7     set testname "alpha $name"
   8     set file $srcdir/$subdir/$name
   9     gas_run ${name}.s $opts ">&dump.out"
  10     if { [regexp_diff "dump.out" "${file}.l"] } then {
  11         fail $testname
  12         verbose "output is [file_contents "dump.out"]" 2
  13         return
  14     }
  15     pass $testname
  16 }
  17
  18 if { [istarget alpha*-*-*] } then {
  19
  20     set elf [expr [istarget *-*-elf*] \
  21                   || [istarget *-*-linux*] \
  22                   || [istarget *-*-freebsd*] \
  23                   || [istarget *-*-netbsd*] ]
  24
  25     if $elf {
  26         run_dump_test "elf-reloc-1"
  27         run_list_test "elf-reloc-2" ""
  28         run_list_test "elf-reloc-3" ""
  29         run_dump_test "elf-reloc-4"
  30         run_dump_test "elf-reloc-5"
  31         run_list_test "elf-reloc-6" ""
  32     }
  33
  34     run_dump_test "fp"
  35     run_dump_test "unop"
  36 }