This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[ob] gdb.base/randomize.exp tcl-8.4+ dependency fix
- From: Jan Kratochvil <jan dot kratochvil at redhat dot com>
- To: gdb-patches at sourceware dot org
- Date: Thu, 10 Jul 2008 22:23:22 +0200
- Subject: [ob] gdb.base/randomize.exp tcl-8.4+ dependency fix
Hi,
committed a simple fix as my testcase had a tcl-8.4+ dependency on its `eq'.
http://www.tcl.tk/man/tcl8.3/TclCmd/expr.htm
http://www.tcl.tk/man/tcl8.4/TclCmd/expr.htm
Bugreported by Pedro Alves.
Regards,
Jan
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/ChangeLog,v
retrieving revision 1.1675
retrieving revision 1.1676
diff -u -r1.1675 -r1.1676
--- src/gdb/testsuite/ChangeLog 2008/07/10 09:31:00 1.1675
+++ src/gdb/testsuite/ChangeLog 2008/07/10 20:16:27 1.1676
@@ -1,5 +1,9 @@
2008-07-10 Jan Kratochvil <jan.kratochvil@redhat.com>
+ * gdb.base/randomize.exp: Remove dependency on tcl-8.4+.
+
+2008-07-10 Jan Kratochvil <jan.kratochvil@redhat.com>
+
* gdb.base/randomize.exp, gdb.base/randomize.c: New files.
2008-07-09 Pedro Alves <pedro@codesourcery.com>
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/randomize.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- src/gdb/testsuite/gdb.base/randomize.exp 2008/07/10 09:31:00 1.1
+++ src/gdb/testsuite/gdb.base/randomize.exp 2008/07/10 20:16:27 1.2
@@ -65,7 +65,7 @@
set addr1 [address_get "randomized first address"]
set addr2 [address_get "randomized second address"]
set test "randomized addresses should not match"
-if {$addr1 eq $addr2} {
+if [string equal $addr1 $addr2] {
untested "No randomization detected on this system"
return -1
} else {
@@ -80,7 +80,7 @@
set addr1 [address_get "fixed first address"]
set addr2 [address_get "fixed second address"]
set test "fixed addresses should match"
-if {$addr1 eq $addr2} {
+if [string equal $addr1 $addr2] {
pass $test
} else {
fail $test