diff options
| author | Vincent Celier <celier@gnat.com> | 2001-10-30 22:51:10 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-30 23:51:10 +0100 |
| commit | af5cf6f888ffc23626f712dcfc8678ab4edae4bc (patch) | |
| tree | be5f1055eea23bdc716a24244dcd78c6c2cd9c12 | |
| parent | 984bc4c317ca27beaea0df799fe06da1f029ca7b (diff) | |
| download | gcc-af5cf6f888ffc23626f712dcfc8678ab4edae4bc.zip gcc-af5cf6f888ffc23626f712dcfc8678ab4edae4bc.tar.gz gcc-af5cf6f888ffc23626f712dcfc8678ab4edae4bc.tar.bz2 | |
gnatcmd.adb (MAKE, [...]): Add translations for project file switches (-P (/PROJECT_FILE=)...
* gnatcmd.adb (MAKE, BIND, LINK, LIST, FIND, XREF): Add translations
for project file switches (-P (/PROJECT_FILE=),
-X (/EXTERNAL_REFERENCE=) and -vPx (/PROJECT_FILE_VERBOSITY=DEFAULT
or MEDIUM or HIGH)
From-SVN: r46655
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 35 |
2 files changed, 42 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ed98b30..a8f86ab 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2001-10-30 Vincent Celier <celier@gnat.com> + + * gnatcmd.adb (MAKE, BIND, LINK, LIST, FIND, XREF): Add translations + for project file switches (-P (/PROJECT_FILE=), + -X (/EXTERNAL_REFERENCE=) and -vPx (/PROJECT_FILE_VERBOSITY=DEFAULT + or MEDIUM or HIGH) + 2001-10-30 Geert Bosch <bosch@gnat.com> * decl.c: Minor whitespace fixes. diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 8e45f3c..86b24ca 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -162,6 +162,23 @@ procedure GNATCmd is type Switches_Ptr is access constant Switches; + -------------------------------- + -- Switches for project files -- + -------------------------------- + + S_Ext_Ref : aliased constant S := "/EXTERNAL_REFERENCE=" & '"' & + "-X" & '"'; + + S_Project_File : aliased constant S := "/PROJECT_FILE=*" & + "-P*"; + S_Project_Verb : aliased constant S := "/PROJECT_FILE_VERBOSITY=" & + "DEFAULT " & + "-vP0 " & + "MEDIUM " & + "-vP1 " & + "HIGH " & + "-vP2"; + ---------------------------- -- Switches for GNAT BIND -- ---------------------------- @@ -295,6 +312,7 @@ procedure GNATCmd is S_Bind_DebugX 'Access, S_Bind_Elab 'Access, S_Bind_Error 'Access, + S_Ext_Ref 'Access, S_Bind_Full 'Access, S_Bind_Library 'Access, S_Bind_Linker 'Access, @@ -306,6 +324,8 @@ procedure GNATCmd is S_Bind_Output 'Access, S_Bind_OutputX 'Access, S_Bind_Pess 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_Bind_Read 'Access, S_Bind_ReadX 'Access, S_Bind_Rename 'Access, @@ -833,11 +853,14 @@ procedure GNATCmd is Find_Switches : aliased constant Switches := ( S_Find_All 'Access, S_Find_Expr 'Access, + S_Ext_Ref 'Access, S_Find_Full 'Access, S_Find_Ignore 'Access, S_Find_Object 'Access, S_Find_Print 'Access, S_Find_Project 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_Find_Ref 'Access, S_Find_Search 'Access, S_Find_Source 'Access); @@ -923,10 +946,13 @@ procedure GNATCmd is S_Link_Bind 'Access, S_Link_Debug 'Access, S_Link_Execut 'Access, + S_Ext_Ref 'Access, S_Link_Ident 'Access, S_Link_Nocomp 'Access, S_Link_Nofiles 'Access, S_Link_Noinhib 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_Link_Static 'Access, S_Link_Verb 'Access, S_Link_ZZZZZ 'Access); @@ -972,9 +998,12 @@ procedure GNATCmd is S_List_All 'Access, S_List_Current 'Access, S_List_Depend 'Access, + S_Ext_Ref 'Access, S_List_Nostinc 'Access, S_List_Object 'Access, S_List_Output 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_List_Search 'Access, S_List_Source 'Access); @@ -1070,6 +1099,7 @@ procedure GNATCmd is S_Make_Dep 'Access, S_Make_Doobj 'Access, S_Make_Execut 'Access, + S_Ext_Ref 'Access, S_Make_Force 'Access, S_Make_Inplace 'Access, S_Make_Library 'Access, @@ -1080,6 +1110,8 @@ procedure GNATCmd is S_Make_Nostlib 'Access, S_Make_Object 'Access, S_Make_Proc 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_Make_Nojobs 'Access, S_Make_Quiet 'Access, S_Make_Reason 'Access, @@ -1260,10 +1292,13 @@ procedure GNATCmd is Xref_Switches : aliased constant Switches := ( S_Xref_All 'Access, + S_Ext_Ref 'Access, S_Xref_Full 'Access, S_Xref_Global 'Access, S_Xref_Object 'Access, S_Xref_Project 'Access, + S_Project_File 'Access, + S_Project_Verb 'Access, S_Xref_Search 'Access, S_Xref_Source 'Access, S_Xref_Output 'Access); |