diff options
Diffstat (limited to 'gdb/testsuite/gdb.pascal/floats.exp')
| -rw-r--r-- | gdb/testsuite/gdb.pascal/floats.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp index c4ad45e..79e6bc0 100644 --- a/gdb/testsuite/gdb.pascal/floats.exp +++ b/gdb/testsuite/gdb.pascal/floats.exp @@ -135,9 +135,9 @@ gdb_test_multiple "print s" $msg { verbose "expo found: $expo" 1 } else { set expo "0" - regsub ".*\[eE\]" "$value" "" expo; + regsub ".*\[eE\]" "$value" "" expo } - regsub "^-" "$expo" "" mexpo; + regsub "^-" "$expo" "" mexpo verbose "expo is $expo" 1 verbose "mexpo is $mexpo" 1 if { $value == 0 } { |