| Index: gdb/testsuite/gdb.pascal/floats.exp
|
| diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp
|
| index 1bde7fa7e91529f54ea62da585927fb467258545..79e6bc01be648d2acd1e1edb795e900b8f7e02dd 100644
|
| --- a/gdb/testsuite/gdb.pascal/floats.exp
|
| +++ b/gdb/testsuite/gdb.pascal/floats.exp
|
| @@ -1,4 +1,4 @@
|
| -# Copyright 2007-2012 Free Software Foundation, Inc.
|
| +# Copyright 2007-2013 Free Software Foundation, Inc.
|
| #
|
| # This program is free software; you can redistribute it and/or modify
|
| # it under the terms of the GNU General Public License as published by
|
| @@ -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 } {
|
|
|