diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 10:49:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 10:49:03 +0200 |
| commit | d85be3ba3ba37ceb2b08a62f0974cb6883c24637 (patch) | |
| tree | 2e2bd5262029c501de6388f6b86c7540545107ce /gcc/ada/s-oscons-tmplt.c | |
| parent | c5a26133df8575533bc97def6e76bf66bec7f91a (diff) | |
| download | gcc-d85be3ba3ba37ceb2b08a62f0974cb6883c24637.zip gcc-d85be3ba3ba37ceb2b08a62f0974cb6883c24637.tar.gz gcc-d85be3ba3ba37ceb2b08a62f0974cb6883c24637.tar.bz2 | |
[multiple changes]
2012-10-01 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.ads (Build_Array_Invariant_Proc): moved to body.
* exp_ch3.adb (Build_Array_Invariant_Proc,
Build_Record_Invariant_Proc): transform into functions.
(Insert_Component_Invariant_Checks): for composite types that have
components with specified invariants, build a checking procedure,
and make into the invariant procedure of the composite type,
or incorporate it into the user- defined invariant procedure if
one has been created.
* sem_ch3.adb (Array_Type_Declaration): Checking for invariants
on the component type is defered to the expander.
2012-10-01 Thomas Quinot <quinot@adacore.com>
* xsnamest.adb, namet.h, sem_ch10.adb, s-oscons-tmplt.c,
xoscons.adb: Minor reformatting.
2012-10-01 Hristian Kirtchev <kirtchev@adacore.com>
* checks.adb (Apply_Parameter_Aliasing_And_Validity_Checks):
Do not process subprogram renaminds because a) those cannot
have PPC pragmas b) the renamed entity already has the PPCs.
(Build_PPC_Pragma): Prepend a PPC pragma for consistency with
Process_PPCs.
* sem_ch6.adb (Last_Implicit_Declaration): Removed.
(Process_PPCs): Insert a post condition body at the start of the
declarative region of the related subprogram. This way the body
will not freeze anything it shouldn't.
From-SVN: r191903
Diffstat (limited to 'gcc/ada/s-oscons-tmplt.c')
| -rw-r--r-- | gcc/ada/s-oscons-tmplt.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c index eef71b4..50a55e4 100644 --- a/gcc/ada/s-oscons-tmplt.c +++ b/gcc/ada/s-oscons-tmplt.c @@ -288,8 +288,12 @@ C("Target_OS", OS_Type, TARGET_OS, "") #define Target_Name TARGET CST(Target_Name, "") -#define sizeof_unsigned_int sizeof (unsigned int) -CND(sizeof_unsigned_int, "Size of unsigned int") +/** + ** Note: the name of the following constant is recognized specially by + ** xoscons (case sensitive). + **/ +#define SIZEOF_unsigned_int sizeof (unsigned int) +CND(SIZEOF_unsigned_int, "Size of unsigned int") /* |