* lib/gas-defs.exp (objdump): New proc.

(objdump_start): Deleted unused proc.
(objdump_start_common): Merged into objdump_start_no_subdir.

* gas/alpha/fp.exp: Use objdump instead of objdump_start_no_subdir, since the
former actually waits for objdump to finish.  Specify .rdata section only.
Make comment indicate Alpha architecture rather than SPARC.
* gas/alpha/fp.d: Omit .reginfo patterns.  Just use "." to match
against ASCII code 0x2a ("*", special in regexp).
* gas/sun4/addend.exp: Use objdump instead of objdump_start_no_subdir.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index a4f78fab984b3ed55943886f70a9c651c4dde72c..5513c7dbfc4bec37468f495072ff078ee4d29131 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,18 @@
+Mon Feb 28 14:10:04 1994  Ken Raeburn  (raeburn@cujo.cygnus.com)
+
+       * lib/gas-defs.exp (objdump): New proc.
+       (objdump_start): Deleted unused proc.
+       (objdump_start_common): Merged into objdump_start_no_subdir.
+
+       * gas/alpha/fp.exp: Use objdump instead of
+       objdump_start_no_subdir, since the former actually waits for
+       objdump to finish.  Specify .rdata section only.  Make comment
+       indicate Alpha architecture rather than SPARC.
+       * gas/alpha/fp.d: Omit .reginfo patterns.  Just use "." to match
+       against ASCII code 0x2a ("*", special in regexp).
+       * gas/sun4/addend.exp: Use objdump instead of
+       objdump_start_no_subdir.
+
 Thu Feb 24 07:11:57 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
         * gas/hppa/more.parse/parse.exp (no subspace test): Only expect

diff --git a/gas/testsuite/gas/alpha/fp.exp b/gas/testsuite/gas/alpha/fp.exp
index 5517dcf21b9c1b264ba14d004a7ded44f7eb695a..4969f38124c1e9cb3368c6ca994f0192e434bfb5 100644 (file)
--- a/gas/testsuite/gas/alpha/fp.exp
+++ b/gas/testsuite/gas/alpha/fp.exp
@@ -1,12 +1,11 @@
 #
-# SunOS4 on SPARC tests
+# Alpha OSF/1 tests
 #
 
 if [istarget alpha-*-osf1*] then {
     set testname "fp constants (part 2)"
     if [gas_test_old "fp.s" "" "fp constants (part 1)"] then {
-       objdump_start_no_subdir "a.out > a.dump" "-s"
-       objdump_finish
+       objdump "-s -j .rdata > a.dump"
        if { [regexp_diff "a.dump" "$srcdir/$subdir/fp.d"] == 0 } then {
            pass $testname
        } else {

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index d666f05d9c621b1cd051575ad6d0d03e09894850..1ea3512892208aa9cfb4e0b89d7f9e8c00320c61 100644 (file)
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 Free Software Foundation, Inc.
+# Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -171,30 +171,28 @@ proc gas_init {} {
     return
 }
 
-proc objdump_start_common { prog objdump_opts prefix } {
+proc objdump { opts } {
+    global OBJDUMP
+    global comp_output
+
+    catch "exec $OBJDUMP $opts" comp_output
+    verbose "objdump output=$comp_output\n" 3
+}
+
+proc objdump_start_no_subdir { prog opts } {
     global OBJDUMP
     global srcdir
     global spawn_id
 
-    verbose "Starting $OBJDUMP $objdump_opts $prog" 2
+    verbose "Starting $OBJDUMP $opts $prog" 2
     catch {
-       spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $objdump_opts $prefix$prog
+       spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $opts $prog
     } foo
     if ![regexp {^[0-9]+} $foo] then {
        error "Can't run $prog: $foo"
     }
 }
 
-proc objdump_start { prog opts } {
-       global subdir
-       global objdir
-       objdump_start_common $prog $opts "$objdir/$subdir/"
-}
-
-proc objdump_start_no_subdir { prog opts } {
-       objdump_start_common $prog $opts ""
-}
-
 proc objdump_finish { } {
     global spawn_id
 
@@ -207,3 +205,66 @@ expect_after {
     buffer_full                        { error "buffer full" }
     eof                                { error "eof" }
 }
+
+# regexp_diff, based on simple_diff taken from ld test suite
+#      compares two files line-by-line
+#      file1 contains strings, file2 contains regexps and #-comments
+#      blank lines are ignored in either file
+#      returns non-zero if differences exist
+#
+proc regexp_diff { file_1 file_2 } {
+
+    set eof -1
+    set end 0
+    set differences 0
+    
+    if [file exists $file_1] then {
+       set file_a [open $file_1 r]
+    } else {
+       warning "$file_1 doesn't exist"
+       return
+    }
+    
+    if [file exists $file_2] then {
+       set file_b [open $file_2 r]
+    } else {
+       fail "$file_2 doesn't exist"
+       close $file_a
+       return
+    }
+    
+    verbose " Regexp-diff'ing: $file_1 $file_2" 2
+    
+    while { $differences == 0 && $end == 0 } {
+       set line_a ""
+       set line_b ""
+       while { [string length $line_a] == 0 } {
+           if { [gets $file_a line_a] == $eof } {
+               set end 1
+               break
+           }
+       }
+       while { [string length $line_b] == 0 || [string match "#*" $line_b] } {
+           if { [gets $file_b line_b] == $eof } {
+               set end 1
+               break
+           }
+       }
+       if { $end } { break }
+       verbose "regexp \"^$line_b$\"\nline   \"$line_a\"" 3
+       if [regexp "^$line_b$" "$line_a\n"] {
+               verbose "no match" 3
+               set differences 1
+       }
+    }
+
+    if { $differences == 0 && [eof $file_a] != [eof $file_b] } {
+       verbose "different lengths" 3
+       set differences 1
+    }
+
+    close $file_a
+    close $file_b
+
+    return $differences
+}