Tidy gdb.base/parse_number.exp
authorPedro Alves <pedro@palves.net>
Wed, 13 Apr 2022 09:10:28 +0000 (10:10 +0100)
committerPedro Alves <pedro@palves.net>
Wed, 13 Apr 2022 09:16:24 +0000 (10:16 +0100)
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

gdb/testsuite/gdb.base/parse_number.exp

index dc6d358ca4889e2369478eaf498072c004c0b572..e911cc0fdfb04c30ce3725453a72c3914c5746c7 100644 (file)
@@ -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"