This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[tree-ssa] Fix for testresults bug 10819


On Sun, Dec 07, 2003 at 10:31:03PM +0100, Robert Schiele wrote:
> Hi!
> 
> The following patch fixes bug 10819.  Full bootstrap tests on Linux system
> will be done in a few hours automatically.  Testing on other platforms
> (especially Windows and MacOS) would be appreciated.

The same patch for tree-ssa.  A separate patch is needed because tree-ssa has
an additional testsuite for gfortran that also has to be fixed.

Someone responsible for the testsuite on tree-ssa branch test suite please
apply this patch.

	* lib/gcc.exp (default_gcc_version): Do not match NL/CR characters
	to fix Bug 10819.
	* lib/g++.exp (g++_version): Likewise.
	* lib/g77.exp (g77_version): Likewise.
	* lib/gfortran.exp (gfortran_version): Likewise.
	* lib/objc.exp (default_objc_version): Likewise.

Index: gcc/testsuite/lib/g++.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/g++.exp,v
retrieving revision 1.26.2.6
diff -c -r1.26.2.6 g++.exp
*** gcc/testsuite/lib/g++.exp	25 Nov 2003 02:11:32 -0000	1.26.2.6
--- gcc/testsuite/lib/g++.exp	31 Dec 2003 13:50:11 -0000
***************
*** 49,55 ****
  	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 {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
--- 49,55 ----
  	set tmp [remote_exec host "$compiler -v"]
  	set status [lindex $tmp 0];
  	set output [lindex $tmp 1];
! 	regexp "version\[^\n\r\]*" $output version
  	if { $status == 0 && [info exists version] } then {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
Index: gcc/testsuite/lib/g77.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/g77.exp,v
retrieving revision 1.14.2.2
diff -c -r1.14.2.2 g77.exp
*** gcc/testsuite/lib/g77.exp	25 Nov 2003 02:11:32 -0000	1.14.2.2
--- gcc/testsuite/lib/g77.exp	31 Dec 2003 13:50:11 -0000
***************
*** 50,56 ****
  	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 {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
--- 50,56 ----
  	set tmp [remote_exec host "$compiler -v"]
  	set status [lindex $tmp 0];
  	set output [lindex $tmp 1];
! 	regexp "version\[^\n\r\]*" $output version
  	if { $status == 0 && [info exists version] } then {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
Index: gcc/testsuite/lib/gcc.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/gcc.exp,v
retrieving revision 1.8.6.3
diff -c -r1.8.6.3 gcc.exp
*** gcc/testsuite/lib/gcc.exp	21 Jul 2003 13:52:32 -0000	1.8.6.3
--- gcc/testsuite/lib/gcc.exp	31 Dec 2003 13:50:11 -0000
***************
*** 56,62 ****
  	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 {
  	    clone_output "$compiler_name $version\n"
  	} else {
--- 56,62 ----
  	set tmp [remote_exec host "$compiler -v"]
  	set status [lindex $tmp 0];
  	set output [lindex $tmp 1];
! 	regexp "version\[^\n\r\]*" $output version
  	if { $status == 0 && [info exists version] } then {
  	    clone_output "$compiler_name $version\n"
  	} else {
Index: gcc/testsuite/lib/gfortran.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/Attic/gfortran.exp,v
retrieving revision 1.1.2.1
diff -c -r1.1.2.1 gfortran.exp
*** gcc/testsuite/lib/gfortran.exp	26 Jul 2003 16:27:50 -0000	1.1.2.1
--- gcc/testsuite/lib/gfortran.exp	31 Dec 2003 13:50:11 -0000
***************
*** 50,56 ****
  	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 {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
--- 50,56 ----
  	set tmp [remote_exec host "$compiler -v"]
  	set status [lindex $tmp 0];
  	set output [lindex $tmp 1];
! 	regexp "version\[^\n\r\]*" $output version
  	if { $status == 0 && [info exists version] } then {
  	    if [is_remote host] {
  		clone_output "$compiler $version\n"
Index: gcc/testsuite/lib/objc.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/objc.exp,v
retrieving revision 1.13.2.6
diff -c -r1.13.2.6 objc.exp
*** gcc/testsuite/lib/objc.exp	25 Nov 2003 02:11:32 -0000	1.13.2.6
--- gcc/testsuite/lib/objc.exp	31 Dec 2003 13:50:11 -0000
***************
*** 56,62 ****
  	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 {
  	    clone_output "$compiler_name $version\n"
  	} else {
--- 56,62 ----
  	set tmp [remote_exec host "$compiler -v"]
  	set status [lindex $tmp 0];
  	set output [lindex $tmp 1];
! 	regexp "version\[^\n\r\]*" $output version
  	if { $status == 0 && [info exists version] } then {
  	    clone_output "$compiler_name $version\n"
  	} else {

Robert

-- 
Robert Schiele			Tel.: +49-621-181-2517
Dipl.-Wirtsch.informatiker	mailto:rschiele@uni-mannheim.de

Attachment: pgp00000.pgp
Description: PGP signature


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]