1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index 3c2b5f4..98998ff 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -842,6 +842,10 @@ begin
             Tree_Gen;
          end if;
 
+         if CodePeer_Mode then
+            Comperr.Delete_SCIL_Files;
+         end if;
+
          Errout.Finalize (Last_Call => True);
          Exit_Program (E_Errors);
       end if;