[commit] fix hex clobberage in amd64-{,d}word.exp

[commit] fix hex clobberage in amd64-{,d}word.exp

[Doug Evans]

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)"
 }