* lib/gdb.exp (get_hexadecimal_valueof): New procedure.

	* gdb.base/pc-fp.exp (get_valueofx): Remove.
	Replace calls to get_valueofx by get_hexadecimal_valueof.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 7b25d483bb2811568d597a263bfca00f2b7e374f..5b5ca26005238a2026e86f836ea068dc8ad4715c 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-14  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * lib/gdb.exp (get_hexadecimal_valueof): New procedure.
+       * gdb.base/pc-fp.exp (get_valueofx): Remove.
+       Replace calls to get_valueofx by get_hexadecimal_valueof.
+
 2009-02-14  Pierre Muller  <muller@ics.u-strasbg.fr>
 
        * lib/gdb.exp (get_valueof): Accept anything as a return value.

diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp
index 20eca4e253fd7d14cc2ce6a1ac26258c93317b8a..def406c30256b6dc9ad9fa023a674980c67c646e 100644 (file)
--- a/gdb/testsuite/gdb.base/pc-fp.exp
+++ b/gdb/testsuite/gdb.base/pc-fp.exp
@@ -53,26 +53,11 @@ if ![runto_main] then {
     continue
 }
 
-proc get_valueofx { fmt exp default } {
-    global gdb_prompt
-    send_gdb "print${fmt} ${exp}\n"
-    gdb_expect {
-       -re "\\$\[0-9\]* = (0x\[0-9a-zA-Z\]+).*$gdb_prompt $" {
-           set val $expect_out(1,string)
-           pass "get value of ${exp}"
-       }
-       timeout {
-           set val ${default}
-           fail "get value of ${exp} (timeout)"
-       }
-    }
-    return ${val}
-}
 
 # Get the value of PC and FP
 
-set valueof_pc [get_valueofx "/x" "\$pc" "0"]
-set valueof_fp [get_valueofx "/x" "\$fp" "0"]
+set valueof_pc [get_hexadecimal_valueof "\$pc" "0"]
+set valueof_fp [get_hexadecimal_valueof "\$fp" "0"]
 
 # Check that the sequence $REGNAME -> REGNUM -> $REGNAME works.  Use
 # display since that encodes and then decodes the expression parameter

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 6df6b59e9ba9d25c46455bc66351cd85f8151425..820ab202b41332ec38a884b235363621211fd549 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -2913,6 +2913,22 @@ proc get_integer_valueof { exp default } {
     return ${val}
 }
 
+proc get_hexadecimal_valueof { exp default } {
+    global gdb_prompt
+    send_gdb "print /x ${exp}\n"
+    set test "get hexadecimal valueof \"${exp}\""
+    gdb_expect {
+       -re "\\$\[0-9\]* = (0x\[0-9a-zA-Z\]+).*$gdb_prompt $" {
+           set val $expect_out(1,string)
+           pass "$test"
+       }
+       timeout {
+           set val ${default}
+           fail "$test (timeout)"
+       }
+    }
+    return ${val}
+}
 
 proc get_sizeof { type default } {
     return [get_integer_valueof "sizeof (${type})" $default]