[binutils-gdb] Tidy gdb.base/parse_number.exp

[Pedro Alves <palves@sourceware.org>]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=d095eb4e877edb901e56546e29ac24da0bec346b

commit d095eb4e877edb901e56546e29ac24da0bec346b
Author: Pedro Alves <pedro@palves.net>
Date:   Wed Apr 13 10:10:28 2022 +0100

    Tidy gdb.base/parse_number.exp
    
    Now that Ada is able to parse & print 0xffffffffffffffff (2^64-1) in
    hex, move it to the else branch like most other languages.
    
    Change-Id: Ib305f6bb2b6b230a1190ea783b245b865821094c

Diff:
---
 gdb/testsuite/gdb.base/parse_number.exp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/gdb/testsuite/gdb.base/parse_number.exp b/gdb/testsuite/gdb.base/parse_number.exp
index dc6d358ca48..e911cc0fdfb 100644
--- a/gdb/testsuite/gdb.base/parse_number.exp
+++ b/gdb/testsuite/gdb.base/parse_number.exp
@@ -27,10 +27,7 @@ proc test_parse_numbers {} {
 	gdb_test_no_output "set language $lang"
 
 	set val "0xffffffffffffffff"
-	if {$lang == "ada"} {
-	    gdb_test "p/x $val" " = 0xffffffffffffffff"
-	    gdb_test "ptype $val" " = <8-byte integer>"
-	} elseif {$lang == "fortran"} {
+	if {$lang == "fortran"} {
 	    gdb_test "p/x $val" " = 0xffffffff"
 	    gdb_test "ptype $val" " = unsigned int"
 	} elseif {$lang == "modula-2"} {
@@ -40,7 +37,9 @@ proc test_parse_numbers {} {
 		"expression parsing not implemented for language \"Unknown\""
 	} else {
 	    gdb_test "p/x $val" " = $val"
-	    if {$lang == "d"} {
+	    if {$lang == "ada"} {
+		gdb_test "ptype $val" " = <8-byte integer>"
+	    } elseif {$lang == "d"} {
 		gdb_test "ptype $val" " = ulong"
 	    } elseif {$lang == "rust"} {
 		gdb_test "ptype $val" " = i64"