[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 960a118b110cf7570151b822ac03f568ab4be617..c6e49b6ddab2c2193fca4dee9c87910f93200d64 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+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.

diff --git a/gcc/ada/init-vxsim.c b/gcc/ada/init-vxsim.c
index f3c05f167b208416d3b2a7c3016ee275b05bed1f..9466dbc7915d850fdd850e5346c47f1f56d0dd1e 100644 (file)
--- a/gcc/ada/init-vxsim.c
+++ b/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"

diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb
index 63f74d9d63c235f629c49e5851aa10b84699ce2d..97a6e1b40616ca1f29243cba43caf26d322eb4d2 100644 (file)
--- a/gcc/ada/sem_aux.adb
+++ b/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;

diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb
index 52eda74da9b72e09e572f2c3688fe3f7646bad39..1cbaef354b0bbb8c6d3d092f048a712c85aeb71f 100644 (file)
--- a/gcc/ada/sem_disp.adb
+++ b/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

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 99bf2bab0304cfb265b54e8f72cf17b0aa385bea..b2f6a5727dae34894ba901b6dd8075c2109d13ae 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/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

diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index 8394b105586c4a0ae5aab0cad54c6d7fe906ef2c..f899e759c8f8ea0ae899713aaa2104c0df358234 100644 (file)
--- a/gcc/ada/sem_util.ads
+++ b/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.

diff --git a/gcc/ada/sigtramp-vxworks-target.inc b/gcc/ada/sigtramp-vxworks-target.inc
index c89ece0cf0e57f60319e1c84d7c2ac6257c3c87a..f31594d68b955d31b086b7f6ca6c1b63dbfd026f 100644 (file)
--- a/gcc/ada/sigtramp-vxworks-target.inc
+++ b/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

diff --git a/gcc/ada/sigtramp-vxworks-vxsim.c b/gcc/ada/sigtramp-vxworks-vxsim.c
index 7e9f2b8aa817fa4611e7b4625f0e2ba84f18ffd8..918d9e5d4fa331c35e4b21223258f6d4c7ddd832 100644 (file)
--- a/gcc/ada/sigtramp-vxworks-vxsim.c
+++ b/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.  */

diff --git a/gcc/ada/sigtramp.h b/gcc/ada/sigtramp.h
index 2be20e5c3ec4760a13d2ae528f39ceec6292fb05..bf872f5da0215adbd4fcc9e7b8ad3479252e3f17 100644 (file)
--- a/gcc/ada/sigtramp.h
+++ b/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);