From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-lf1-x134.google.com (mail-lf1-x134.google.com [IPv6:2a00:1450:4864:20::134]) by sourceware.org (Postfix) with ESMTPS id 5B9C73858409 for ; Mon, 4 Oct 2021 08:47:35 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 5B9C73858409 Received: by mail-lf1-x134.google.com with SMTP id y26so68692097lfa.11 for ; Mon, 04 Oct 2021 01:47:35 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:date:from:to:cc:subject:message-id:mime-version :content-disposition; bh=KazVL/WjE872MBjip2w22NRdotzPzhRT3FBKbYqEBVU=; b=IIkT+tZ7XZbXa7O3U+EtWut9PI+wzAbOmu42gir9xrsFsjEqlyQlHnGwMMRHuOcjsM 1GTOpXItJVN+2UQRUWALE73MBCQTXg/wzbYyGDcyPOKeJEG3Q2agHg3RcDEMu9SB0nJO 0jHWWY89HVqk7zV5DkeDZD7xGaqy6JfLL7EkZhRyW93vW/GSBe7f6iDFJIf37hpBni4i aRkMajSdFDJv7VBsSMJ9ggaLXdO8+tvbluFpZxfCEMt5sHsv2vitLVwBc9JoI9eQRQ8D fq9sn6Tjy+kMk5p5BDGYFfQbRX1uuUzhCLMixyt5SOiViooCaX6DIRwaBvrEh7dKytdy ev6A== X-Gm-Message-State: AOAM530o7Dm/mLIG64VK77It38/vyxq881FpwHgXRWe8lOIiZm9ZrEh1 X4Am0IzfIlunlg/dAoyES847uWd0kfcBYg== X-Google-Smtp-Source: ABdhPJzSs4dYIEQOu+V1rr2OD5/dZgDV9a85Ieo/NXlI84RwfS0gc/Ss9o8b+O9zjWGrgP5nH9DoAA== X-Received: by 2002:a19:4f05:: with SMTP id d5mr13471660lfb.672.1633337254258; Mon, 04 Oct 2021 01:47:34 -0700 (PDT) Received: from adacore.com ([2a02:2ab8:224:2ce:72b5:e8ff:feef:ee60]) by smtp.gmail.com with ESMTPSA id t3sm1500650ljg.68.2021.10.04.01.47.33 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Mon, 04 Oct 2021 01:47:33 -0700 (PDT) Date: Mon, 4 Oct 2021 08:47:32 +0000 From: Pierre-Marie de Rodat To: gcc-patches@gcc.gnu.org Cc: Eric Botcazou Subject: [Ada] Emit debugging information for TSD object Message-ID: <20211004084732.GA1536218@adacore.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="YiEDa0DAkWCtVeE4" Content-Disposition: inline X-Spam-Status: No, score=-12.9 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 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: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 04 Oct 2021 08:47:36 -0000 --YiEDa0DAkWCtVeE4 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline This makes the compiler emit debugging information for the Type-Specific Data object generated for tagged types, so as to make sure that debugging information is emitted for its type in ell circumstances. Tested on x86_64-pc-linux-gnu, committed on trunk gcc/ada/ * exp_disp.adb (Make_DT): Copy the Needs_Debug_Info flag from the type onto the TSD object. --YiEDa0DAkWCtVeE4 Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="patch.diff" diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -5703,6 +5703,11 @@ package body Exp_Disp is Set_Is_True_Constant (TSD, Building_Static_DT (Typ)); + -- The debugging information for type Ada.Tags.Type_Specific_Data is + -- needed by the debugger in order to display values of tagged types. + + Set_Needs_Debug_Info (TSD, Needs_Debug_Info (Typ)); + -- Initialize or declare the dispatch table object if not Has_DT (Typ) then --YiEDa0DAkWCtVeE4--