This is the mail archive of the binutils@sourceware.org mailing list for the binutils 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]

[PATCH] binutils testsuite fix for tcl8.3


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 ? "  " : "" }]


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