From 4211ccbbaed452f0363cf257b98f3236f442bfca Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 8 Jun 2020 10:10:29 +0200 Subject: [PATCH] [Ada] Disable Initialize_Scalars on runtime files gcc/ada/ * frontend.adb: Disable Initialize_Scalars on runtime files. --- gcc/ada/frontend.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 0fd3424b38b..b1947411264 100644 --- 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 -- 2.30.2