diff options
| author | Pierre Muller <muller@sourceware.org> | 2009-02-14 00:27:56 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2009-02-14 00:27:56 +0000 |
| commit | faafb0471077b19764561b55cec06713cefd0c07 (patch) | |
| tree | 9d3432e7aa45377f2c4b7560e9a13b269cae81e1 /gdb/testsuite/gdb.base/pc-fp.exp | |
| parent | 86b1f9c56c5f48d5347c9a6adfbe72367baaf15b (diff) | |
| download | gdb-faafb0471077b19764561b55cec06713cefd0c07.zip gdb-faafb0471077b19764561b55cec06713cefd0c07.tar.gz gdb-faafb0471077b19764561b55cec06713cefd0c07.tar.bz2 | |
* 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.
Diffstat (limited to 'gdb/testsuite/gdb.base/pc-fp.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/pc-fp.exp | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp index 20eca4e..def406c 100644 --- 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 |