* doc/install.texi (xtensa-*-elf): New target.

[pf3gnuchains/gcc-fork.git] / gcc / ada / gnatcmd.adb

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index 8e45f3c..8f7b2e2 100644 (file)
--- 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 --
    ----------------------------
@@ -203,9 +220,6 @@ procedure GNATCmd is
    S_Bind_Error   : aliased constant S := "/ERROR_LIMIT=#"                 &
                                             "-m#";
 
-   S_Bind_Full    : aliased constant S := "/FULL_ELABORATION "             &
-                                            "-f";
-
    S_Bind_Library : aliased constant S := "/LIBRARY_SEARCH=*"              &
                                             "-aO*";
 
@@ -295,7 +309,7 @@ procedure GNATCmd is
      S_Bind_DebugX  'Access,
      S_Bind_Elab    'Access,
      S_Bind_Error   'Access,
-     S_Bind_Full    'Access,
+     S_Ext_Ref      'Access,
      S_Bind_Library 'Access,
      S_Bind_Linker  'Access,
      S_Bind_Main    'Access,
@@ -306,6 +320,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,
@@ -335,6 +351,9 @@ procedure GNATCmd is
    S_Chop_Over   : aliased constant S := "/OVERWRITE "                     &
                                             "-w";
 
+   S_Chop_Pres   : aliased constant S := "/PRESERVE "                      &
+                                            "-p";
+
    S_Chop_Quiet  : aliased constant S := "/QUIET "                         &
                                             "-q";
 
@@ -349,6 +368,7 @@ procedure GNATCmd is
      S_Chop_File   'Access,
      S_Chop_Help   'Access,
      S_Chop_Over   'Access,
+     S_Chop_Pres   'Access,
      S_Chop_Quiet  'Access,
      S_Chop_Ref    'Access,
      S_Chop_Verb   'Access);
@@ -444,6 +464,8 @@ procedure GNATCmd is
                                                 "-gnati3 "                 &
                                              "4 "                          &
                                                 "-gnati4 "                 &
+                                             "5 "                          &
+                                                "-gnati5 "                 &
                                              "PC "                         &
                                                 "-gnatip "                 &
                                              "PC850 "                      &
@@ -833,11 +855,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 +948,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 +1000,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);
 
@@ -982,6 +1013,14 @@ procedure GNATCmd is
    -- Switches for GNAT MAKE --
    ----------------------------
 
+   S_Make_Actions : aliased constant S := "/ACTIONS="                      &
+                                            "COMPILE "                     &
+                                              "-c "                        &
+                                            "BIND "                        &
+                                              "-b "                        &
+                                            "LINK "                        &
+                                              "-l ";
+
    S_Make_All     : aliased constant S := "/ALL_FILES "                    &
                                             "-a";
 
@@ -1061,6 +1100,7 @@ procedure GNATCmd is
                                             "-v";
 
    Make_Switches : aliased constant Switches := (
+     S_Make_Actions 'Access,
      S_Make_All     'Access,
      S_Make_Bind    'Access,
      S_Make_Comp    'Access,
@@ -1070,6 +1110,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 +1121,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 +1303,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);