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

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

Fix resolution of function_call with attribute_reference prefix

  • Property svn:keywords set to Author Date Revision
File size: 1.3 KB
Line 
1package Gela.Profiles.Attributes is
2 pragma Preelaborate;
3
4 type Profile (<>) is limited new Gela.Profiles.Profile with private;
5 type Profile_Access is access all Profile'Class;
6
7 function Create
8 (Params : Gela.Semantic_Types.Type_Index_Array;
9 Result : Gela.Semantic_Types.Type_Index)
10 return Gela.Profiles.Profile'Class;
11
12private
13
14 type Profile (Length : Natural) is limited new Gela.Profiles.Profile
15 with record
16 Types : Gela.Semantic_Types.Type_Index_Array (1 .. Length);
17 Result : Gela.Semantic_Types.Type_Index;
18 end record;
19
20 overriding function Is_Function
21 (Self : Profile) return Boolean;
22
23 overriding function Allow_Empty_Argument_List
24 (Self : Profile) return Boolean;
25
26 overriding function Length
27 (Self : Profile) return Natural;
28
29 overriding function Return_Type
30 (Self : Profile) return Gela.Semantic_Types.Type_Index;
31
32 overriding function Get_Type
33 (Self : Profile;
34 Index : Positive) return Gela.Semantic_Types.Type_Index;
35
36 overriding function Get_Name
37 (Self : Profile;
38 Index : Positive)
39 return Gela.Elements.Defining_Names.Defining_Name_Access;
40
41 overriding function Get_Index
42 (Self : Profile;
43 Symbol : Gela.Lexical_Types.Symbol) return Natural;
44
45end Gela.Profiles.Attributes;
Note: See TracBrowser for help on using the repository browser.