source: trunk/ada-2012/src/semantic/gela-int.ads@ 552

Last change on this file since 552 was 415, checked in by Maxim Reznik, 7 years ago

Set svn:keywords

  • Property svn:keywords set to Author Date Revision
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.