Skip to content

Commit e4b77d3

Browse files
Merge branch 'topic/miranda-1292-lal' into 'master'
Fix sources after enforcing RM 8.6(27.1) in the compiler See merge request eng/ide/ada_language_server!2128
2 parents 717d86a + 4896e0f commit e4b77d3

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

source/gpr/lsp-gpr_handlers.adb

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,11 +134,12 @@ package body LSP.GPR_Handlers is
134134
declare
135135
Parsed_File : constant Internal_File_Access :=
136136
new LSP.GPR_Files.File (Self.Tracer);
137+
use LSP.GPR_Files;
137138

138139
begin
139140
Parsed_File.Initialize
140141
(Path => Path,
141-
File_Provider => Self);
142+
File_Provider => File_Provider_Access (Self));
142143

143144
Self.Parsed_Files.Insert (Path, Parsed_File);
144145

source/server/lsp-default_message_handlers.adb

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,7 +96,7 @@ package body LSP.Default_Message_Handlers is
9696
LSP.Server_Message_Visitors.Server_Message_Visitor'Class;
9797
Priority : LSP.Server_Jobs.Job_Priority := LSP.Server_Jobs.Fence) is
9898
begin
99-
Self.Handler := Handler;
99+
Self.Handler := Server_Message_Visitor_Access (Handler);
100100
Self.Priority := Priority;
101101
end Initialize;
102102

0 commit comments

Comments
 (0)