procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[multiple changes]

Browse source 
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
This commit is contained in:
Arnaud Charlet 2015-05-26 11:42:58 +02:00
parent 90a4b33679
commit 556d1a44c8
9 changed files with 21 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gcc/ada/ChangeLog
View file

@ -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.

7
gcc/ada/init-vxsim.c
View file

@ -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"

1
gcc/ada/sem_aux.adb
View file

@ -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;

3
gcc/ada/sem_disp.adb
View file

@ -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

1
gcc/ada/sem_util.adb
View file

@ -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

2
gcc/ada/sem_util.ads
View file

@ -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.

2
gcc/ada/sigtramp-vxworks-target.inc
View file

@ -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

7
gcc/ada/sigtramp-vxworks-vxsim.c
View file

@ -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. */

2
gcc/ada/sigtramp.h
View file

@ -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);