darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Jan Kratochvil 2008-07-10 20:16:27 +00:00
parent a4fafde38f
commit 981505ef9a
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gdb/testsuite/ChangeLog
View file

@ -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.

4
gdb/testsuite/gdb.base/randomize.exp
View file

@ -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