From f4e907d5ee52fffe7c6fb1256e65eb39c9313379 Mon Sep 17 00:00:00 2001
From: Ronan Desplanques <desplanques@adacore.com>
Date: Tue, 14 Mar 2023 10:01:06 +0100
Subject: ada: Fix late extra formals creation

Before this patch, in some situations, a subprogram call could be
expanded before the extra formals for the subprogram were created.

This patch fixes the problem in those situations.

gcc/ada/

	* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Create extra formals
	in more situations.
---
 gcc/ada/sem_ch6.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gcc/ada/sem_ch6.adb')

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 6df1c8d..c58a548 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -3907,6 +3907,7 @@ package body Sem_Ch6 is
            and then Serious_Errors_Detected = 0
          then
             Set_Has_Delayed_Freeze (Spec_Id);
+            Create_Extra_Formals (Spec_Id);
             Freeze_Before (N, Spec_Id);
          end if;
       end if;
-- 
cgit v1.1