diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:02:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:02:01 +0000 |
| commit | c91c62d4923b927622091fdce131127fb1140867 (patch) | |
| tree | 6f92f864c0116522b5ab5e59fa7501acb70447e3 /gcc/ada/makeutl.adb | |
| parent | c4866605abc8d4a0002eb5226c2e40daea95bbc6 (diff) | |
| download | gcc-c91c62d4923b927622091fdce131127fb1140867.tar.gz | |
2011-08-04 Eric Botcazou <ebotcazou@adacore.com>
* bindgen.adb (Gen_Finalize_Library_Ada): Factor out code to generate
the header of the finalization routine.
If the unit has no finalizer but is a body whose spec has one, then
generate the decrement of the elaboration entity only.
If the unit has a finalizer and is a spec, then do not generate the
decrement of the elaboration entity.
(Gen_Finalize_Library_C): Likewise.
2011-08-04 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Alignment_Of): New subsidiary routine.
(Bounds_Size_Expression): Removed.
(Double_Alignment_Of): New subsidiary routine.
(Make_Finalize_Address_Stmts): New local variable Index_Typ. Account
for a hole in the dope vector of unconstrained arrays due to different
index and element alignments.
2011-08-04 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Resolve_Allocator): diagnose task allocator that will
raise program_error because body has not been seen yet.
2011-08-04 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Analyze_With_Clause): Protect against child unit with
an unresolved name.
2011-08-04 Vincent Celier <celier@adacore.com>
* makeutl.adb (Do_Complete): Check absolute paths in canonical forms
2011-08-04 Yannick Moy <moy@adacore.com>
* alfa.adb, alfa.ads (Unique_Defining_Entity): move function from here
* sem_util.adb, sem_util.ads (Unique_Defining_Entity): ...to here
2011-08-04 Thomas Quinot <quinot@adacore.com>
* sem_ch12.adb (Analyze_Package_Instantiation): Do not omit body for
instantiation in RCI.
2011-08-04 Emmanuel Briot <briot@adacore.com>
* make.adb: Share more code with gprbuild
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177361 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 3d14990da20..17aba047221 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -1347,7 +1347,7 @@ package body Makeutl is then -- Traverse in reverse order, since in the case of multi-unit -- files we will be adding extra files at the end, and there's - -- no need to process them in tun. + -- no need to process them in turn. for J in reverse Names.First .. Names.Last loop declare @@ -1457,7 +1457,7 @@ package body Makeutl is else if Is_Absolute then - if File_Name_Type (Source.Path.Display_Name) /= + if File_Name_Type (Source.Path.Name) /= File.File then Debug_Output |