From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-il1-x135.google.com (mail-il1-x135.google.com [IPv6:2607:f8b0:4864:20::135]) by sourceware.org (Postfix) with ESMTPS id 9DA8C3952009 for ; Thu, 17 Mar 2022 12:51:34 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 9DA8C3952009 Received: by mail-il1-x135.google.com with SMTP id d3so3648393ilr.10 for ; Thu, 17 Mar 2022 05:51:34 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; bh=9FMjdNv8B+KyXn4wjt+04IdLn/e0HJd2tKONJfcMqWY=; b=1N3JQDYArDzFkdZKYUpMGL+uwWiLpudWMsKvOQNMwSUmPGsb8RlZ2Iz88DFIVGO9Ed TBXLTSv/rgIKznLx19sEHV+Sds5Yxo4YWo4bzyMVJRKLCRWptqQr+HauCYCP7T3Ws1ZZ F9Xzh+69XJ/zMYBNzOvH0xS00xYHTNxx6joryKx79qj4j6Ppnne0aLYznQ9x4eIuSXfe i61EtTwpuOePnxjxM1lL0al6jJ3sLS0Xl4bhfnyLuDxtFSvT6CFxy5UUgmk2k61ChvYs JmBtoWvArgKC5ni3vzccpJ7kXOyPQTwVzIO3zryE6B7POZ7KqdUjrz1AzS/98Mlhu8TQ FE+g== X-Gm-Message-State: AOAM531QYDkGmml9FcoehJN8Nvc+KMUdNB1BOrJ/lYdGo4J4PDKwEZnj Ei0D6MijGXRf6qeZOT04SQLsz+NyWC8ZhA== X-Google-Smtp-Source: ABdhPJz5bePcujrKfs+NkFDypPJygyaCazDxZg50LMQBa3WOHF2y+L/OpxibEtcmjd0rVjEF4h0Q0w== X-Received: by 2002:a05:6e02:15ca:b0:2bf:ad58:4a6d with SMTP id q10-20020a056e0215ca00b002bfad584a6dmr2005211ilu.13.1647521493847; Thu, 17 Mar 2022 05:51:33 -0700 (PDT) Received: from murgatroyd.Home (71-211-175-224.hlrn.qwest.net. [71.211.175.224]) by smtp.gmail.com with ESMTPSA id a13-20020a056e02180d00b002c77c357fcfsm3179082ilv.76.2022.03.17.05.51.33 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 17 Mar 2022 05:51:33 -0700 (PDT) From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [pushed] Add another test for Ada Wide_Wide_String Date: Thu, 17 Mar 2022 06:51:31 -0600 Message-Id: <20220317125131.1654456-1-tromey@adacore.com> X-Mailer: git-send-email 2.34.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-11.6 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 17 Mar 2022 12:51:36 -0000 In an earlier patch, I had written that I wanted to add this test: ptype Wide_Wide_String'("literal") ... but that it failed with the distro GNAT. Further investigation showed that it could be made to work by adding a function using Wide_Wide_String to the program -- this caused the type to end up in the debug info. This patch adds the test. I'm checking this in. --- gdb/testsuite/gdb.ada/widewide.exp | 3 +++ gdb/testsuite/gdb.ada/widewide/foo.adb | 3 ++- gdb/testsuite/gdb.ada/widewide/pck.adb | 10 ++++++++++ gdb/testsuite/gdb.ada/widewide/pck.ads | 2 ++ 4 files changed, 17 insertions(+), 1 deletion(-) diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp index 2f14a0faee8..56c9e12abd2 100644 --- a/gdb/testsuite/gdb.ada/widewide.exp +++ b/gdb/testsuite/gdb.ada/widewide.exp @@ -59,3 +59,6 @@ gdb_test "print my_wws" " = \"bcllo\"" \ gdb_test "print 'x' & my_ws" " = \"xwide\"" gdb_test "print my_ws & 'y'" " = \"widey\"" + +gdb_test "ptype wide_wide_string'(\"wws\")" \ + "array \\(1 \\.\\. 3\\) of wide_wide_character" diff --git a/gdb/testsuite/gdb.ada/widewide/foo.adb b/gdb/testsuite/gdb.ada/widewide/foo.adb index d41734a485f..eda6ac54039 100644 --- a/gdb/testsuite/gdb.ada/widewide/foo.adb +++ b/gdb/testsuite/gdb.ada/widewide/foo.adb @@ -24,6 +24,7 @@ procedure Foo is begin Do_Nothing (Some_Easy'Address); -- START Do_Nothing (Some_Larger'Address); - Do_Nothing (My_Ws'Address); + Do_Nothing (My_Ws); + Do_Nothing (My_WWS); Do_Nothing (Some_Big'Address); end Foo; diff --git a/gdb/testsuite/gdb.ada/widewide/pck.adb b/gdb/testsuite/gdb.ada/widewide/pck.adb index 6b9023beb67..f5ec5607a56 100644 --- a/gdb/testsuite/gdb.ada/widewide/pck.adb +++ b/gdb/testsuite/gdb.ada/widewide/pck.adb @@ -20,4 +20,14 @@ package body Pck is null; end Do_Nothing; + procedure Do_Nothing (A : Wide_String) is + begin + null; + end Do_Nothing; + + procedure Do_Nothing (A : Wide_Wide_String) is + begin + null; + end Do_Nothing; + end Pck; diff --git a/gdb/testsuite/gdb.ada/widewide/pck.ads b/gdb/testsuite/gdb.ada/widewide/pck.ads index e9316b09678..90c04f373f2 100644 --- a/gdb/testsuite/gdb.ada/widewide/pck.ads +++ b/gdb/testsuite/gdb.ada/widewide/pck.ads @@ -18,5 +18,7 @@ with System; package Pck is procedure Do_Nothing (A : System.Address); + procedure Do_Nothing (A : Wide_String); + procedure Do_Nothing (A : Wide_Wide_String); end Pck; -- 2.34.1