diff options
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index b9965bc4cba..ebbc8599d07 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -71,7 +71,7 @@ package Prj is -- To specify how to process project files type Programming_Language is - (Lang_Ada, Lang_C, Lang_C_Plus_Plus, Lang_Fortran); + (Lang_Ada, Lang_C, Lang_C_Plus_Plus); -- The list of language supported subtype Other_Programming_Language is @@ -85,12 +85,10 @@ package Prj is Lang_Ada_Name : aliased String := "ada"; Lang_C_Name : aliased String := "c"; Lang_C_Plus_Plus_Name : aliased String := "c++"; - Lang_Fortran_Name : aliased String := "for"; Lang_Names : constant array (Programming_Language) of String_Access := (Lang_Ada => Lang_Ada_Name 'Access, Lang_C => Lang_C_Name 'Access, - Lang_C_Plus_Plus => Lang_C_Plus_Plus_Name'Access, - Lang_Fortran => Lang_Fortran_Name'Access); + Lang_C_Plus_Plus => Lang_C_Plus_Plus_Name'Access); -- Names of the supported programming languages, to be used after switch -- -x when using a GCC compiler. @@ -100,25 +98,21 @@ package Prj is Lang_Ada_Display_Name : aliased String := "Ada"; Lang_C_Display_Name : aliased String := "C"; Lang_C_Plus_Plus_Display_Name : aliased String := "C++"; - Lang_Fortran_Display_Name : aliased String := "Fortran"; Lang_Display_Names : constant array (Programming_Language) of String_Access := (Lang_Ada => Lang_Ada_Display_Name 'Access, Lang_C => Lang_C_Display_Name 'Access, - Lang_C_Plus_Plus => Lang_C_Plus_Plus_Display_Name'Access, - Lang_Fortran => Lang_Fortran_Display_Name'Access); + Lang_C_Plus_Plus => Lang_C_Plus_Plus_Display_Name'Access); -- Names of the supported programming languages, to be used for display -- purposes. Ada_Impl_Suffix : aliased String := ".adb"; C_Impl_Suffix : aliased String := ".c"; C_Plus_Plus_Impl_Suffix : aliased String := ".cc"; - Fortran_Impl_Suffix : aliased String := ".for"; Lang_Suffixes : constant array (Programming_Language) of String_Access := (Lang_Ada => Ada_Impl_Suffix 'Access, Lang_C => C_Impl_Suffix 'Access, - Lang_C_Plus_Plus => C_Plus_Plus_Impl_Suffix'Access, - Lang_Fortran => Fortran_Impl_Suffix'Access); + Lang_C_Plus_Plus => C_Plus_Plus_Impl_Suffix'Access); -- Default extension of the sources of the different languages. Lang_Suffix_Ids : array (Programming_Language) of Name_Id; @@ -127,17 +121,23 @@ package Prj is Gnatmake_String : aliased String := "gnatmake"; Gcc_String : aliased String := "gcc"; G_Plus_Plus_String : aliased String := "g++"; - G77_String : aliased String := "g77"; Default_Compiler_Names : constant array (Programming_Language) of String_Access := (Lang_Ada => Gnatmake_String 'Access, Lang_C => Gcc_String 'Access, - Lang_C_Plus_Plus => G_Plus_Plus_String'Access, - Lang_Fortran => G77_String 'Access); + Lang_C_Plus_Plus => G_Plus_Plus_String'Access); -- Default names of the compilers for the supported languages. -- Used when no IDE'Compiler_Command is specified for a language. -- For Ada, specify the gnatmake executable. + Ada_Args_Strings : aliased String := ""; + C_Args_String : aliased String := "c"; + C_Plus_Plus_Args_String : aliased String := "xx"; + Lang_Args : constant array (Programming_Language) of String_Access := + (Lang_Ada => Ada_Args_Strings 'Access, + Lang_C => C_Args_String 'Access, + Lang_C_Plus_Plus => C_Plus_Plus_Args_String'Access); + type Other_Source_Id is new Nat; No_Other_Source : constant Other_Source_Id := 0; type Other_Source is record |