aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Poulhiès <poulhies@adacore.com>2022-08-22 10:25:09 +0200
committerMarc Poulhiès <poulhies@adacore.com>2022-09-06 09:14:23 +0200
commite60709b78248768fb6a36a2cabf713ece3887f86 (patch)
tree33db19c72128bf8d1a48ecea58162e5a4ee3ed9d
parent8a99a8e6bcfd8c2ce739baaaca0e34d46c3343f2 (diff)
downloadgcc-e60709b78248768fb6a36a2cabf713ece3887f86.zip
gcc-e60709b78248768fb6a36a2cabf713ece3887f86.tar.gz
gcc-e60709b78248768fb6a36a2cabf713ece3887f86.tar.bz2
[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.
-rw-r--r--gcc/ada/exp_util.adb3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 0bc22a4..61395ad 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);