From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 30 Nov 2021 17:17:39 +0000 (+0100)
Subject: [Ada] Remove redundant code related to instances with formal subprograms
X-Git-Tag: basepoints/gcc-13~2083
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ec9fd41cfe7956b2c25d4539a9b5941a5d5f4cd;p=thirdparty%2Fgcc.git

[Ada] Remove redundant code related to instances with formal subprograms

gcc/ada/

	* sem_ch12.adb (Instantiate_Formal_Subprogram): Remove redundant
	call to Set_Defining_Unit_Name; a similar call is done few lines
	below.
---

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index ec6b5928470e..af96d58d415e 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -10866,7 +10866,6 @@ package body Sem_Ch12 is
         and then Expander_Active
       then
          New_Subp := Make_Temporary (Sloc (Actual), 'S');
-         Set_Defining_Unit_Name (New_Spec, New_Subp);
       else
          New_Subp := Make_Defining_Identifier (Loc, Chars (Formal_Sub));
       end if;