diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 07:51:08 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 07:51:08 +0000 |
| commit | b3190af0cbd12c035ea99e10b0a5f3a24438fa42 (patch) | |
| tree | a8ac044fa68b27fb08b03dcef40c1e31eadc0c99 /gcc/ada/sem_elab.adb | |
| parent | c04fff3eacf443fabf4408992ad0f1a7a40ae6de (diff) | |
| download | gcc-b3190af0cbd12c035ea99e10b0a5f3a24438fa42.tar.gz | |
2011-08-04 Robert Dewar <dewar@adacore.com>
* par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads,
makeutl.adb, makeutl.ads, prj-nmsc.adb, exp_ch5.adb, exp_ch12.adb,
exp_ch7.ads, exp_util.ads, sem_util.ads, g-comlin.ads, exp_ch6.adb,
exp_ch6.ads, lib-xref.ads, exp_ch7.adb, exp_util.adb, exp_dist.adb,
exp_strm.adb, gnatcmd.adb, freeze.adb, g-comlin.adb, lib-xref-alfa.adb,
sem_attr.adb, sem_prag.adb, sem_util.adb, sem_elab.adb, sem_ch8.adb,
sem_ch11.adb, sem_eval.adb, sem_ch13.adb, sem_disp.adb, a-fihema.adb:
Minor reformatting and code reorganization.
2011-08-04 Emmanuel Briot <briot@adacore.com>
* projects.texi: Added doc for aggregate projects.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177320 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 87f31d82e32..d5d4ac3256d 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -661,6 +661,7 @@ package body Sem_Elab is declare Typ : constant Entity_Id := Etype (First_Formal (Ent)); Init : Entity_Id; + begin if not Is_Controlled (Typ) then return; @@ -2156,9 +2157,10 @@ package body Sem_Elab is Insert_Action (Declaration_Node (E), Make_Object_Declaration (Loce, Defining_Identifier => Ent, - Object_Definition => + Object_Definition => New_Occurrence_Of (Standard_Integer, Loce), - Expression => Make_Integer_Literal (Loc, Uint_0))); + Expression => + Make_Integer_Literal (Loc, Uint_0))); -- Set elaboration flag at the point of the body @@ -2182,7 +2184,7 @@ package body Sem_Elab is Insert_Elab_Check (N, Make_Attribute_Reference (Loc, Attribute_Name => Name_Elaborated, - Prefix => New_Occurrence_Of (E, Loc))); + Prefix => New_Occurrence_Of (E, Loc))); end if; -- Generate the warning |