From: Marc Poulhiès <poulhies@adacore.com>
Date: Mon, 22 Aug 2022 08:25:09 +0000 (+0200)
Subject: [Ada] Fix formal parameters list for secondary stack allocation procedure
X-Git-Tag: basepoints/gcc-14~4729
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e60709b78248768fb6a36a2cabf713ece3887f86;p=thirdparty%2Fgcc.git

[Ada] Fix formal parameters list for secondary stack allocation procedure

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.

gcc/ada/

	* exp_util.adb (Build_Allocate_Deallocate_Proc): Add
	Alignment_Param in the formal list for calls to SS_Allocate.
---

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 0bc22a4b5a10..61395adf1956 100644
--- 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);