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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index eff1245..8510e3f 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -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>

diff --git a/gdb/testsuite/gdb.base/randomize.exp b/gdb/testsuite/gdb.base/randomize.exp
index b69412f..9cbdd7b 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