[Ada] Reflect ACT changes of 2001-10-26

[Geert Bosch]

2001-12-11  Vincent Celier <celier@gnat.com>

	* gnatcmd.adb:
	Changed /COMPILE_ONLY to /ACTIONS=COMPILE
	Changed /BIND_ONLY to /ACTIONS=BIND
	Changed /LINK_ONLY to /ACTIONS=LINK
	
2001-12-11  Ed Schonberg  <schonber@gnat.com>

	* sem_ch8.adb (Find_Selected_Component): improved search for a
	candidate package in case of error.
	
	* sem_ch12.adb (Inline_Instance_Body): place head of use_clause
	chain back on scope stack before reinstalling use clauses.
	
	* exp_ch5.adb (Expand_N_If_Statement): if Constant_Condition_Warnings
	is enabled, do not kill the code for the condition, to preserve
	warning.

*** gnatcmd.adb	2001/10/24 22:50:41	1.89
--- gnatcmd.adb	2001/10/26 03:50:36	1.90
***************
*** 1011,1028 ****
     -- Switches for GNAT MAKE --
     ----------------------------
  
     S_Make_All     : aliased constant S := "/ALL_FILES "                    &
                                              "-a";
  
-    S_Make_Bind_Only : aliased constant S := "/BIND_ONLY "                  &
-                                             "-b";
- 
     S_Make_Bind    : aliased constant S := "/BINDER_QUALIFIERS=?"           &
                                              "-bargs BIND";
  
-    S_Make_Compile_Only : aliased constant S := "/COMPILE_ONLY "            &
-                                             "-c";
- 
     S_Make_Comp    : aliased constant S := "/COMPILER_QUALIFIERS=?"         &
                                              "-cargs COMPILE";
  
--- 1011,1030 ----
     -- 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";
  
     S_Make_Bind    : aliased constant S := "/BINDER_QUALIFIERS=?"           &
                                              "-bargs BIND";
  
     S_Make_Comp    : aliased constant S := "/COMPILER_QUALIFIERS=?"         &
                                              "-cargs COMPILE";
  
***************
*** 1056,1064 ****
     S_Make_Link    : aliased constant S := "/LINKER_QUALIFIERS=?"           &
                                              "-largs LINK";
  
-    S_Make_Link_Only : aliased constant S := "/LINK_ONLY "                  &
-                                             "-l";
- 
     S_Make_Minimal : aliased constant S := "/MINIMAL_RECOMPILATION "        &
                                             "-m";
  
--- 1058,1063 ----
***************
*** 1099,1109 ****
                                              "-v";
  
     Make_Switches : aliased constant Switches := (
       S_Make_All     'Access,
       S_Make_Bind    'Access,
-      S_Make_Bind_Only'Access,
       S_Make_Comp    'Access,
-      S_Make_Compile_Only'Access,
       S_Make_Cond    'Access,
       S_Make_Cont    'Access,
       S_Make_Current 'Access,
--- 1098,1107 ----
                                              "-v";
  
     Make_Switches : aliased constant Switches := (
+      S_Make_Actions 'Access,
       S_Make_All     'Access,
       S_Make_Bind    'Access,
       S_Make_Comp    'Access,
       S_Make_Cond    'Access,
       S_Make_Cont    'Access,
       S_Make_Current 'Access,
***************
*** 1115,1121 ****
       S_Make_Inplace 'Access,
       S_Make_Library 'Access,
       S_Make_Link    'Access,
-      S_Make_Link_Only'Access,
       S_Make_Minimal 'Access,
       S_Make_Nolink  'Access,
       S_Make_Nostinc 'Access,
--- 1113,1118 ----

*** sem_ch8.adb	2001/10/15 03:17:56	1.584
--- sem_ch8.adb	2001/10/26 12:41:06	1.585
***************
*** 3687,3695 ****
                 then
  
                    --  Prefix may mention a package that is hidden by a local
!                   --  declaration: let the user know.
  
!                   if Present (Homonym (P_Name)) then
  
                       while Present (P_Name) loop
                          exit when Ekind (P_Name) = E_Package;
--- 3687,3698 ----
                 then
  
                    --  Prefix may mention a package that is hidden by a local
!                   --  declaration: let the user know. Scan the full homonym
!                   --  chain, the candidate package may be anywhere on it.
  
!                   if Present (Homonym (Current_Entity (P_Name))) then
! 
!                      P_Name := Current_Entity (P_Name);
  
                       while Present (P_Name) loop
                          exit when Ekind (P_Name) = E_Package;

*** sem_ch12.adb	2001/10/22 17:38:58	1.791
--- sem_ch12.adb	2001/10/26 12:41:09	1.792
***************
*** 2814,2819 ****
--- 2814,2821 ----
           end if;
  
           for J in reverse 1 .. Num_Scopes loop
+             Scope_Stack.Table (Scope_Stack.Last - J + 1).First_Use_Clause :=
+               Use_Clauses (J);
              Install_Use_Clauses (Use_Clauses (J));
           end  loop;
  

*** exp_ch5.adb	2001/09/23 23:17:55	1.216
--- exp_ch5.adb	2001/10/26 23:19:15	1.217
***************
*** 1895,1901 ****
           --  the Then statements
  
           else
!             Kill_Dead_Code (Condition (N));
              Kill_Dead_Code (Then_Statements (N));
  
              --  If there are no elsif statements, then we simply replace
--- 1895,1904 ----
           --  the Then statements
  
           else
!             if not Constant_Condition_Warnings then
!                Kill_Dead_Code (Condition (N));
!             end if;
! 
              Kill_Dead_Code (Then_Statements (N));
  
              --  If there are no elsif statements, then we simply replace