From b6cfe2c4375ee0a79dd7ab63630f51fdeceee11c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= <thevenoux@adacore.com>
Date: Fri, 17 Nov 2023 11:16:04 +0100
Subject: [PATCH] Add missing `;` in Standard's env hook

Fix 70ff1efffa1d3201eff930a84a4a327091cf7c5e.
---
 extensions/src/libadalang-env_hooks.adb       |  2 +-
 .../tests/ada_api/foreign_nodes/test.out      |  8 ++--
 testsuite/tests/lexical_envs/envs_1/test.out  |  2 +-
 testsuite/tests/lexical_envs/envs_3/test.out  |  2 +-
 testsuite/tests/lexical_envs/envs_4/test.out  |  2 +-
 testsuite/tests/lexical_envs/envs_5/test.out  |  2 +-
 .../tests/lexical_envs/gen_pkg_inst/test.out  |  2 +-
 .../lexical_envs/incomplete_with/test.out     |  2 +-
 testsuite/tests/lexical_envs/records/test.out |  2 +-
 .../name_resolution/universal_fixed/test.out  | 12 +++---
 testsuite/tests/properties/complete/test.out  | 38 +++++++++----------
 11 files changed, 37 insertions(+), 37 deletions(-)

diff --git a/extensions/src/libadalang-env_hooks.adb b/extensions/src/libadalang-env_hooks.adb
index a602f6f86..11f116547 100644
--- a/extensions/src/libadalang-env_hooks.adb
+++ b/extensions/src/libadalang-env_hooks.adb
@@ -155,7 +155,7 @@ package body Libadalang.Env_Hooks is
      "  for Duration'Small use 0.000000001;" & ASCII.LF &
      "  type Universal_Int_Type_ is range -1 .. 1;" & ASCII.LF &
      "  type Universal_Real_Type_ is digits 16;" & ASCII.LF &
-     "  type Universal_Fixed_Type_ is delta 0.01 range -1.0 .. 1.0"
+     "  type Universal_Fixed_Type_ is delta 0.01 range -1.0 .. 1.0;"
      & ASCII.LF &
      "  package root_types_ is" & ASCII.LF &
      "  type root_integer is range -1 .. 1;" & ASCII.LF &
diff --git a/testsuite/tests/ada_api/foreign_nodes/test.out b/testsuite/tests/ada_api/foreign_nodes/test.out
index 11fc4da7d..60a643169 100644
--- a/testsuite/tests/ada_api/foreign_nodes/test.out
+++ b/testsuite/tests/ada_api/foreign_nodes/test.out
@@ -57,7 +57,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
@@ -132,7 +132,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
@@ -207,7 +207,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
@@ -282,7 +282,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/envs_1/test.out b/testsuite/tests/lexical_envs/envs_1/test.out
index 264ebdf02..02ef8dddb 100644
--- a/testsuite/tests/lexical_envs/envs_1/test.out
+++ b/testsuite/tests/lexical_envs/envs_1/test.out
@@ -103,7 +103,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/envs_3/test.out b/testsuite/tests/lexical_envs/envs_3/test.out
index c008543a7..d52021570 100644
--- a/testsuite/tests/lexical_envs/envs_3/test.out
+++ b/testsuite/tests/lexical_envs/envs_3/test.out
@@ -257,7 +257,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/envs_4/test.out b/testsuite/tests/lexical_envs/envs_4/test.out
index 9c0d6892d..e56f8816e 100644
--- a/testsuite/tests/lexical_envs/envs_4/test.out
+++ b/testsuite/tests/lexical_envs/envs_4/test.out
@@ -96,7 +96,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/envs_5/test.out b/testsuite/tests/lexical_envs/envs_5/test.out
index fa6820a79..a6474f8a8 100644
--- a/testsuite/tests/lexical_envs/envs_5/test.out
+++ b/testsuite/tests/lexical_envs/envs_5/test.out
@@ -106,7 +106,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/gen_pkg_inst/test.out b/testsuite/tests/lexical_envs/gen_pkg_inst/test.out
index ab0c5ff9a..6906140b1 100644
--- a/testsuite/tests/lexical_envs/gen_pkg_inst/test.out
+++ b/testsuite/tests/lexical_envs/gen_pkg_inst/test.out
@@ -156,7 +156,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     test: [<SubpBody ["Test"] test.adb:1:1-10:10>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/incomplete_with/test.out b/testsuite/tests/lexical_envs/incomplete_with/test.out
index 70d27d550..2092b4a6c 100644
--- a/testsuite/tests/lexical_envs/incomplete_with/test.out
+++ b/testsuite/tests/lexical_envs/incomplete_with/test.out
@@ -104,7 +104,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/lexical_envs/records/test.out b/testsuite/tests/lexical_envs/records/test.out
index 9f419df20..f88e817a5 100644
--- a/testsuite/tests/lexical_envs/records/test.out
+++ b/testsuite/tests/lexical_envs/records/test.out
@@ -245,7 +245,7 @@ $root = LexEnv(Static_Primary, Parent=null):
     string: [<ConcreteTypeDecl ["String"] __standard:105:3-105:57>]
     tasking_error: [<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32>]
     true: [<EnumLiteralDecl ["True"] __standard:3:27-3:31>]
-    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>]
+    universal_fixed_type_: [<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>]
     universal_int_type_: [<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45>]
     universal_real_type_: [<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42>]
     wide_character: [<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32>]
diff --git a/testsuite/tests/name_resolution/universal_fixed/test.out b/testsuite/tests/name_resolution/universal_fixed/test.out
index f34d4f160..eb7ffad9a 100644
--- a/testsuite/tests/name_resolution/universal_fixed/test.out
+++ b/testsuite/tests/name_resolution/universal_fixed/test.out
@@ -32,12 +32,12 @@ Expr: <Id "X3" test.adb:14:6-14:8>
   type:          <ConcreteTypeDecl ["T1"] test.adb:4:6-4:55>
   expected type: None
 Expr: <BinOp test.adb:14:12-14:19>
-  type:          <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  type:          <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
   expected type: <ConcreteTypeDecl ["T1"] test.adb:4:6-4:55>
 Expr: <Id "X1" test.adb:14:12-14:14>
   references:    <DefiningName "X1" test.adb:7:6-7:8>
   type:          <ConcreteTypeDecl ["T1"] test.adb:4:6-4:55>
-  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
 Expr: <OpDiv "/" test.adb:14:15-14:16>
   references:    None
   type:          None
@@ -45,7 +45,7 @@ Expr: <OpDiv "/" test.adb:14:15-14:16>
 Expr: <Id "X2" test.adb:14:17-14:19>
   references:    <DefiningName "X2" test.adb:8:6-8:8>
   type:          <ConcreteTypeDecl ["T2"] test.adb:5:6-5:55>
-  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
 
 Resolving xrefs for node <AssignStmt test.adb:17:6-17:25>
 *********************************************************
@@ -94,12 +94,12 @@ Expr: <Id "T1" test.adb:20:12-20:14>
   type:          <ConcreteTypeDecl ["T1"] test.adb:4:6-4:55>
   expected type: None
 Expr: <BinOp test.adb:20:16-20:23>
-  type:          <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  type:          <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
   expected type: None
 Expr: <Id "X1" test.adb:20:16-20:18>
   references:    <DefiningName "X1" test.adb:7:6-7:8>
   type:          <ConcreteTypeDecl ["T1"] test.adb:4:6-4:55>
-  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
 Expr: <OpDiv "/" test.adb:20:19-20:20>
   references:    None
   type:          None
@@ -107,7 +107,7 @@ Expr: <OpDiv "/" test.adb:20:19-20:20>
 Expr: <Id "X2" test.adb:20:21-20:23>
   references:    <DefiningName "X2" test.adb:8:6-8:8>
   type:          <ConcreteTypeDecl ["T2"] test.adb:5:6-5:55>
-  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61>
+  expected type: <ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62>
 
 
 Done.
diff --git a/testsuite/tests/properties/complete/test.out b/testsuite/tests/properties/complete/test.out
index ca8b08269..dba39f830 100644
--- a/testsuite/tests/properties/complete/test.out
+++ b/testsuite/tests/properties/complete/test.out
@@ -45,7 +45,7 @@ Result: [<CompletionItem decl=<ParamSpec ["D"] case.adb:4:18-4:26> is_dot_call=F
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -101,7 +101,7 @@ Result: [<CompletionItem decl=<ParamSpec ["D"] case.adb:12:18-12:26> is_dot_call
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -157,7 +157,7 @@ Result: [<CompletionItem decl=<ParamSpec ["D"] case.adb:20:18-20:26> is_dot_call
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -213,7 +213,7 @@ Result: [<CompletionItem decl=<ParamSpec ["D"] case.adb:28:18-28:26> is_dot_call
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -258,7 +258,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] cond_expr.adb:4:4-4:22> is_dot_c
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -303,7 +303,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] cond_expr.adb:4:4-4:22> is_dot_c
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -358,7 +358,7 @@ Result: [<CompletionItem decl=<SyntheticTypePredicateObjectDecl ["Drum_Unit"] di
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -412,7 +412,7 @@ Result: [<CompletionItem decl=<EnumLiteralDecl ["Closed"] disass.adb:4:29-4:35>
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=0>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=0>,
@@ -473,7 +473,7 @@ Result: [<CompletionItem decl=<NullSubpDecl ["Do_Some"] func_name.adb:8:4-8:30>
          <CompletionItem decl=<ConcreteTypeDecl ["String"] __standard:105:3-105:57> is_dot_call=False is_visible=True weight=50>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=50>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=50>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=50>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=50>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=50>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=50>,
@@ -545,7 +545,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -610,7 +610,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -675,7 +675,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -741,7 +741,7 @@ Result: [<CompletionItem decl=<SyntheticTypePredicateObjectDecl ["Babar"] subtyp
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -806,7 +806,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -871,7 +871,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -936,7 +936,7 @@ Result: [<CompletionItem decl=<ObjectDecl ["A"] subtype_indication.adb:2:4-2:10>
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -1002,7 +1002,7 @@ Result: [<CompletionItem decl=<ParamSpec ["D"] subtype_indication.adb:30:17-30:2
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -1068,7 +1068,7 @@ Result: [<CompletionItem decl=<ComponentDecl ["A"] subtype_indication.adb:34:7-3
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,
@@ -1134,7 +1134,7 @@ Result: [<CompletionItem decl=<DiscriminantSpec ["D"] subtype_indication.adb:38:
          <CompletionItem decl=<SubpBody ["Subtype_Indication"] subtype_indication.adb:1:1-43:24> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<ExceptionDecl ["Tasking_Error"] __standard:128:3-128:32> is_dot_call=False is_visible=True weight=0>,
          <CompletionItem decl=<EnumLiteralDecl ["True"] __standard:3:27-3:31> is_dot_call=False is_visible=True weight=0>,
-         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:61> is_dot_call=False is_visible=True weight=100>,
+         <CompletionItem decl=<ConcreteTypeDecl ["Universal_Fixed_Type_"] __standard:118:3-118:62> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Int_Type_"] __standard:116:3-116:45> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Universal_Real_Type_"] __standard:117:3-117:42> is_dot_call=False is_visible=True weight=100>,
          <CompletionItem decl=<ConcreteTypeDecl ["Wide_Character"] __standard:22:3-22:32> is_dot_call=False is_visible=True weight=100>,