diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2008-07-10 20:16:27 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2008-07-10 20:16:27 +0000 |
| commit | 981505ef9aa495c8c67d1c9623c7ad3b586d678b (patch) | |
| tree | a4b2de03582e28f4a96fa4f6c64fb5c1403fef07 /gdb/testsuite/gdb.base/randomize.exp | |
| parent | a4fafde38f06a1fc4255d267728c46c46d11ecdc (diff) | |
| download | gdb-981505ef9aa495c8c67d1c9623c7ad3b586d678b.zip gdb-981505ef9aa495c8c67d1c9623c7ad3b586d678b.tar.gz gdb-981505ef9aa495c8c67d1c9623c7ad3b586d678b.tar.bz2 | |
* gdb.base/randomize.exp: Remove dependency on tcl-8.4+.
Diffstat (limited to 'gdb/testsuite/gdb.base/randomize.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/randomize.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.base/randomize.exp b/gdb/testsuite/gdb.base/randomize.exp index b69412f..9cbdd7b 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 |