source: trunk/ada-2012/src/semantic/gela-plain_error_sets.adb@ 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.3 KB
Line 
1package body Gela.Plain_Error_Sets is
2
3 ---------
4 -- Add --
5 ---------
6
7 overriding procedure Add
8 (Self : in out Error_Set;
9 Prev : Gela.Semantic_Types.Error_Set_Index;
10 Next : out Gela.Semantic_Types.Error_Set_Index)
11 is
12 pragma Unreferenced (Prev);
13 use type Gela.Semantic_Types.Error_Set_Index;
14 begin
15 Self.Last := Self.Last + 1;
16 Next := Self.Last;
17 end Add;
18
19 ----------
20 -- Join --
21 ----------
22
23 overriding procedure Join
24 (Self : in out Error_Set;
25 Prev_1 : Gela.Semantic_Types.Error_Set_Index;
26 Prev_2 : Gela.Semantic_Types.Error_Set_Index;
27 Prev_3 : Gela.Semantic_Types.Error_Set_Index := 0;
28 Prev_4 : Gela.Semantic_Types.Error_Set_Index := 0;
29 Prev_5 : Gela.Semantic_Types.Error_Set_Index := 0;
30 Prev_6 : Gela.Semantic_Types.Error_Set_Index := 0;
31 Next : out Gela.Semantic_Types.Error_Set_Index)
32 is
33 pragma Unreferenced (Prev_1);
34 pragma Unreferenced (Prev_2);
35 pragma Unreferenced (Prev_3);
36 pragma Unreferenced (Prev_4);
37 pragma Unreferenced (Prev_5);
38 pragma Unreferenced (Prev_6);
39 use type Gela.Semantic_Types.Error_Set_Index;
40 begin
41 Self.Last := Self.Last + 1;
42 Next := Self.Last;
43 end Join;
44
45end Gela.Plain_Error_Sets;
Note: See TracBrowser for help on using the repository browser.