1 # Copyright (C) 1993, 1994 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
17 # Please email any bugs, comments, and/or additions to this file to:
20 # This file was written by Ken Raeburn (raeburn@cygnus.com).
24 catch "exec $AS -version < /dev/null" tmp
25 # Should find a way to discard constant parts, keep whatever's
26 # left, so the version string could be almost anything at all...
27 regexp "version (cygnus-|)\[-0-9.a-zA-Z-\]+" $tmp version
29 clone_output "[which $AS] $version\n"
34 proc gas_run { prog as_opts redir } {
41 verbose "Executing $AS $ASFLAGS $as_opts $prog $redir"
42 catch "exec $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir" comp_output
45 proc all_ones { args } {
46 foreach x $args { if [expr $x!=1] { return 0 } }
50 proc gas_start { prog as_opts } {
57 verbose "Starting $AS $ASFLAGS $as_opts $prog" 2
59 spawn -noecho -nottyinit $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog
61 if ![regexp {^[0-9]+} $foo] then {
62 perror "Can't run $subdir/$prog: $foo"
73 proc want_no_output { testname } {
76 if ![string match "" $comp_output] then {
77 send_log "$comp_output\n"
78 verbose "$comp_output" 3
80 if [string match "" $comp_output] then {
89 proc gas_test_old { file as_opts testname } {
90 gas_run $file $as_opts ""
91 return [want_no_output $testname]
94 proc gas_test { file as_opts var_opts testname } {
98 foreach word $var_opts {
99 set ignore_stdout($i) [string match "*>" $word]
100 set opt($i) [string trim $word {>}]
104 for {set i 0} {[expr $i<$max]} {incr i} {
105 set maybe_ignore_stdout ""
107 for {set bit 0} {(1<<$bit)<$max} {incr bit} {
108 set num [expr 1<<$bit]
109 if [expr $i&$num] then {
110 set extra_opts "$extra_opts $opt($bit)"
111 if $ignore_stdout($bit) then {
112 set maybe_ignore_stdout "1>/dev/null"
116 set extra_opts [string trim $extra_opts]
117 gas_run $file "$as_opts $extra_opts" $maybe_ignore_stdout
119 # Should I be able to use a conditional expression here?
120 if [string match "" $extra_opts] then {
121 want_no_output $testname
123 want_no_output "$testname ($extra_opts)"
126 if [info exists errorInfo] then {
131 proc gas_test_ignore_stdout { file as_opts testname } {
134 gas_run $file $as_opts "2>&1 1>/dev/null"
135 want_no_output $testname
138 proc gas_test_error { file as_opts testname } {
141 gas_run $file $as_opts "2>&1 1>/dev/null"
142 if ![string match "" $comp_output] then {
143 send_log "$comp_output\n"
144 verbose "$comp_output" 3
146 if [string match "" $comp_output] then {
157 global target_cpu_family
163 case "$target_cpu" in {
164 "m68???" { set target_cpu_family m68k }
165 "i[34]86" { set target_cpu_family i386 }
166 default { set target_cpu_family $target_cpu }
169 set target_family "$target_cpu_family-$target_vendor-$target_os"
171 # Need to return an empty string.
175 # For easier reading.
176 proc fail_phase { name phase opts } {
177 set opts [string trim $opts]
179 fail "$name ($phase)"
181 fail "$name ($phase: $opts)"
185 # This proc requires two input files -- the .s file containing the
186 # assembly source, and a .d file containing the expected output from
187 # objdump or nm or whatever, and leading comments indicating any options
188 # to be passed to the assembler or dump program.
189 proc run_dump_test { name } {
192 global OBJDUMPFLAGS NMFLAGS ASFLAGS
194 set file "$srcdir/$subdir/$name"
195 set opt_array [slurp_options "${file}.d"]
202 foreach i $opt_array {
203 set opt_name [lindex $i 0]
204 set opt_val [lindex $i 1]
205 if ![info exists opts($opt_name)] {
206 perror "unknown option $opt_name in file $file.d"
209 if [string length $opts($opt_name)] {
210 perror "option $opt_name multiply set in $file.d"
213 set opts($opt_name) $opt_val
216 if {$opts(PROG) != ""} {
217 switch -- $opts(PROG) {
219 { set program objdump }
223 { perror "unrecognized program option $opts(PROG) in $file.d"
226 } elseif {$opts(objdump) == "" && $opts(nm) != ""} {
228 } elseif {$opts(objdump) != "" && $opts(nm) == ""} {
231 perror "dump program unspecified in $file.d"
234 set progopts1 $opts($program)
235 eval set progopts \$[string toupper $program]FLAGS
236 eval set program \$[string toupper $program]
237 if { $opts(name) == "" } { set testname "$subdir/$name" } else { set testname $opts(name) }
239 catch "exec $srcdir/lib/run $AS $ASFLAGS $opts(as) ${file}.s" comp_output
241 if ![string match "" $comp_output] then {
242 send_log "$comp_output\n"
243 verbose "$comp_output" 3
244 fail_phase $testname assembly "$ASFLAGS $opts(as)"
248 if [catch "exec $program -r > dump.out" comp_output] {
249 fail_phase $testname {running objdump} {-r}
253 if { [regexp_diff "dump.out" "${file}.d"] } then {
254 fail_phase $testname {checking output} "$ASFLAGS $opts(as)"
261 proc slurp_options { file } {
262 if [catch { set f [open $file r] } x] {
263 perror "couldn't open `$file': $x"
266 # whitespace expression
269 # whitespace is ignored anywhere except within the options list;
270 # option names are alphabetic only
271 set pat "^#${ws}(\[a-zA-Z\]*)$ws:${ws}($nws)$ws\$"
272 while { [gets $f line] != -1 } {
273 set line [string trim $line]
274 # Whitespace here is space-tab.
275 if [regexp $pat $line xxx opt_name opt_val] {
277 lappend opt_array [list $opt_name $opt_val]
286 proc objdump { opts } {
290 catch "exec $OBJDUMP $opts" comp_output
291 verbose "objdump output=$comp_output\n" 3
294 proc objdump_start_no_subdir { prog opts } {
299 verbose "Starting $OBJDUMP $opts $prog" 2
301 spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $opts $prog
303 if ![regexp {^[0-9]+} $foo] then {
304 perror "Can't run $prog: $foo"
308 proc objdump_finish { } {
316 timeout { perror "timeout" }
317 "virtual memory exhausted" { perror "virtual memory exhausted" }
318 buffer_full { perror "buffer full" }
322 # regexp_diff, based on simple_diff taken from ld test suite
323 # compares two files line-by-line
324 # file1 contains strings, file2 contains regexps and #-comments
325 # blank lines are ignored in either file
326 # returns non-zero if differences exist
328 proc regexp_diff { file_1 file_2 } {
334 if [file exists $file_1] then {
335 set file_a [open $file_1 r]
337 warning "$file_1 doesn't exist"
341 if [file exists $file_2] then {
342 set file_b [open $file_2 r]
344 fail "$file_2 doesn't exist"
349 verbose " Regexp-diff'ing: $file_1 $file_2" 2
351 while { $differences == 0 && $end == 0 } {
354 while { [string length $line_a] == 0 } {
355 if { [gets $file_a line_a] == $eof } {
360 while { [string length $line_b] == 0 || [string match "#*" $line_b] } {
361 if { [gets $file_b line_b] == $eof } {
366 if { $end } { break }
367 verbose "regexp \"^$line_b$\"\nline \"$line_a\"" 3
368 if ![regexp "^$line_b$" "$line_a"] {
374 if { $differences == 0 && [eof $file_a] != [eof $file_b] } {
375 verbose "different lengths" 3