source: trunk/ada-2012/src/semantic/gela-inheritance.ads@ 552

Last change on this file since 552 was 514, checked in by Maxim Reznik, 5 years ago

Add new test

File size: 793 bytes
Line 
1with Gela.Compilations;
2with Gela.Elements.Derived_Type_Definitions;
3with Gela.Semantic_Types;
4
5package Gela.Inheritance is
6 pragma Preelaborate;
7
8 procedure Copy_Declarations
9 (Comp : Gela.Compilations.Compilation_Access;
10 Env : Gela.Semantic_Types.Env_Index;
11 Node : not null Gela.Elements.Derived_Type_Definitions.
12 Derived_Type_Definition_Access;
13 Inherited : out Gela.Elements.Element_Sequence_Access);
14
15 procedure Environment
16 (Comp : Gela.Compilations.Compilation_Access;
17 Node : not null Gela.Elements.Derived_Type_Definitions.
18 Derived_Type_Definition_Access;
19 Env_In : Gela.Semantic_Types.Env_Index;
20 Env_Out : out Gela.Semantic_Types.Env_Index);
21
22end Gela.Inheritance;
Note: See TracBrowser for help on using the repository browser.