diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 12:37:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 12:37:53 +0200 |
| commit | cd38efa560f565cb02cba62fe919e591dc110b74 (patch) | |
| tree | 4eae409e43f75727ce132480e1c6fc7592638197 /gcc/ada/sinput-d.adb | |
| parent | d6394e2bbc175f53f60e71fccc5a9be4542ce68e (diff) | |
| download | gcc-cd38efa560f565cb02cba62fe919e591dc110b74.tar.gz | |
[multiple changes]
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor reformatting.
2013-10-10 Robert Dewar <dewar@adacore.com>
* sinput-c.adb (Load_File): Ensure Source_Align alignment.
* sinput-d.adb (Create_Debug_Source): Ensure Source_Align alignment.
* sinput-l.adb (Create_Instantiation_Source): Ensure Source_Align
alignment.
(Load_File): Ditto.
* sinput.ads, sinput.adb (Get_Source_File_Index): New optimized (single
line) version.
* types.ads (Source_Align): New definition.
(Source_Buffer): Document new alignment requirement.
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Linker_Section): Allow
this for types.
2013-10-10 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor adjustment to doc for To_Address attribute.
2013-10-10 Vadim Godunko <godunko@adacore.com>
* s-stopoo.ads (Root_Storage_Pool): Add pragma
Preelaborable_Initialization.
From-SVN: r203343
Diffstat (limited to 'gcc/ada/sinput-d.adb')
| -rw-r--r-- | gcc/ada/sinput-d.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sinput-d.adb b/gcc/ada/sinput-d.adb index a860058c900..f150ebf7f0a 100644 --- a/gcc/ada/sinput-d.adb +++ b/gcc/ada/sinput-d.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -62,7 +62,9 @@ package body Sinput.D is Loc : out Source_Ptr) is begin - Loc := Source_File.Table (Source_File.Last).Source_Last + 1; + Loc := + ((Source_File.Table (Source_File.Last).Source_Last + Source_Align) / + Source_Align) * Source_Align; Source_File.Append (Source_File.Table (Source)); Dfile := Source_File.Last; |