Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | # Run some tests of gas macros. |
2 | ||
81366cb8 | 3 | if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } { |
252b5132 RH |
4 | run_dump_test test1 |
5 | } | |
6 | ||
48c5eb8a | 7 | if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] } { |
39bec121 TW |
8 | run_dump_test test2 |
9 | } | |
252b5132 RH |
10 | |
11 | run_dump_test test3 | |
12 | ||
48c5eb8a | 13 | if { ![istarget *c54x*-*-*] && ![istarget *c4x*-*-*] } { |
39bec121 TW |
14 | run_dump_test irp |
15 | run_dump_test rept | |
ca3bc58f | 16 | run_dump_test repeat |
6eaeac8a | 17 | run_dump_test vararg |
39bec121 | 18 | } |
252b5132 | 19 | |
252b5132 RH |
20 | gas_test_error "err.s" "" "macro infinite recursion" |
21 | ||
be20d78e NC |
22 | # The tic4x-coff target fails the next test because it defines '&' |
23 | # as its line separator character, so the expression "(0 & TFLAG_C)" | |
24 | # becomes divided up into two lines and the parser complains about | |
25 | # a missing closing parenthesis for the first line. | |
26 | setup_xfail "tic4x*-*" | |
405525ec AM |
27 | gas_test "and.s" "" "" "logical and in macro definition" |
28 | ||
252b5132 | 29 | case $target_triplet in { |
81366cb8 | 30 | { hppa*-*-* } { if [istarget *-*-linux*] { run_dump_test semi } } |
48c5eb8a | 31 | { *c4x*-*-* } { } |
39bec121 | 32 | { *c54x*-*-* } { } |
252b5132 RH |
33 | default { |
34 | run_dump_test semi | |
35 | } | |
36 | } | |
aa787a89 | 37 | |
48c5eb8a | 38 | if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } { |
483f05e3 | 39 | # FIXME: Due to macro mishandling of ONLY_STANDARD_ESCAPES. |
5e1e0414 | 40 | setup_xfail "avr-*" "cris-*" "crisv32-*" "msp430-*" |
bcd93207 AM |
41 | |
42 | # These fail due to NO_STRING_ESCAPES | |
43 | setup_xfail "powerpc*-*-aix*" "powerpc*-*-beos*" "powerpc*-*-macos*" | |
6c71dbc4 | 44 | setup_xfail "powerpc*-*-pe" "powerpc*-*-*win*" |
63ba7a1c | 45 | setup_xfail "rs6000-*-*" |
3c9b82ba | 46 | setup_xfail "z80-*-*" |
bcd93207 | 47 | |
6e917903 | 48 | # FIXME: Due to difference in what "consecutive octets" means. |
48c5eb8a | 49 | setup_xfail "*c4x*-*-*" "*c54x*-*" |
81366cb8 AM |
50 | run_dump_test strings |
51 | } | |
fdf63aff HPN |
52 | |
53 | run_dump_test app1 | |
54 | run_dump_test app2 | |
55 | run_dump_test app3 | |
56 | run_dump_test app4 | |
057f53c1 JB |
57 | |
58 | run_list_test badarg "" | |
dfeb0666 | 59 | |
5e75c3ab JB |
60 | case $target_triplet in { |
61 | { *c54x*-*-* } { } | |
62 | { *c4x*-*-* } { } | |
63 | { h8500-*-* } { } | |
64 | { m68*-*-* } { } | |
65 | { m88*-*-* } { } | |
66 | { mmix-* } { } | |
3c9b82ba | 67 | { z80-* } { } |
5e75c3ab JB |
68 | default { run_list_test dot "-alm" } |
69 | } | |
057f53c1 | 70 | run_list_test end "" |
e6ca91be | 71 | run_list_test purge "--hash-size=8000" |
057f53c1 | 72 | run_list_test redef "" |
0e31b3e1 JB |
73 | |
74 | # This test is valid only when '!' is not a comment character | |
75 | # (it is allowed to be a line comment character). | |
76 | if [string match "" [lindex [gas_run ../all/excl.s "-o /dev/null" ""] 0]] { | |
77 | run_dump_test paren | |
78 | } |