From: Bob Duff <duff@adacore.com>
Date: Wed, 10 Feb 2021 12:42:05 +0000 (-0500)
Subject: [Ada] Add Interface_Name field to E_Loop_Parameter
X-Git-Tag: basepoints/gcc-13~6849
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=65067cb65dc9918a75e7546b53bc556737c77594;p=thirdparty%2Fgcc.git

[Ada] Add Interface_Name field to E_Loop_Parameter

gcc/ada/

	* gen_il-gen-gen_entities.adb (E_Loop_Parameter): Add
	Interface_Name field.
---

diff --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb
index 2c486dc21e78..85eb2d708179 100644
--- a/gcc/ada/gen_il-gen-gen_entities.adb
+++ b/gcc/ada/gen_il-gen-gen_entities.adb
@@ -381,6 +381,7 @@ begin -- Gen_IL.Gen.Gen_Entities
        (Sm (Activation_Record_Component, Node_Id),
         Sm (Alignment, Uint),
         Sm (Esize, Uint),
+        Sm (Interface_Name, Node_Id),
         Sm (Is_Finalized_Transient, Flag),
         Sm (Is_Ignored_Transient, Flag),
         Sm (Linker_Section_Pragma, Node_Id),