File tree Expand file tree Collapse file tree 4 files changed +5
-7
lines changed
testsuite/tests/integrated_instrumentation/basic_cmake Expand file tree Collapse file tree 4 files changed +5
-7
lines changed Original file line number Diff line number Diff line change 1
1
#include <stdio.h>
2
2
3
3
int
4
- main ()
4
+ main ()
5
5
{
6
- printf ("Hello world!\n" );
6
+ printf ("Hello world!\n" );
7
7
return 0 ;
8
8
}
Original file line number Diff line number Diff line change @@ -20,7 +20,6 @@ with Ada.Directories; use Ada.Directories;
20
20
21
21
with GNATCOLL.Projects ; use GNATCOLL.Projects;
22
22
23
- with Command_Line ; use Command_Line;
24
23
with Instrument.Common ; use Instrument.Common;
25
24
with Project ;
26
25
63
62
-- through extended projects, as their object directories can interfere
64
63
-- with the build of the extending project.
65
64
66
- if not Args.Bool_Args (Opt_Save_Temps) then
65
+ if not Save_Temps then
67
66
Project.Iterate_Projects
68
67
(Root_Project => Project.Project.Root_Project,
69
68
Process => Clean_Subdir'Access ,
Original file line number Diff line number Diff line change @@ -1478,7 +1478,7 @@ begin
1478
1478
end loop ;
1479
1479
end ;
1480
1480
1481
- if not Args.Bool_Args (Opt_Save_Temps) then
1481
+ if not Save_Temps then
1482
1482
Ada.Directories.Delete_File (+IC.Sources_Of_Interest_Response_File);
1483
1483
Ada.Directories.Delete_File (+IC.Ada_Preprocessor_Data_File);
1484
1484
end if ;
Original file line number Diff line number Diff line change @@ -30,7 +30,6 @@ with GNATCOLL.Traces;
30
30
with GNATCOLL.Projects.Aux ;
31
31
with GNATCOLL.VFS ; use GNATCOLL.VFS;
32
32
33
- with Command_Line ; use Command_Line;
34
33
with GNATcov_RTS.Buffers ; use GNATcov_RTS.Buffers;
35
34
with Inputs ; use Inputs;
36
35
with Instrument ; use Instrument;
@@ -1629,7 +1628,7 @@ package body Project is
1629
1628
1630
1629
procedure Finalize is
1631
1630
begin
1632
- if Prj_Tree /= null and then not Args.Bool_Args (Opt_Save_Temps) then
1631
+ if Prj_Tree /= null and then not Save_Temps then
1633
1632
GNATCOLL.Projects.Aux.Delete_All_Temp_Files (Prj_Tree.Root_Project);
1634
1633
end if ;
1635
1634
end Finalize ;
You can’t perform that action at this time.
0 commit comments