source: trunk/ada-2012/src/semantic/gela-int-attr_functions.adb@ 359

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

Reuse interpretation index

Return the same value for each call of Get_Index with the same arg.

File size: 900 bytes
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 Kind : Gela.Lexical_Types.Predefined_Symbols.Attribute)
12 return Attr_Function is
13 begin
14 return (Index => 0,
15 Length => Down'Length,
16 Kind => Kind,
17 Down => Down);
18 end Create;
19
20 ----------
21 -- Kind --
22 ----------
23
24 function Kind
25 (Self : Attr_Function)
26 return Gela.Lexical_Types.Predefined_Symbols.Attribute is
27 begin
28 return Self.Kind;
29 end Kind;
30
31 -----------
32 -- Visit --
33 -----------
34
35 overriding procedure Visit
36 (Self : Attr_Function;
37 Visiter : access Gela.Int.Visiters.Visiter'Class) is
38 begin
39 Visiter.Attr_Function (Self);
40 end Visit;
41
42end Gela.Int.Attr_Functions;
Note: See TracBrowser for help on using the repository browser.