diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:12:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-23 11:12:14 +0200 |
| commit | a532f98bcadefa3f4a87c48be174ef38d43fb6ba (patch) | |
| tree | 1ed92c2da809b2a957c113489c5298e026e0da1f /gcc/ada/init.c | |
| parent | cae64f1110a0f084dff19e7d2ded0d1ab1eb8ace (diff) | |
| download | gcc-a532f98bcadefa3f4a87c48be174ef38d43fb6ba.zip gcc-a532f98bcadefa3f4a87c48be174ef38d43fb6ba.tar.gz gcc-a532f98bcadefa3f4a87c48be174ef38d43fb6ba.tar.bz2 | |
[multiple changes]
2013-04-23 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Fix_Error): Rewrite to do more accurate job
of getting proper name in the case where pragma comes from
aspect.
* sem_ch3.adb, sinfo.ads, par-ch6.adb, exp_ch6.adb: Minor reformatting.
2013-04-23 Yannick Moy <moy@adacore.com>
* sem_ch6.adb (Process_PPCs): Do not filter postconditions based on
applicable policy.
2013-04-23 Thomas Quinot <quinot@adacore.com>
* par_sco.adb (Traverse_Aux_Decls): Minor code reorganization.
2013-04-23 Doug Rupp <rupp@adacore.com>
* init.c: Move facility macros outside IN_RTS.
2013-04-23 Thomas Quinot <quinot@adacore.com>
* freeze.adb (Freeze_Entity): For the case of a bit-packed
array time that is known at compile time to have more that
Integer'Last+1 elements, issue an error, since such arrays are
not supported.
From-SVN: r198178
Diffstat (limited to 'gcc/ada/init.c')
| -rw-r--r-- | gcc/ada/init.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 030cb5c..f6f5b2a 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -816,6 +816,10 @@ void (*__gnat_ctrl_c_handler) (void) = 0; #define lib_get_invo_handle LIB$GET_INVO_HANDLE #endif +/* Masks for facility identification. */ +#define FAC_MASK 0x0fff0000 +#define DECADA_M_FACILITY 0x00310000 + /* Define macro symbols for the VMS conditions that become Ada exceptions. It would be better to just include <ssdef.h> */ @@ -914,9 +918,6 @@ extern Exception_Code Base_Code_In (Exception_Code); /* DEC Ada exceptions are not defined in a header file, so they must be declared. */ -#define FAC_MASK 0x0fff0000 -#define DECADA_M_FACILITY 0x00310000 - #define ADA$_ALREADY_OPEN 0x0031a594 #define ADA$_CONSTRAINT_ERRO 0x00318324 #define ADA$_DATA_ERROR 0x003192c4 |