1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index 4b8db7d..a3d905b 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -161,6 +161,12 @@ procedure Gnat1drv is
          Modify_Tree_For_C := True;
       end if;
 
+      --  -gnatd_A disables generation of ALI files.
+
+      if Debug_Flag_Underscore_AA then
+         Disable_ALI_File := True;
+      end if;
+
       --  Set all flags required when generating C code
 
       if Generate_C_Code then