[Ada] Disable Initialize_Scalars on runtime files

gcc/ada/

	* frontend.adb: Disable Initialize_Scalars on runtime files.

diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb
index 0fd3424b38b5f8305a2930523986e88fc19c3d22..b194741126469b17f87bafaf41a1809118f4a0a8 100644 (file)
--- a/gcc/ada/frontend.adb
+++ b/gcc/ada/frontend.adb
@@ -382,6 +382,16 @@ begin
          Warn_On_Non_Local_Exception := True;
       end if;
 
+      --  Disable Initialize_Scalars for runtime files to avoid circular
+      --  dependencies.
+
+      if Initialize_Scalars
+        and then Fname.Is_Predefined_File_Name (File_Name (Main_Source_File))
+      then
+         Initialize_Scalars   := False;
+         Init_Or_Norm_Scalars := Normalize_Scalars;
+      end if;
+
       --  Now on to the semantics. Skip if in syntax only mode
 
       if Operating_Mode /= Check_Syntax then