source: trunk/ada-2012/src/semantic/gela-plain_error_sets.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: 1.2 KB
Line 
1-- This package provides Environment_Set.
2with Gela.Contexts;
3with Gela.Error_Sets;
4with Gela.Semantic_Types;
5
6package Gela.Plain_Error_Sets is
7 pragma Preelaborate;
8
9 type Error_Set (Context : access Gela.Contexts.Context'Class) is
10 new Gela.Error_Sets.Error_Set with private;
11 type Plain_Error_Set_Access is access all Error_Set;
12
13private
14
15 type Error_Set (Context : access Gela.Contexts.Context'Class) is
16 new Gela.Error_Sets.Error_Set with record
17 Last : Gela.Semantic_Types.Error_Set_Index := 0;
18 end record;
19
20 overriding procedure Add
21 (Self : in out Error_Set;
22 Prev : Gela.Semantic_Types.Error_Set_Index;
23 Next : out Gela.Semantic_Types.Error_Set_Index);
24
25 overriding procedure Join
26 (Self : in out Error_Set;
27 Prev_1 : Gela.Semantic_Types.Error_Set_Index;
28 Prev_2 : Gela.Semantic_Types.Error_Set_Index;
29 Prev_3 : Gela.Semantic_Types.Error_Set_Index := 0;
30 Prev_4 : Gela.Semantic_Types.Error_Set_Index := 0;
31 Prev_5 : Gela.Semantic_Types.Error_Set_Index := 0;
32 Prev_6 : Gela.Semantic_Types.Error_Set_Index := 0;
33 Next : out Gela.Semantic_Types.Error_Set_Index);
34
35end Gela.Plain_Error_Sets;
Note: See TracBrowser for help on using the repository browser.