diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-12 12:52:59 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-12 12:52:59 +0100 |
| commit | 549cc9c2bcb93b5424c9a0967016d4e51e587311 (patch) | |
| tree | e3316f28c5129d8661e41c313965dd0c973deda3 /gcc/ada/gnat1drv.adb | |
| parent | b3083540f530b6e28e57756e23c98670f69df4af (diff) | |
| download | gcc-549cc9c2bcb93b5424c9a0967016d4e51e587311.zip gcc-549cc9c2bcb93b5424c9a0967016d4e51e587311.tar.gz gcc-549cc9c2bcb93b5424c9a0967016d4e51e587311.tar.bz2 | |
[multiple changes]
2015-11-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Find_Selected_Component): In a synchronized
body, a reference to an operation of an object of the same
synchronized type was always interpreted as a reference to the
current instance. This is not always the case, as the prefix of
the reference may designate an object of the same type declared
in the enclosing context prior to the body.
2015-11-12 Arnaud Charlet <charlet@adacore.com>
* impunit.ads, impunit.adb (Get_Kind_Of_File): New. Cleaned up
implementation from previous Get_Kind_Of_Unit.
(Get_Kind_Of_Unit): Reimplemented using Get_Kind_Of_File.
* debug.adb: Remove d.4 switch, no longer used.
* opt.ads: Update doc on Debugger_Level.
* gnat1drv.adb: Code clean ups.
* sinput.ads: minor fix in comment
2015-11-12 Bob Duff <duff@adacore.com>
* sinfo.adb, sinfo.ads, sem_ch6.adb, atree.ads: Add
Was_Expression_Function flag, which is set in sem_ch6.adb when
converting an Expression_Function into a Subprogram_Body.
2015-11-12 Pascal Obry <obry@adacore.com>
* usage.adb: Update overflow checking documentation.
From-SVN: r230243
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 586844d..e84719a 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -148,12 +148,16 @@ procedure Gnat1drv is Generate_C_Code := True; Modify_Tree_For_C := True; Unnest_Subprogram_Mode := True; - Back_Annotate_Rep_Info := True; -- Set operating mode to Generate_Code to benefit from full front-end -- expansion (e.g. generics). Operating_Mode := Generate_Code; + + -- Suppress alignment checks since we do not have access to alignment + -- info on the target + + Suppress_Options.Suppress (Alignment_Check) := False; end if; -- -gnatd.E sets Error_To_Warning mode, causing selected error messages @@ -1346,8 +1350,8 @@ begin Back_End.Call_Back_End (Back_End_Mode); -- Once the backend is complete, we unlock the names table. This call - -- allows a few extra entries, needed for example for the file name for - -- the library file output. + -- allows a few extra entries, needed for example for the file name + -- for the library file output. Namet.Unlock; |