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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index eff1245e1b41bdf2bd8c15060363e77491721e75..8510e3f0b9561ae001357f19b73f19d37b302493 100644 (file)
--- 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 b69412f6cd3b491e43281bf7cbd213dd6cab7f5b..9cbdd7b3fb50438e103e383422645ce8dbd702a3 100644 (file)
--- 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