gas/testsuite/gas/macros/macros.exp

   1 # Run some tests of gas macros.
   2
   3 proc run_list_test { name opts } {
   4     global srcdir subdir
   5     set testname "macros $name"
   6     set file $srcdir/$subdir/$name
   7     gas_run ${name}.s $opts ">&dump.out"
   8     if { [regexp_diff "dump.out" "${file}.l"] } then {
   9         fail $testname
  10         verbose "output is [file_contents "dump.out"]" 2
  11         return
  12     }
  13     pass $testname
  14 }
  15
  16 if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } {
  17     run_dump_test test1
  18 }
  19
  20 if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] } {
  21     run_dump_test test2
  22 }
  23
  24 run_dump_test test3
  25
  26 if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] } {
  27     run_dump_test irp
  28     run_dump_test rept
  29     run_dump_test repeat
  30 }
  31
  32
  33 gas_test_error "err.s" "" "macro infinite recursion"
  34
  35 gas_test "and.s" "" "" "logical and in macro definition"
  36
  37 case $target_triplet in {
  38     { hppa*-*-* } { if [istarget *-*-linux*] { run_dump_test semi } }
  39     { *c4x*-*-* } { }
  40     { *c54x*-*-* } { }
  41     default {
  42         run_dump_test semi
  43     }
  44 }
  45
  46 if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } {
  47     # FIXME: Due to macro mishandling of ONLY_STANDARD_ESCAPES.
  48     setup_xfail "avr-*" "cris-*" "crisv32-*" "msp430-*"
  49
  50     # These fail due to NO_STRING_ESCAPES
  51     setup_xfail "powerpc*-*-aix*" "powerpc*-*-beos*" "powerpc*-*-macos*"
  52     setup_xfail "powerpc*-*-pe" "powerpc*-*-*win*"
  53     setup_xfail "rs6000-*-*"
  54
  55     # FIXME: Due to difference in what "consecutive octets" means.
  56     setup_xfail "*c4x*-*-*" "*c54x*-*"
  57     run_dump_test strings
  58 }
  59
  60 run_dump_test app1
  61 run_dump_test app2
  62 run_dump_test app3
  63 run_dump_test app4
  64
  65 run_list_test badarg ""
  66 run_list_test end ""
  67 run_list_test redef ""