1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index 98998fff9f0..b0b90242209 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -842,6 +842,8 @@ begin
             Tree_Gen;
          end if;
 
+         --  In CodePeer mode we delete SCIL files if there is an error
+
          if CodePeer_Mode then
             Comperr.Delete_SCIL_Files;
          end if;