aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.base/parse_number.exp
diff options
context:
space:
mode:
authorTom de Vries <tdevries@suse.de>2022-06-04 13:17:33 +0200
committerTom de Vries <tdevries@suse.de>2022-06-04 13:17:33 +0200
commitac3afe36d73c84096685fece885d70b28bc9629f (patch)
tree55d9e2351f534a10f9eafc0bb43a80ecaaf149c6 /gdb/testsuite/gdb.base/parse_number.exp
parent999f7adc21cdcef5b606d2529068121dc6032b18 (diff)
downloadgdb-ac3afe36d73c84096685fece885d70b28bc9629f.zip
gdb-ac3afe36d73c84096685fece885d70b28bc9629f.tar.gz
gdb-ac3afe36d73c84096685fece885d70b28bc9629f.tar.bz2
[gdb/ada] Fix literal truncation
Make sure we error out on overflow instead of truncating in all cases. Tested on x86_64-linux, with a build with --enable-targets=all.
Diffstat (limited to 'gdb/testsuite/gdb.base/parse_number.exp')
-rw-r--r--gdb/testsuite/gdb.base/parse_number.exp4
1 files changed, 1 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.base/parse_number.exp b/gdb/testsuite/gdb.base/parse_number.exp
index 6e00912..70b0ad0 100644
--- a/gdb/testsuite/gdb.base/parse_number.exp
+++ b/gdb/testsuite/gdb.base/parse_number.exp
@@ -146,9 +146,7 @@ proc parse_number { lang n } {
return [list "<$sizeof_long_long-byte integer>" $n]
} else {
# Overflow.
- # Some truncated value or re_overflow, should be re_overflow.
- return [list "($re_overflow|<$decimal-byte integer>)" \
- ($re_overflow|$any)]
+ return [list $re_overflow $re_overflow]
}
} elseif { $lang == "modula-2" } {
if { [string equal $n -0] } {