Skip to content

Commit 6346b81

Browse files
committed
Merge branch 'topic/fix-community' into 'master'
Workaround for bug in GNAT FSF Closes #1619 See merge request eng/ide/ada_language_server!1966
2 parents 7fce258 + da74c51 commit 6346b81

File tree

1 file changed

+8
-2
lines changed

1 file changed

+8
-2
lines changed

source/ada/lsp-ada_handlers.adb

Lines changed: 8 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3121,7 +3121,10 @@ package body LSP.Ada_Handlers is
31213121
end if;
31223122
Self.Publish_Diagnostics
31233123
(Document => Document,
3124-
Other_Diagnostics => [Diagnostic]);
3124+
Other_Diagnostics =>
3125+
(LSP.Structures.Diagnostic_Vectors.Vector'
3126+
([Diagnostic])
3127+
with null record));
31253128
end if;
31263129
exit;
31273130
end;
@@ -3864,7 +3867,10 @@ package body LSP.Ada_Handlers is
38643867
& VSS.Strings.Conversions.To_UTF_8_String (Loc.uri));
38653868

38663869
Self.Publish_Diagnostics
3867-
(Document => Document, Other_Diagnostics => [Diagnostic]);
3870+
(Document => Document,
3871+
Other_Diagnostics =>
3872+
(LSP.Structures.Diagnostic_Vectors.Vector'([Diagnostic])
3873+
with null record));
38683874
end if;
38693875
-- Inform the client that the request failed
38703876
Self.Sender.On_Error_Response

0 commit comments

Comments
 (0)