1
-----------------------------------------------------------------------
2
-----------------------------------------------------------------------
4
with Language.Tree.Ada;
5
with Ada_Semantic_Tree.Parts;
6
with Ada_Semantic_Tree.Units;
7
with Ada_Semantic_Tree.Dependency_Tree;
8
with Ada_Semantic_Tree.Visibility;
9
with Ada_Semantic_Tree.Type_Tree;
11
package body Ada_Semantic_Tree.Assistants is
13
-----------------------------
14
-- Register_Ada_Assistants --
15
-----------------------------
17
procedure Register_Ada_Assistants (Db : Construct_Database_Access) is
19
-- Since the assistants are registring annotations keys, the order in
20
-- which they are registered influences a lot the memory lost by the
21
-- database to create annotation - to keep things simple, the
22
-- annotations created on most constructs should be registered first.
23
-- However, there may be logical dependencies between the assistants
24
-- which puts some constraints on this order - e.g. units has to be
25
-- registered very soon.
27
Language.Tree.Ada.Register_Assistant (Db);
28
Ada_Semantic_Tree.Visibility.Register_Assistant (Db);
29
Ada_Semantic_Tree.Units.Register_Assistant (Db);
30
Ada_Semantic_Tree.Parts.Register_Assistant (Db);
31
Ada_Semantic_Tree.Type_Tree.Register_Assistant (Db);
32
Ada_Semantic_Tree.Dependency_Tree.Register_Assistant (Db);
33
end Register_Ada_Assistants;
35
end Ada_Semantic_Tree.Assistants;