diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 10:42:04 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-20 10:42:04 +0100 |
| commit | dacc3457d6960a86f27178af18a161e47c48ec41 (patch) | |
| tree | f1d580120e05d9347d759a8a86164e86db31fa20 /gcc/ada/s-stalib.ads | |
| parent | 426c1eb04bf1549ab72e35cb49cac0a5a36fb83b (diff) | |
| download | gcc-dacc3457d6960a86f27178af18a161e47c48ec41.zip gcc-dacc3457d6960a86f27178af18a161e47c48ec41.tar.gz gcc-dacc3457d6960a86f27178af18a161e47c48ec41.tar.bz2 | |
[multiple changes]
2015-02-20 Robert Dewar <dewar@adacore.com>
* einfo.ads: Minor comment updates Fix missing pragma Inline
for Set_Partial_View_Has_Unknown_Discr.
* einfo.adb (Write_Entity_Flags): Add missing entry for
Partial_View_Has_Unknown_Discr.
* sem_ch3.adb: Minor reformatting.
2015-02-20 Vincent Celier <celier@adacore.com>
* opt.ads: Minor cleanup: remove mention of gprmake.
* s-stalib.ads (Abort_Undefer_Direct): Do not inline.
* s-tataat.adb: Do not call System.Tasking.Self but directly
System.Task_Primitives.Operations.Self.
From-SVN: r220839
Diffstat (limited to 'gcc/ada/s-stalib.ads')
| -rw-r--r-- | gcc/ada/s-stalib.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index c7f28fe..e3e8e10 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -239,9 +239,10 @@ package System.Standard_Library is ----------------- procedure Abort_Undefer_Direct; - pragma Inline (Abort_Undefer_Direct); -- A little procedure that just calls Abort_Undefer.all, for use in -- clean up procedures, which only permit a simple subprogram name. + -- ??? This procedure is not marked inline because the front-end + -- cannot currently mark its calls from at-end handers as inlined. procedure Adafinal; -- Performs the Ada Runtime finalization the first time it is invoked. |