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 } { |