File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff 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
Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments