source: trunk/ada-2012/src/semantic/gela-int-expressions.adb@ 358

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

Fix regressions

Drop (left) expicit convertions from Interpretation_Index to
Interpretation_Set_Index and replace them with iteration over
cursors.

File size: 939 bytes
Line 
1with Gela.Int.Visiters;
2
3package body Gela.Int.Expressions is
4
5 ------------
6 -- Create --
7 ------------
8
9 function Create
10 (Down : Gela.Interpretations.Interpretation_Index_Array;
11 Expression_Type : Gela.Semantic_Types.Type_Index)
12 return Expression is
13 begin
14 return (Length => Down'Length,
15 Expression_Type => Expression_Type,
16 Down => Down);
17 end Create;
18
19 ---------------------
20 -- Expression_Type --
21 ---------------------
22
23 function Expression_Type
24 (Self : Expression)
25 return Gela.Semantic_Types.Type_Index is
26 begin
27 return Self.Expression_Type;
28 end Expression_Type;
29
30 -----------
31 -- Visit --
32 -----------
33
34 overriding procedure Visit
35 (Self : Expression;
36 Visiter : access Gela.Int.Visiters.Visiter'Class) is
37 begin
38 Visiter.Expression (Self);
39 end Visit;
40
41end Gela.Int.Expressions;
Note: See TracBrowser for help on using the repository browser.