From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Thu, 10 Jul 2008 20:16:27 +0000 (+0000)
Subject: 	* gdb.base/randomize.exp: Remove dependency on tcl-8.4+.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=981505ef9aa495c8c67d1c9623c7ad3b586d678b;p=binutils-gdb.git

	* gdb.base/randomize.exp: Remove dependency on tcl-8.4+.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index eff1245e1b4..8510e3f0b95 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.
diff --git a/gdb/testsuite/gdb.base/randomize.exp b/gdb/testsuite/gdb.base/randomize.exp
index b69412f6cd3..9cbdd7b3fb5 100644
--- a/gdb/testsuite/gdb.base/randomize.exp
+++ b/gdb/testsuite/gdb.base/randomize.exp
@@ -65,7 +65,7 @@ gdb_test "show disable-randomization"	      \
 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 @@ gdb_test "show disable-randomization"	      \
 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