This is the mail archive of the
binutils@sourceware.org
mailing list for the binutils project.
[PATCH] binutils testsuite fix for tcl8.3
- From: John David Anglin <dave at hiauly1 dot hia dot nrc dot ca>
- To: binutils at sourceware dot org
- Date: Fri, 31 Dec 2010 12:24:58 -0500
- Subject: [PATCH] binutils testsuite fix for tcl8.3
- Reply-to: John David Anglin <dave dot anglin at nrc-cnrc dot gc dot ca>
The attached change fixes a problem running the binutils testsuites
with tcl8.3. It doesn't support "eq".
Ok?
Dave
--
J. David Anglin dave.anglin@nrc-cnrc.gc.ca
National Research Council of Canada (613) 990-0752 (FAX: 952-6602)
2010-12-31 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
Index: binutils/testsuite/lib/binutils-common.exp
===================================================================
RCS file: /cvs/src/src/binutils/testsuite/lib/binutils-common.exp,v
retrieving revision 1.3
diff -u -3 -p -r1.3 binutils-common.exp
--- binutils/testsuite/lib/binutils-common.exp 9 Dec 2010 23:57:21 -0000 1.3
+++ binutils/testsuite/lib/binutils-common.exp 31 Dec 2010 17:12:35 -0000
@@ -237,7 +237,7 @@ proc regexp_diff { file_1 file_2 args }
set diff_pass 1
break
}
- set negated [expr { [string index $line_b 0] eq "!" }]
+ set negated [expr { [string index $line_b 0] == "!" }]
set line_bx [string range $line_b $negated end]
set n [expr { $negated ? "! " : "" }]
# Substitute on the reference.
@@ -275,7 +275,7 @@ proc regexp_diff { file_1 file_2 args }
set differences 1
break
} else {
- set negated [expr { [string index $line_b 0] eq "!" }]
+ set negated [expr { [string index $line_b 0] == "!" }]
set line_bx [string range $line_b $negated end]
set n [expr { $negated ? "! " : "" }]
set s [expr { $negated ? " " : "" }]