This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[commit] fix hex clobberage in amd64-{,d}word.exp
- From: dje at google dot com (Doug Evans)
- To: gdb-patches at sourceware dot org
- Date: Tue, 30 Mar 2010 15:28:25 -0700 (PDT)
- Subject: [commit] fix hex clobberage in amd64-{,d}word.exp
Hi.
I checked this in.
$hex contains a regexp for hex numbers.
2010-03-30 Doug Evans <dje@google.com>
* gdb.arch/amd64-word.exp: Rename hex to hexr, the former is defined
by dejagnu.
* gdb.arch/amd64-dword.exp: Ditto.
Index: gdb.arch/amd64-dword.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.arch/amd64-dword.exp,v
retrieving revision 1.1
diff -u -p -r1.1 amd64-dword.exp
--- gdb.arch/amd64-dword.exp 2 Mar 2010 13:14:36 -0000 1.1
+++ gdb.arch/amd64-dword.exp 30 Mar 2010 22:23:57 -0000
@@ -74,9 +74,9 @@ gdb_test "break [gdb_get_line_number "fi
gdb_continue_to_breakpoint "continue to first breakpoint in main"
for { set r 1 } { $r <= 6 } { incr r } {
- set hex [format %x $r]
+ set hexr [format %x $r]
gdb_test "print/x \$$dword_regs($r)" \
- ".. = 0x${hex}4${hex}3${hex}2${hex}1" \
+ ".. = 0x${hexr}4${hexr}3${hexr}2${hexr}1" \
"check contents of %$dword_regs($r)"
}
@@ -86,9 +86,9 @@ gdb_test "break [gdb_get_line_number "se
gdb_continue_to_breakpoint "continue to second breakpoint in main"
for { set r 7 } { $r <= $nr_regs } { incr r } {
- set hex [format %x $r]
+ set hexr [format %x $r]
gdb_test "print/x \$$dword_regs($r)" \
- ".. = 0x${hex}4${hex}3${hex}2${hex}1" \
+ ".. = 0x${hexr}4${hexr}3${hexr}2${hexr}1" \
"check contents of %$dword_regs($r)"
}
Index: gdb.arch/amd64-word.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.arch/amd64-word.exp,v
retrieving revision 1.1
diff -u -p -r1.1 amd64-word.exp
--- gdb.arch/amd64-word.exp 2 Mar 2010 13:14:36 -0000 1.1
+++ gdb.arch/amd64-word.exp 30 Mar 2010 22:23:57 -0000
@@ -74,9 +74,9 @@ gdb_test "break [gdb_get_line_number "fi
gdb_continue_to_breakpoint "continue to first breakpoint in main"
for { set r 1 } { $r <= 6 } { incr r } {
- set hex [format %x $r]
+ set hexr [format %x $r]
gdb_test "print/x \$$word_regs($r)" \
- ".. = 0x${hex}2${hex}1" \
+ ".. = 0x${hexr}2${hexr}1" \
"check contents of %$word_regs($r)"
}
@@ -86,9 +86,9 @@ gdb_test "break [gdb_get_line_number "se
gdb_continue_to_breakpoint "continue to second breakpoint in main"
for { set r 7 } { $r <= $nr_regs } { incr r } {
- set hex [format %x $r]
+ set hexr [format %x $r]
gdb_test "print/x \$$word_regs($r)" \
- ".. = 0x${hex}2${hex}1" \
+ ".. = 0x${hexr}2${hexr}1" \
"check contents of %$word_regs($r)"
}