source: trunk/ada-2012/src/semantic/gela-int-attr_functions.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: 959 bytes
Line 
1with Gela.Lexical_Types;
2with Gela.Semantic_Types;
3
4package Gela.Int.Attr_Functions is
5 pragma Preelaborate;
6
7 type Attr_Function is new Interpretation with private;
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;
14
15 not overriding function Kind
16 (Self : Attr_Function)
17 return Gela.Lexical_Types.Predefined_Symbols.Attribute;
18
19 not overriding function Tipe
20 (Self : Attr_Function) return Gela.Semantic_Types.Type_Index;
21
22private
23
24 type Attr_Function is new Interpretation with record
25 Tipe : Gela.Semantic_Types.Type_Index;
26 Kind : Gela.Lexical_Types.Predefined_Symbols.Attribute;
27 end record;
28
29 overriding procedure Visit
30 (Self : Attr_Function;
31 Visiter : access Gela.Int.Visiters.Visiter'Class);
32
33end Gela.Int.Attr_Functions;
Note: See TracBrowser for help on using the repository browser.