File tree Expand file tree Collapse file tree 3 files changed +2
-6
lines changed
testsuite/ada_lsp/refactoring_pull_up_declaration/V207-019 Expand file tree Collapse file tree 3 files changed +2
-6
lines changed Original file line number Diff line number Diff line change @@ -892,9 +892,6 @@ package body LSP.Ada_Contexts is
892892 Self.Source_Dirs.Clear;
893893 Self.Tree := null ;
894894
895- -- Destroy gnatpp's command line
896- Utils.Command_Lines.Clear (Self.PP_Options);
897-
898895 -- Cleanup gnatpp's template tables
899896 Pp.Actions.Clear_Template_Tables;
900897 end Free ;
Original file line number Diff line number Diff line change @@ -358,7 +358,6 @@ private
358358 is (Self.Source_Files.Length);
359359
360360 function Get_PP_Options (Self : Context) return
361- Utils.Command_Lines.Command_Line is
362- (Utils.Command_Lines.Copy_Command_Line (Self.PP_Options));
361+ Utils.Command_Lines.Command_Line is (Self.PP_Options);
363362
364363end LSP.Ada_Contexts ;
Original file line number Diff line number Diff line change 259259 "character" : 0
260260 }
261261 },
262- "newText" : " \n procedure Foo is null;\n "
262+ "newText" : " procedure Foo is null;\n \n"
263263 },
264264 {
265265 "range" : {
You can’t perform that action at this time.
0 commit comments