1 |
38 |
julius |
# Copyright (C) 1993, 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2007
|
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 |
|
|
# Please email any bugs, comments, and/or additions to this file to:
|
19 |
|
|
# dejagnu@gnu.org
|
20 |
|
|
|
21 |
|
|
# Written by the Center for Software Science at the University of Utah
|
22 |
|
|
# and by Cygnus Support.
|
23 |
|
|
|
24 |
|
|
proc do_string_tests {} {
|
25 |
|
|
set testname "stringer.s: Test embedded quotes and octal escapes in strings"
|
26 |
|
|
set x 0
|
27 |
|
|
|
28 |
|
|
gas_start "stringer.s" "-al"
|
29 |
|
|
|
30 |
|
|
# Instead of having a variable for each match string just increment the
|
31 |
|
|
# total number of matches seen. That's simpler when testing large numbers
|
32 |
|
|
# of instructions (as these tests to).
|
33 |
|
|
while 1 {
|
34 |
|
|
expect {
|
35 |
|
|
-re "^ +\[0-9\]+ 0000 23696E63\[^\n\]*\n" { set x [expr $x+1] }
|
36 |
|
|
-re "^ +\[0-9\]+ 6C756465\[^\n\]*\n" { set x [expr $x+1] }
|
37 |
|
|
-re "^ +\[0-9\]+ 6B2E6465\[^\n\]*\n" { set x [expr $x+1] }
|
38 |
|
|
-re "^ +\[0-9\]+ 66220A00\[^\n\]*\n" { set x [expr $x+1] }
|
39 |
|
|
-re "^ +\[0-9\]+ 0014 09307831\[^\n\]*\n" { set x [expr $x+1] }
|
40 |
|
|
-re "^ +\[0-9\]+ 3233\[^\n\]*\n" { set x [expr $x+1] }
|
41 |
|
|
-re "\[^\n\]*\n" { }
|
42 |
|
|
timeout { perror "timeout\n"; break }
|
43 |
|
|
eof { break }
|
44 |
|
|
}
|
45 |
|
|
}
|
46 |
|
|
|
47 |
|
|
# This was intended to do any cleanup necessary. It kinda looks like it
|
48 |
|
|
# isn't needed, but just in case, please keep it in for now.
|
49 |
|
|
gas_finish
|
50 |
|
|
|
51 |
|
|
# Did we find what we were looking for? If not, flunk it.
|
52 |
|
|
if [expr $x==6] then { pass $testname } else { fail $testname }
|
53 |
|
|
}
|
54 |
|
|
|
55 |
|
|
proc do_lsel_test {} {
|
56 |
|
|
set testname "lselbugs.s: lselbug"
|
57 |
|
|
set x 0
|
58 |
|
|
|
59 |
|
|
gas_start "lselbug.s" "-al"
|
60 |
|
|
|
61 |
|
|
# Make sure we correctly handle field selectors.
|
62 |
|
|
while 1 {
|
63 |
|
|
expect {
|
64 |
|
|
-re "^ +\[0-9\]+ 0000 22A04000\[^\n\]*\n" { set x [expr $x+1] }
|
65 |
|
|
-re "^ +\[0-9\]+ 0004 36B50100\[^\n\]*\n" { set x [expr $x+1] }
|
66 |
|
|
-re "^ +\[0-9\]+ 0008 22A04000\[^\n\]*\n" { set x [expr $x+1] }
|
67 |
|
|
-re "^ +\[0-9\]+ 000c 36B50100\[^\n\]*\n" { set x [expr $x+1] }
|
68 |
|
|
-re "\[^\n\]*\n" { }
|
69 |
|
|
timeout { perror "timeout\n"; break }
|
70 |
|
|
eof { break }
|
71 |
|
|
}
|
72 |
|
|
}
|
73 |
|
|
|
74 |
|
|
# This was intended to do any cleanup necessary. It kinda looks like it
|
75 |
|
|
# isn't needed, but just in case, please keep it in for now.
|
76 |
|
|
gas_finish
|
77 |
|
|
|
78 |
|
|
# Did we find what we were looking for? If not, flunk it.
|
79 |
|
|
if [expr $x==4] then { pass $testname } else { fail $testname }
|
80 |
|
|
}
|
81 |
|
|
|
82 |
|
|
proc do_valid_align_tests {} {
|
83 |
|
|
set testname "align1.s: valid alignment tests"
|
84 |
|
|
set x 0
|
85 |
|
|
|
86 |
|
|
gas_start "align1.s" "-al"
|
87 |
|
|
|
88 |
|
|
# Make sure we correctly handle field selectors.
|
89 |
|
|
while 1 {
|
90 |
|
|
expect {
|
91 |
|
|
-re "^ +\[0-9\]+ 0000 08000240\[^\n\]*\n" { set x [expr $x+1] }
|
92 |
|
|
-re "^ +\[0-9\]+ 0008 08000240\[^\n\]*\n" { set x [expr $x+1] }
|
93 |
|
|
-re "^ +\[0-9\]+ 1000 08000240\[^\n\]*\n" { set x [expr $x+1] }
|
94 |
|
|
-re "^ +\[0-9\]+ 0000\[^\n\]*BLOCK\[^\n\]*1024\[^\n\]*\n"
|
95 |
|
|
{ set x [expr $x+1] }
|
96 |
|
|
-re "^ +\[0-9\]+ 0400\[^\n\]*BLOCK\[^\n\]*1024\[^\n\]*\n"
|
97 |
|
|
{ set x [expr $x+1] }
|
98 |
|
|
-re "^ +\[0-9\]+ 0800\[^\n\]*BLOCK\[^\n\]*4\[^\n\]*\n"
|
99 |
|
|
{ set x [expr $x+1] }
|
100 |
|
|
-re "^ +\[0-9\]+ 0804\[^\n\]*ALIGN\[^\n\]*8\[^\n\]*\n"
|
101 |
|
|
{ set x [expr $x+1] }
|
102 |
|
|
-re "^ +\[0-9\]+ 0808\[^\n\]*BLOCK\[^\n\]*30\[^\n\]*\n"
|
103 |
|
|
{ set x [expr $x+1] }
|
104 |
|
|
-re "^ +\[0-9\]+ 0826\[^\n\]*ALIGN\[^\n\]*4\[^\n\]*\n"
|
105 |
|
|
{ set x [expr $x+1] }
|
106 |
|
|
-re "^ +\[0-9\]+ 0828\[^\n\]*BLOCK\[^\n\]*4\[^\n\]*\n"
|
107 |
|
|
{ set x [expr $x+1] }
|
108 |
|
|
-re "\[^\n\]*\n" { }
|
109 |
|
|
timeout { perror "timeout\n"; break }
|
110 |
|
|
eof { break }
|
111 |
|
|
}
|
112 |
|
|
}
|
113 |
|
|
|
114 |
|
|
# This was intended to do any cleanup necessary. It kinda looks like it
|
115 |
|
|
# isn't needed, but just in case, please keep it in for now.
|
116 |
|
|
gas_finish
|
117 |
|
|
|
118 |
|
|
# Did we find what we were looking for? If not, flunk it.
|
119 |
|
|
if [expr $x==10] then { pass $testname } else { fail $testname }
|
120 |
|
|
}
|
121 |
|
|
|
122 |
|
|
if [istarget hppa*-*-*] then {
|
123 |
|
|
if { ![istarget hppa*-*-linux*]
|
124 |
|
|
&& ![istarget hppa*-*-netbsd*] } {
|
125 |
|
|
# GAS-2.0 does not always parse ! as a line separator when it should.
|
126 |
|
|
setup_xfail hppa*-*-*
|
127 |
|
|
}
|
128 |
|
|
gas_test "linesepbug.s" "" "" "line separator bug"
|
129 |
|
|
|
130 |
|
|
# Make sure GAS accepts syntax for accessing static data.
|
131 |
|
|
gas_test "global.s" "" "" "check for sym-\$global\$ acceptance"
|
132 |
|
|
|
133 |
|
|
# GAS-2.0 (and 1.36 for that matter) can not handle a .proc which
|
134 |
|
|
# has no label before it.
|
135 |
|
|
gas_test "procbug.s" "" "" "Label following .proc"
|
136 |
|
|
|
137 |
|
|
# One is required to explicitly IMPORT any non-local symbol used
|
138 |
|
|
# in an assembly file. Make sure we give an error if we use
|
139 |
|
|
# an undefined symbol.
|
140 |
|
|
setup_xfail hppa*-*-*
|
141 |
|
|
gas_test_error "undefbug.s" "" "Check for error when using undefined symbol"
|
142 |
|
|
|
143 |
|
|
# This file has code and assembler directives before switching into any
|
144 |
|
|
# space/subspace pair. This should report an error for SOM (it is not
|
145 |
|
|
# an error for ELF. The file also has mismatched entry/exit and
|
146 |
|
|
# proc/procend pairs which are errors for both SOM and ELF.
|
147 |
|
|
gas_test_error "nosubspace.s" "" "Check for error(s) in input file "
|
148 |
|
|
|
149 |
|
|
# This file should return errors for both the ENTRY_GR and ENTRY_FR
|
150 |
|
|
# directives (they are out-of-range)
|
151 |
|
|
gas_test_error "entrybug.s" "" "Check for error on entry_gr and entry_fr"
|
152 |
|
|
|
153 |
|
|
# Make sure embedded quotes and octal escapes in strings work
|
154 |
|
|
do_string_tests
|
155 |
|
|
|
156 |
|
|
# Make sure we do not die on a .version directive
|
157 |
|
|
gas_test "versionbug.s" "" "" ".version directive"
|
158 |
|
|
|
159 |
|
|
# Make sure we give an error on a bogus .space directive.
|
160 |
|
|
# recent version of gas2 went into infinite loops printing
|
161 |
|
|
# errors on this test.
|
162 |
|
|
gas_test_error "spacebug.s" "" "Check for error on bogus .space directive"
|
163 |
|
|
|
164 |
|
|
# GAS should give an error for this test.
|
165 |
|
|
gas_test_error "calldatabug.s" "" "Check for invalid aguments on .call"
|
166 |
|
|
|
167 |
|
|
# Old versions of gas incorrectly gave errors on some valid .EXPORT lines
|
168 |
|
|
gas_test "exportbug.s" "" "" "syntax check for an old .EXPORT bug"
|
169 |
|
|
|
170 |
|
|
# Old versions of gas choked on this file for some reason
|
171 |
|
|
gas_test "fixup7bug.s" "" "" "check for old \"fixup7\" gas bug"
|
172 |
|
|
|
173 |
|
|
# Test an L% selector parsing bug which existed in gas-1.36
|
174 |
|
|
do_lsel_test
|
175 |
|
|
|
176 |
|
|
# First check how some valid alignments are handled.
|
177 |
|
|
do_valid_align_tests
|
178 |
|
|
|
179 |
|
|
# Now check to make sure an invalid argument is flagged as an error.
|
180 |
|
|
gas_test_error "align2.s" "" "Check for error on bogus argument to .align"
|
181 |
|
|
|
182 |
|
|
# GAS can't handle upper bound for a PA .block[z] directive
|
183 |
|
|
setup_xfail hppa*-*-*
|
184 |
|
|
gas_test "block1.s" "" "" "Check min/max values for .block"
|
185 |
|
|
|
186 |
|
|
# Now check for an invalid argument
|
187 |
|
|
gas_test_error "block2.s" "" "Check for error on bogus argument to .block"
|
188 |
|
|
|
189 |
|
|
# GAS-1.36 choked on this file.
|
190 |
|
|
# FIXME. Should check relocations made for this test!
|
191 |
|
|
gas_test "exprbug.s" "" "" "Check for sym1-sym2 acceptance"
|
192 |
|
|
|
193 |
|
|
# Bad things happen in the PA ELF backend (others too?) if a non-default
|
194 |
|
|
# section is created...
|
195 |
|
|
setup_xfail "hppa*-*-*elf*" "hppa*-*-linux*" "hppa*64*-*-*"
|
196 |
|
|
gas_test "ssbug.s" "" "" "Check for acceptance of non-default subspaces"
|
197 |
|
|
|
198 |
|
|
# To be compatable with certain "features" of the HP compiler
|
199 |
|
|
# non-existant registers should default to %r0.
|
200 |
|
|
gas_test "defbug.s" "" "" "Missing register should default to %%r0"
|
201 |
|
|
|
202 |
|
|
# Make sure GAS understands a reasonable set of standard predefined
|
203 |
|
|
# registers. eg %rp, %dp, %sp, etc.
|
204 |
|
|
gas_test "stdreg.s" "" "" "Test standard predefined registers"
|
205 |
|
|
|
206 |
|
|
# Make sure GAS will accept a label without a colon.
|
207 |
|
|
setup_xfail "hppa*-*-linux*"
|
208 |
|
|
gas_test "labelbug.s" "" "" "Test label without colon"
|
209 |
|
|
|
210 |
|
|
# Make sure we grok # line directives.
|
211 |
|
|
gas_test "appbug.s" "" "" "Test acceptance of #line directives"
|
212 |
|
|
|
213 |
|
|
# Make sure we give errors if a floating point format is specified
|
214 |
|
|
# for an xmpyu instruction (integer multiple)
|
215 |
|
|
gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to xmpyu"
|
216 |
|
|
|
217 |
|
|
# Make sure gas handles various kinds of .reg pseudo-ops
|
218 |
|
|
gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
|
219 |
|
|
|
220 |
|
|
# Check some bugs that have appeared in parsing .callinfo directives
|
221 |
|
|
gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"
|
222 |
|
|
|
223 |
|
|
# Check for bogus registers in single precision fmpyadd/fmpysub
|
224 |
|
|
# instructions
|
225 |
|
|
gas_test_error "badfmpyadd.s" "" "Check for error on bad fmpyadd insn"
|
226 |
|
|
|
227 |
|
|
# Make sure we grok spaces in directives.
|
228 |
|
|
gas_test "space.s" "" "" "Test acceptance of spaces in directives"
|
229 |
|
|
}
|
230 |
|
|
|