Merge branch '14-dev-mode-build-failure-with-alire-due-to-warnings' i…

…nto 'master' Resolve "Dev mode build failure with alire due to warnings" Closes #14 See merge request eng/ide/libadalang-tools!32
AdaCore · Jan 31, 2023 · df37ad9 · df37ad9 · simonjwright · Jan 31, 2023
2 parents b64afac + 817f600
commit df37ad9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/lint/lint-tools-relocate_decls_tool.adb b/src/lint/lint-tools-relocate_decls_tool.adb
@@ -456,7 +456,7 @@ package body Lint.Tools.Relocate_Decls_Tool is
             Tmp_Text := Null_Unbounded_String;
             declare
                Delete_Lenth : Integer;
-               Tmp_String : String := Text.Image (Obj.Text);
+               Tmp_String : constant String := Text.Image (Obj.Text);
             begin
                Delete_Lenth := Integer (Obj.F_Ids.Sloc_Range.End_Column -
                                           Obj.Sloc_Range.Start_Column) + 1;

diff --git a/src/lint/lint-tools-scope_declarations_tool.adb b/src/lint/lint-tools-scope_declarations_tool.adb
@@ -379,7 +379,7 @@ package body Lint.Tools.Scope_Declarations_Tool is
             Tmp_Text := Null_Unbounded_String;
             declare
                Delete_Lenth : Integer;
-               Tmp_String : String := Text.Image (Obj.Text);
+               Tmp_String : constant String := Text.Image (Obj.Text);
             begin
                Delete_Lenth := Integer (Obj.F_Ids.Sloc_Range.End_Column -
                                           Obj.Sloc_Range.Start_Column) + 1;