source: trunk/ada-2012/src/semantic/gela-int.ads@ 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: 536 bytes
Line 
1limited with Gela.Int.Visiters;
2with Gela.Interpretations;
3
4package Gela.Int is
5 pragma Preelaborate;
6
7 type Interpretation (Length : Natural) is abstract tagged record
8 Index : Gela.Interpretations.Interpretation_Index;
9 Down : Gela.Interpretations.Interpretation_Index_Array (1 .. Length);
10 end record;
11
12 type Interpretation_Access is access Interpretation'Class;
13
14 not overriding procedure Visit
15 (Self : Interpretation;
16 Visiter : access Gela.Int.Visiters.Visiter'Class) is abstract;
17
18end Gela.Int;
Note: See TracBrowser for help on using the repository browser.