source: trunk/ada-2012/src/semantic/gela-int-attr_functions.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: 1.1 KB
Line 
1with Gela.Int.Visiters;
2
3package body Gela.Int.Attr_Functions is
4
5 ------------
6 -- Create --
7 ------------
8
9 function Create
10 (Down : Gela.Interpretations.Interpretation_Index_Array;
11 Tipe : Gela.Semantic_Types.Type_Index;
12 Kind : Gela.Lexical_Types.Predefined_Symbols.Attribute)
13 return Attr_Function is
14 begin
15 return (Index => 0,
16 Length => Down'Length,
17 Tipe => Tipe,
18 Kind => Kind,
19 Down => Down);
20 end Create;
21
22 ----------
23 -- Kind --
24 ----------
25
26 function Kind
27 (Self : Attr_Function)
28 return Gela.Lexical_Types.Predefined_Symbols.Attribute is
29 begin
30 return Self.Kind;
31 end Kind;
32
33 ----------
34 -- Tipe --
35 ----------
36
37 not overriding function Tipe
38 (Self : Attr_Function) return Gela.Semantic_Types.Type_Index is
39 begin
40 return Self.Tipe;
41 end Tipe;
42
43 -----------
44 -- Visit --
45 -----------
46
47 overriding procedure Visit
48 (Self : Attr_Function;
49 Visiter : access Gela.Int.Visiters.Visiter'Class) is
50 begin
51 Visiter.Attr_Function (Self);
52 end Visit;
53
54end Gela.Int.Attr_Functions;
Note: See TracBrowser for help on using the repository browser.