diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-08-05 11:08:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-08-05 11:08:50 +0200 |
| commit | c97c0163bcc9c1e3020fc47d639e19debc51e80d (patch) | |
| tree | 0f2fa14ed20ebea4be91248f8d43e6b6bef912d4 /gcc/ada/sem_elab.adb | |
| parent | b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e (diff) | |
| download | gcc-c97c0163bcc9c1e3020fc47d639e19debc51e80d.zip gcc-c97c0163bcc9c1e3020fc47d639e19debc51e80d.tar.gz gcc-c97c0163bcc9c1e3020fc47d639e19debc51e80d.tar.bz2 | |
[multiple changes]
2010-08-05 Robert Dewar <dewar@adacore.com>
* a-suezse.adb, a-suezse.ads, a-suezen.adb, a-suezen.ads: Removed.
* a-suewse.adb, a-suewse.ads, a-suesen.adb, a-suesen.ads,
a-suewen.adb, a-suewen.ads: New files.
* Makefile.rtl, impunit.adb: Update implementation of Ada 2012 string
encoding packages.
* sem_elab.adb: Minor reformatting.
2010-08-05 Arnaud Charlet <charlet@adacore.com>
* sem_ch8.adb (Use_One_Type): Protect against empty scopes.
* exp_util.adb (Component_May_Be_Bit_Aligned): Prevent assert failure
in case of null Comp.
From-SVN: r162904
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 74aac9e..7ed76f6 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -2850,8 +2850,8 @@ package body Sem_Elab is Typ : constant Entity_Id := Etype (N); Chk : constant Boolean := Do_Range_Check (N); - R : constant Node_Id := - Make_Raise_Program_Error (Loc, + R : constant Node_Id := + Make_Raise_Program_Error (Loc, Reason => PE_Access_Before_Elaboration); Reloc_N : Node_Id; |