From e2df202345674e28d19df035f5a206fadb6d8f8c Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 4 Nov 2020 14:11:41 +0100 Subject: [PATCH] [Ada] Do not compile predefined units with -gnatp in gnatmake gcc/ada/ * make.adb (GNAT_Flag): Change to "-gnatg". (Compile): Adjust comments accordingly. --- gcc/ada/make.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 1288875b777..ede4c5aa25e 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -464,7 +464,7 @@ package body Make is Ada_Flag_1 : constant String_Access := new String'("-x"); Ada_Flag_2 : constant String_Access := new String'("ada"); AdaSCIL_Flag : constant String_Access := new String'("adascil"); - GNAT_Flag : constant String_Access := new String'("-gnatpg"); + GNAT_Flag : constant String_Access := new String'("-gnatg"); Do_Not_Check_Flag : constant String_Access := new String'("-x"); Object_Suffix : constant String := Get_Target_Object_Suffix.all; @@ -1677,7 +1677,7 @@ package body Make is L : File_Name_Type; Source_Index : Int; Args : Argument_List) return Process_Id; - -- Compiles S using Args. If S is a GNAT predefined source "-gnatpg" is + -- Compiles S using Args. If S is a GNAT predefined source "-gnatg" is -- added to Args. Non blocking call. L corresponds to the expected -- library file name. Process_Id of the process spawned to execute the -- compilation. @@ -2027,7 +2027,7 @@ package body Make is end loop; end; - -- Set -gnatpg for predefined files (for this purpose the renamings + -- Set -gnatg for predefined files (for this purpose the renamings -- such as Text_IO do not count as predefined). Note that we strip -- the directory name from the source file name because the call to -- Fname.Is_Predefined_File_Name cannot deal with directory prefixes. -- 2.30.2