gas/testsuite/gas/macros/macros.exp

   1 # Copyright 2012
   2 # Free Software Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  17
  18 # Run some tests of gas macros.
  19
  20 if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } {
  21     run_dump_test test1
  22 }
  23
  24 if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] && ![istarget "nds32*-*-*"] } {
  25     run_dump_test test2
  26 }
  27
  28 run_dump_test test3
  29
  30 if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] && ![istarget "nds32*-*-*"] } {
  31     run_dump_test irp
  32     run_dump_test rept
  33     run_dump_test repeat
  34     run_dump_test vararg
  35 }
  36
  37 gas_test_error "err.s" "" "macro infinite recursion"
  38
  39 # The tic4x-coff target fails the next test because it defines '&'
  40 # as its line separator character, so the expression "(0 & TFLAG_C)"
  41 # becomes divided up into two lines and the parser complains about
  42 # a missing closing parenthesis for the first line.
  43 setup_xfail "tic4x*-*"
  44 gas_test "and.s" "" "" "logical and in macro definition"
  45
  46 case $target_triplet in {
  47     { hppa*-*-* } { if [istarget *-*-linux*] { run_dump_test semi } }
  48     { *c4x*-*-* } { }
  49     { *c54x*-*-* } { }
  50     default {
  51         run_dump_test semi
  52     }
  53 }
  54
  55 if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } {
  56     # FIXME: Due to macro mishandling of ONLY_STANDARD_ESCAPES.
  57     setup_xfail "avr-*" "cris-*" "crisv32-*" "msp430-*"
  58
  59     # These fail due to NO_STRING_ESCAPES
  60     setup_xfail "powerpc*-*-aix*" "powerpc*-*-beos*" "powerpc*-*-macos*"
  61     setup_xfail "powerpc*-*-pe" "powerpc*-*-*win*"
  62     setup_xfail "rs6000-*-*"
  63     setup_xfail "z80-*-*"
  64
  65     # FIXME: Due to difference in what "consecutive octets" means.
  66     setup_xfail "*c4x*-*-*" "*c54x*-*"
  67     run_dump_test strings
  68 }
  69
  70 run_dump_test app1
  71 run_dump_test app2
  72 run_dump_test app3
  73 remote_download host "$srcdir/$subdir/app4b.s"
  74 run_dump_test app4
  75
  76 run_list_test badarg ""
  77
  78 case $target_triplet in {
  79     { *c54x*-*-* } { }
  80     { *c4x*-*-* } { }
  81     { mmix-* } { }
  82     { rx-*-* } { }
  83     default { run_list_test dot "-alm" }
  84 }
  85 run_list_test end ""
  86 run_list_test purge "--hash-size=8000"
  87 run_list_test redef ""
  88
  89 # This test is valid only when '!' is not a comment character
  90 # (it is allowed to be a line comment character).
  91 if [string match "" [lindex [gas_run ../all/excl.s "-o /dev/null" ""] 0]] {
  92     run_dump_test paren
  93 }
  94
  95 # PR 58925: A .exitm pseudo-op outside of a macro definition
  96 #  prevented the assembler from parsing the rest of the file,
  97 #  and hence catching an erroroneous instruction.
  98 gas_test_error "exit.s" "" ".exitm outside of a macro"