[multiple changes]

2015-05-26  Doug Rupp  <rupp@adacore.com>

	* init-vxsim.c (CPU): define as __VXSIM_CPU__
	* sigtramp-vxworks-vxsim.c (CPU): Likewise.
	sigtramp-vxworks-target.inc: Add check for SIMLINUX.
	* sigtramp.h: Likewise.

2015-05-26  Robert Dewar  <dewar@adacore.com>

	* sem_aux.adb, sem_disp.adb, sem_util.ads: Add comment.
	* sem_util.adb: Minor reformatting

From-SVN: r223675

gcc/ada/ChangeLog

+2015-05-26  Doug Rupp  <rupp@adacore.com>
+
+	* init-vxsim.c (CPU): define as __VXSIM_CPU__
+	* sigtramp-vxworks-vxsim.c (CPU): Likewise.
+	sigtramp-vxworks-target.inc: Add check for SIMLINUX.
+	* sigtramp.h: Likewise.
+
+2015-05-26  Robert Dewar  <dewar@adacore.com>
+
+	* sem_aux.adb, sem_disp.adb, sem_util.ads: Add comment.
+	* sem_util.adb: Minor reformatting
+
 2015-05-26  Yannick Moy  <moy@adacore.com>
 
 	* inline.adb (Has_Initialized_Type): Adapt to new names.

gcc/ada/init-vxsim.c

@@ -34,12 +34,7 @@
    structure is different for vxsim vs. real hardware.  */
 
 #undef CPU
-
-#ifndef __RTP__
-#define CPU SIMNT
-#else
-#define CPU SIMPENTIUM
-#endif
+#define CPU __VXSIM_CPU__
 
 #include "vxWorks.h"
 #include "tconfig.h"

gcc/ada/sem_aux.adb

@@ -481,6 +481,7 @@ package body Sem_Aux is
       if Ekind (E) = E_String_Literal_Subtype then
          return String_Literal_Low_Bound (E);
       else
+         --  Why is this not Type_Low_Bound (E)???
          return Low_Bound (Scalar_Range (E));
       end if;
    end Get_Low_Bound;

gcc/ada/sem_disp.adb

@@ -2243,6 +2243,9 @@ package body Sem_Disp is
    -- Is_Overriding_Subprogram --
    ------------------------------
 
+   --  Seems inefficient, build a whole list of subprograms to see if it
+   --  is non-empty???
+
    function Is_Overriding_Subprogram (E : Entity_Id) return Boolean is
       Inherited : constant Subprogram_List := Inherited_Subprograms (E);
    begin

gcc/ada/sem_util.adb

@@ -5683,7 +5683,6 @@ package body Sem_Util is
 
    begin
       Encl_Unit := Enclosing_Comp_Unit_Node (N);
-
       while Present (Encl_Unit)
         and then Nkind (Unit (Encl_Unit)) = N_Subunit
       loop

gcc/ada/sem_util.ads

@@ -537,7 +537,7 @@ package Sem_Util is
    --  or indirectly (through a subunit) at the root of a subtree containing
    --  N. This may be either the same as Enclosing_Comp_Unit_Node, or if
    --  Enclosing_Comp_Unit_Node returns a subunit, then the corresponding
-   --  library unit.
+   --  library unit. If no such item is found, returns Empty???
 
    function Enclosing_CPP_Parent (Typ : Entity_Id) return Entity_Id;
    --  Returns the closest ancestor of Typ that is a CPP type.

gcc/ada/sigtramp-vxworks-target.inc

@@ -314,7 +314,7 @@ TCR("ldmfd	sp, {r"S(CFA_REG)", fp, sp, pc}")
 
 #elif defined (i386)
 
-#if CPU == SIMNT || CPU == SIMPENTIUM
+#if CPU == SIMNT || CPU == SIMPENTIUM || CPU == SIMLINUX
 #define COMMON_CFI(REG) \
   ".cfi_offset " S(REGNO_##REG) "," S(REG_SET_##REG)
 #else

gcc/ada/sigtramp-vxworks-vxsim.c

@@ -34,12 +34,7 @@
  ********************************************************/
 
 #undef CPU
-
-#ifndef __RTP__
-#define CPU SIMNT
-#else
-#define CPU SIMPENTIUM
-#endif
+#define CPU __VXSIM_CPU__
 
 #include "sigtramp.h"
 /* See sigtramp.h for a general explanation of functionality.  */

gcc/ada/sigtramp.h

@@ -62,7 +62,7 @@ typedef struct ucontext
      system headers so call it something unique.  */
   typedef void __sigtramphandler_t (int signo, void *siginfo, void *sigcontext);
 
-#if CPU == SIMNT || CPU == SIMPENTIUM
+#if CPU == SIMNT || CPU == SIMPENTIUM || CPU == SIMLINUX
   /* Vxsim requires a specially compiled handler.  */
   void __gnat_sigtramp_vxsim  (int signo, void *siginfo, void *sigcontext,
 			 __sigtramphandler_t * handler);