source: trunk/ada-2012/src/semantic/gela-profiles-attributes.adb@ 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: 2.0 KB
Line 
1package body Gela.Profiles.Attributes is
2
3 -------------------------------
4 -- Allow_Empty_Argument_List --
5 -------------------------------
6
7 overriding function Allow_Empty_Argument_List
8 (Self : Profile) return Boolean
9 is
10 pragma Unreferenced (Self);
11 begin
12 return False;
13 end Allow_Empty_Argument_List;
14
15 ------------
16 -- Create --
17 ------------
18
19 function Create
20 (Params : Gela.Semantic_Types.Type_Index_Array;
21 Result : Gela.Semantic_Types.Type_Index)
22 return Gela.Profiles.Profile'Class is
23 begin
24 return Profile'(Params'Length, Params, Result);
25 end Create;
26
27 ---------------
28 -- Get_Index --
29 ---------------
30
31 overriding function Get_Index
32 (Self : Profile;
33 Symbol : Gela.Lexical_Types.Symbol)
34 return Natural
35 is
36 pragma Unreferenced (Self, Symbol);
37 begin
38 return 0;
39 end Get_Index;
40
41 --------------
42 -- Get_Name --
43 --------------
44
45 overriding function Get_Name
46 (Self : Profile;
47 Index : Positive)
48 return Gela.Elements.Defining_Names.Defining_Name_Access
49 is
50 pragma Unreferenced (Self, Index);
51 begin
52 return null;
53 end Get_Name;
54
55 --------------
56 -- Get_Type --
57 --------------
58
59 overriding function Get_Type
60 (Self : Profile; Index : Positive)
61 return Gela.Semantic_Types.Type_Index is
62 begin
63 return Self.Types (Index);
64 end Get_Type;
65
66 -----------------
67 -- Is_Function --
68 -----------------
69
70 overriding function Is_Function (Self : Profile) return Boolean is
71 pragma Unreferenced (Self);
72 begin
73 return True;
74 end Is_Function;
75
76 ------------
77 -- Length --
78 ------------
79
80 overriding function Length (Self : Profile) return Natural is
81 begin
82 return Self.Length;
83 end Length;
84
85 -----------------
86 -- Return_Type --
87 -----------------
88
89 overriding function Return_Type
90 (Self : Profile) return Gela.Semantic_Types.Type_Index is
91 begin
92 return Self.Result;
93 end Return_Type;
94
95end Gela.Profiles.Attributes;
Note: See TracBrowser for help on using the repository browser.