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"
70 # Might also need a wait here one day.
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 proc objdump { opts } {
179 catch "exec $OBJDUMP $opts" comp_output
180 verbose "objdump output=$comp_output\n" 3
183 proc objdump_start_no_subdir { prog opts } {
188 verbose "Starting $OBJDUMP $opts $prog" 2
190 spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $opts $prog
192 if ![regexp {^[0-9]+} $foo] then {
193 perror "Can't run $prog: $foo"
197 proc objdump_finish { } {
201 # Might also need a wait here one day.
205 timeout { perror "timeout" }
206 "virtual memory exhausted" { perror "virtual memory exhausted" }
207 buffer_full { perror "buffer full" }
211 # regexp_diff, based on simple_diff taken from ld test suite
212 # compares two files line-by-line
213 # file1 contains strings, file2 contains regexps and #-comments
214 # blank lines are ignored in either file
215 # returns non-zero if differences exist
217 proc regexp_diff { file_1 file_2 } {
223 if [file exists $file_1] then {
224 set file_a [open $file_1 r]
226 warning "$file_1 doesn't exist"
230 if [file exists $file_2] then {
231 set file_b [open $file_2 r]
233 fail "$file_2 doesn't exist"
238 verbose " Regexp-diff'ing: $file_1 $file_2" 2
240 while { $differences == 0 && $end == 0 } {
243 while { [string length $line_a] == 0 } {
244 if { [gets $file_a line_a] == $eof } {
249 while { [string length $line_b] == 0 || [string match "#*" $line_b] } {
250 if { [gets $file_b line_b] == $eof } {
255 if { $end } { break }
256 verbose "regexp \"^$line_b$\"\nline \"$line_a\"" 3
257 if [regexp "^$line_b$" "$line_a\n"] {
263 if { $differences == 0 && [eof $file_a] != [eof $file_b] } {
264 verbose "different lengths" 3