From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-wm1-x32c.google.com (mail-wm1-x32c.google.com [IPv6:2a00:1450:4864:20::32c]) by sourceware.org (Postfix) with ESMTPS id 2ABA138515F8 for ; Tue, 6 Sep 2022 07:16:01 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 2ABA138515F8 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=adacore.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=adacore.com Received: by mail-wm1-x32c.google.com with SMTP id m3-20020a05600c3b0300b003a5e0557150so7750582wms.0 for ; Tue, 06 Sep 2022 00:16:01 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=adacore.com; s=google; h=content-disposition:mime-version:message-id:subject:cc:to:from:date :from:to:cc:subject:date; bh=Cl2PzTmQmOPzO9ChBSIO4QI54Odg3VHhYOZ11GwxhZE=; b=GjpQG+5e/eiu25h3QiFYwYqJFrkXlxqrTEylFnB4j0nEJi7oQ6NNtBGsC7WNssYX+f dcRFMWBrLPTh6kGk+2wBD0dUEQzGXp2K+Zd+Zp9Qeo80HvZ/mgiThgncRcNcP2uvUweI GkQh71qUh0uRBcMI9NAHg08G53hvSOKUFxx04XtUgaVDeM87sXdQ07wUP5T6tgj4iQ4b C9ANhQaHEaAdUlvV8ByjIOsKvqcpYrwgo1StPjqHiOy+hQbhadE1y02r+g4OtZv6tijJ IGT6ShKTRYsUi23LShvRENoyXAdrXoP19rJCzT5KLkXracKScqn+Pg/bxdu6wRWxjElm ukAw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-disposition:mime-version:message-id:subject:cc:to:from:date :x-gm-message-state:from:to:cc:subject:date; bh=Cl2PzTmQmOPzO9ChBSIO4QI54Odg3VHhYOZ11GwxhZE=; b=rx1BxuEeoPvTsOp2nByX6R9z+Wxz82KZtvf5MgC/cPhkgouW8irkKbjQtkpCLvs3XB LGpU6uXQDGxZUfHNKzEH899hbQU91TX2dffv3Glqz+wfMZ21+1smAKBbDFAt7X4nsRPu JVa9OOk5XHyGZMReaYTADZjXSI4jXLmX0n60hgEAu0fDF+ZHPnNrAVV1zwmwxYF6zIqq BjQvaZPxscDnfr+qXvp5eUwgcHSi15SZnxTleF+Xfz5+pvSOa7Y57AhVNTLnpIq69Ix1 ITgN6sohd5tYP2u9Nj9bA7pNDlOcITtXanycI9x62MPdufsqrRp/aF+UrdHtMh6K+/QB Pcyw== X-Gm-Message-State: ACgBeo0vKQkM1yLA8B/7q8U96wt6LNeD00v40PjwcJ8C0wyu7jjd6VZJ TO1lRW4qKl03mban8wex/J6C0hs6SbrJTA== X-Google-Smtp-Source: AA6agR7nYrtCVfKM1pzlUtKXxAM1ut5JgX78N4f5NXQQaVGP61eJCEL0oh8ftJvHIUh+DvfjjDeZcg== X-Received: by 2002:a7b:cc90:0:b0:3a5:3899:7be1 with SMTP id p16-20020a7bcc90000000b003a538997be1mr12388951wma.19.1662448559998; Tue, 06 Sep 2022 00:15:59 -0700 (PDT) Received: from poulhies-Precision-5550 (static-176-191-105-132.ftth.abo.bbox.fr. [176.191.105.132]) by smtp.gmail.com with ESMTPSA id bs30-20020a056000071e00b002287513f169sm6173104wrb.55.2022.09.06.00.15.59 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 06 Sep 2022 00:15:59 -0700 (PDT) Date: Tue, 6 Sep 2022 09:15:59 +0200 From: Marc =?iso-8859-1?Q?Poulhi=E8s?= To: gcc-patches@gcc.gnu.org Cc: Marc =?iso-8859-1?Q?Poulhi=E8s?= Subject: [Ada] Fix formal parameters list for secondary stack allocation procedure Message-ID: <20220906071559.GA1280483@poulhies-Precision-5550> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="5vNYLRcllDrimb99" Content-Disposition: inline X-Spam-Status: No, score=-13.0 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.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --5vNYLRcllDrimb99 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline The introduction of the Alignment parameter for the secondary stack allocator in previous change was missing the corresponding change in the Build_Allocate_Deallocate_Proc when creating the formal parameters list. Tested on x86_64-pc-linux-gnu, committed on trunk gcc/ada/ * exp_util.adb (Build_Allocate_Deallocate_Proc): Add Alignment_Param in the formal list for calls to SS_Allocate. --5vNYLRcllDrimb99 Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="patch.diff" diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -1293,7 +1293,8 @@ package body Exp_Util is -- Gigi expects a different profile in the Secondary_Stack_Pool -- case. There must be no uses of the two missing formals -- (i.e., Pool_Param and Alignment_Param) in this case. - Formal_Params := New_List (Address_Param, Size_Param); + Formal_Params := New_List + (Address_Param, Size_Param, Alignment_Param); else Formal_Params := New_List ( Pool_Param, Address_Param, Size_Param, Alignment_Param); --5vNYLRcllDrimb99--