From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <palves@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1551)
 id 08290385840F; Wed, 13 Apr 2022 09:19:17 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 08290385840F
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
From: Pedro Alves <palves@sourceware.org>
To: gdb-cvs@sourceware.org
Subject: [binutils-gdb] Tidy gdb.base/parse_number.exp
X-Act-Checkin: binutils-gdb
X-Git-Author: Pedro Alves <pedro@palves.net>
X-Git-Refname: refs/heads/master
X-Git-Oldrev: 10c0005660cda5ff317da5834e919ce99e517c0e
X-Git-Newrev: d095eb4e877edb901e56546e29ac24da0bec346b
Message-Id: <20220413091917.08290385840F@sourceware.org>
Date: Wed, 13 Apr 2022 09:19:17 +0000 (GMT)
X-BeenThere: gdb-cvs@sourceware.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gdb-cvs mailing list <gdb-cvs.sourceware.org>
List-Unsubscribe: <https://sourceware.org/mailman/options/gdb-cvs>,
 <mailto:gdb-cvs-request@sourceware.org?subject=unsubscribe>
List-Archive: <https://sourceware.org/pipermail/gdb-cvs/>
List-Help: <mailto:gdb-cvs-request@sourceware.org?subject=help>
List-Subscribe: <https://sourceware.org/mailman/listinfo/gdb-cvs>,
 <mailto:gdb-cvs-request@sourceware.org?subject=subscribe>
X-List-Received-Date: Wed, 13 Apr 2022 09:19:17 -0000

https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3Dd095eb4e877e=
db901e56546e29ac24da0bec346b

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

    Tidy gdb.base/parse_number.exp
   =20
    Now that Ada is able to parse & print 0xffffffffffffffff (2^64-1) in
    hex, move it to the else branch like most other languages.
   =20
    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.ba=
se/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"
=20
 	set val "0xffffffffffffffff"
-	if {$lang =3D=3D "ada"} {
-	    gdb_test "p/x $val" " =3D 0xffffffffffffffff"
-	    gdb_test "ptype $val" " =3D <8-byte integer>"
-	} elseif {$lang =3D=3D "fortran"} {
+	if {$lang =3D=3D "fortran"} {
 	    gdb_test "p/x $val" " =3D 0xffffffff"
 	    gdb_test "ptype $val" " =3D unsigned int"
 	} elseif {$lang =3D=3D "modula-2"} {
@@ -40,7 +37,9 @@ proc test_parse_numbers {} {
 		"expression parsing not implemented for language \"Unknown\""
 	} else {
 	    gdb_test "p/x $val" " =3D $val"
-	    if {$lang =3D=3D "d"} {
+	    if {$lang =3D=3D "ada"} {
+		gdb_test "ptype $val" " =3D <8-byte integer>"
+	    } elseif {$lang =3D=3D "d"} {
 		gdb_test "ptype $val" " =3D ulong"
 	    } elseif {$lang =3D=3D "rust"} {
 		gdb_test "ptype $val" " =3D i64"