diff options
| author | Jeffrey A Law <law@cygnus.com> | 1998-06-27 23:39:42 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-06-27 17:39:42 -0600 |
| commit | a2c15e736d509d6213481b8bd1a2f77d4ac71b76 (patch) | |
| tree | 6a8f09b3d4d6cb6a4268223e006feeab95f4e2a9 /gcc | |
| parent | 0bef9b8d880c9d6288e826c6526cf047bfe1ec27 (diff) | |
| download | gcc-a2c15e736d509d6213481b8bd1a2f77d4ac71b76.zip gcc-a2c15e736d509d6213481b8bd1a2f77d4ac71b76.tar.gz gcc-a2c15e736d509d6213481b8bd1a2f77d4ac71b76.tar.bz2 | |
g77.exp (default_g77_version): Tweak to make it work in a build directory when nothing has been installed yet.
* lib/g77.exp (default_g77_version): Tweak to make it work in a build
directory when nothing has been installed yet.
From-SVN: r20774
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/g77.exp | 13 |
2 files changed, 12 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e1d94e5..27da44a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Sun Jun 28 00:37:26 1998 Jeffrey A Law (law@cygnus.com) + + * lib/g77.exp (default_g77_version): Tweak to make it work in a build + directory when nothing has been installed yet. + Sat Jun 27 23:23:18 1998 Carlo Wood <carlo@runaway.xs4all.nl> * gcc.c-torture/special/special.exp: Handle newer versions of diff --git a/gcc/testsuite/lib/g77.exp b/gcc/testsuite/lib/g77.exp index d4993e7..3b2beb3 100644 --- a/gcc/testsuite/lib/g77.exp +++ b/gcc/testsuite/lib/g77.exp @@ -51,14 +51,15 @@ proc default_g77_version { } { # verify that the compiler exists if { $compiler_name != 0 } then { - set tmp [remote_exec host "$compiler -v"] - set status [lindex $tmp 0]; - set output [lindex $tmp 1]; - regexp "version.*$" $output version - if { $status == 0 && [info exists version] } then { + set options "" + + lappend options "additional_flags=-v" + set tmp [g77_target_compile "" "" "none" $options] + regexp "g77 version\[^\n\]*" $tmp version + if { [info exists version] } then { clone_output "$compiler_name $version\n" } else { - clone_output "Couldn't determine version of $compiler_name: $output\n" + clone_output "Couldn't determine version of $compiler_name: $tmp\n" } } else { # compiler does not exist (this should have already been detected) |