This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Committed, libffi testsuite: fix for Tcl 8.3 in regsub usage
- From: Hans-Peter Nilsson <hans-peter dot nilsson at axis dot com>
- To: gcc-patches at gcc dot gnu dot org, java-patches at gcc dot gnu dot org
- Date: Wed, 20 Apr 2005 13:00:55 +0200
- Subject: Committed, libffi testsuite: fix for Tcl 8.3 in regsub usage
Tcl 8.3 doesn't return the substituted string and requires the
use of a variable. In Tcl 8.4, the variable is optional.
Sorry to all (other occasional) users of Tcl 8.3!
This is now like other regsub uses in the gcc testsuite.
I also missed updating copyright years in the last patch.
Committed as obvious. Tested Tcl8.4 too of course.
* testsuite/lib/libffi-dg.exp (libffi-dg-test-1): In regsub use,
have Tcl8.3-compatible intermediate variable.
Index: libffi-dg.exp
===================================================================
RCS file: /cvs/gcc/gcc/libffi/testsuite/lib/libffi-dg.exp,v
retrieving revision 1.12
diff -u -p -r1.12 libffi-dg.exp
--- libffi-dg.exp 18 Apr 2005 16:31:10 -0000 1.12
+++ libffi-dg.exp 20 Apr 2005 10:50:51 -0000
@@ -1,4 +1,4 @@
-# Copyright (C) 2003 Free Software Foundation, Inc.
+# Copyright (C) 2003, 2005 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
@@ -40,7 +40,7 @@ proc libffi-dg-test-1 { target_compile p
upvar 2 dg-output-text output_match
if { [llength $output_match] > 1 } {
- set x [regsub -all "\n" [lindex $output_match 1] "\r?\n"]
+ regsub -all "\n" [lindex $output_match 1] "\r?\n" x
set output_match [lreplace $output_match 1 1 $x]
}
brgds, H-P