diff options
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 6699c4fd076..3c4d11592ef 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -23,7 +23,6 @@ -- -- ------------------------------------------------------------------------------ -with Debug; with Opt; with Osint; use Osint; with Output; use Output; @@ -187,7 +186,7 @@ package body Prj is pragma Warnings (Off, Dont_Care); begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then if Current_Verbosity = High then Write_Line ("Removing temp file: " & Get_Name_String (Path)); end if; @@ -217,7 +216,7 @@ package body Prj is Proj : Project_List; begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then if Project_Tree /= null then Proj := Project_Tree.Projects; while Proj /= null loop @@ -254,7 +253,7 @@ package body Prj is Path : Path_Name_Type; begin - if not Debug.Debug_Flag_N then + if not Opt.Keep_Temporary_Files then for Index in 1 .. Temp_Files_Table.Last (Shared.Private_Part.Temp_Files) loop |