From 981505ef9aa495c8c67d1c9623c7ad3b586d678b Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Thu, 10 Jul 2008 20:16:27 +0000 Subject: [PATCH] * gdb.base/randomize.exp: Remove dependency on tcl-8.4+. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.base/randomize.exp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * gdb.base/randomize.exp: Remove dependency on tcl-8.4+. + 2008-07-10 Jan Kratochvil * 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 -- 2.30.2