File tree Expand file tree Collapse file tree 2 files changed +5
-3
lines changed
testsuite/ada_lsp/implementation.aggregates Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -3251,8 +3251,10 @@ package body LSP.Ada_Handlers is
3251
3251
Location_Text := LSP.Lal_Utils.Node_Location_Image (Decl);
3252
3252
3253
3253
if Self.Project_Tree.Root_Project.Is_Aggregate_Project then
3254
- Location_Text.Append (" in project " );
3254
+ Location_Text.Append (VSS.Characters.Latin.Line_Feed);
3255
+ Location_Text.Append (" As defined in project " );
3255
3256
Location_Text.Append (C.Id);
3257
+ Location_Text.Append (" (other projects skipped)." );
3256
3258
end if ;
3257
3259
3258
3260
Response.result.Value.contents.Vector.Append
Original file line number Diff line number Diff line change 239
239
"value" : " function Common_Fun return Integer" ,
240
240
"language" : " ada"
241
241
},
242
- " at common_pack.ads (4:4) in project p"
242
+ " at common_pack.ads (4:4)\n As defined in project p (other projects skipped). "
243
243
]
244
244
}
245
245
}
271
271
"value" : " function Common_Fun return Integer" ,
272
272
"language" : " ada"
273
273
},
274
- " at common_pack.ads (4:4) in project p"
274
+ " at common_pack.ads (4:4)\n As defined in project p (other projects skipped). "
275
275
]
276
276
}
277
277
}
You can’t perform that action at this time.
0 commit comments