diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:11:03 +0200 |
| commit | f96fd197d26faabef756d6cb97d782919685b45e (patch) | |
| tree | 3baada419f5066d0448cfe4adb129eaa98d8f006 /gcc/ada/layout.adb | |
| parent | 3ba1a9eb6ec22706bdb084db2f1ab31a32d4dde8 (diff) | |
| download | gcc-f96fd197d26faabef756d6cb97d782919685b45e.zip gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.gz gcc-f96fd197d26faabef756d6cb97d782919685b45e.tar.bz2 | |
[multiple changes]
2016-05-02 Arnaud Charlet <charlet@adacore.com>
* exp_ch5.adb, layout.adb, gnatcmd.adb exp_attr.adb, make.adb,
bindgen.adb, debug.adb, exp_pakd.adb, freeze.adb, sem_util.adb,
gnatlink.adb, switch-m.adb, exp_ch4.adb, repinfo.adb, adabkend.adb,
osint.adb: Remove dead code.
2016-05-02 Yannick Moy <moy@adacore.com>
* a-tigeli.adb (Get_Line): Fix bound for test to
decide when to compensate for character 0 added by call to fgets.
From-SVN: r235710
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 15f94a4..7e28d3f 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2016, 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- -- @@ -2501,24 +2501,6 @@ package body Layout is then Init_Size (E, 2 * System_Address_Size); - -- When the target is AAMP, access-to-subprogram types are fat - -- pointers consisting of the subprogram address and a static link, - -- with the exception of library-level access types (including - -- library-level anonymous access types, such as for components), - -- where a simple subprogram address is used. - - elsif AAMP_On_Target - and then - ((Ekind (E) = E_Access_Subprogram_Type - and then Present (Enclosing_Subprogram (E))) - or else - (Ekind (E) = E_Anonymous_Access_Subprogram_Type - and then - (not Is_Local_Anonymous_Access (E) - or else Present (Enclosing_Subprogram (E))))) - then - Init_Size (E, 2 * System_Address_Size); - -- Normal case of thin pointer else |