diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-17 14:56:55 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-17 14:56:55 +0100 |
| commit | 260359e35de7fcc0d7746cdc3983857fba1b9f7a (patch) | |
| tree | e139ece8778dadcfdec61d440ca2acd7abacbab4 /gcc/ada/s-tasren.adb | |
| parent | bae868fba9ff95c0f9d6f8bd2d578592f8714d54 (diff) | |
| download | gcc-260359e35de7fcc0d7746cdc3983857fba1b9f7a.zip gcc-260359e35de7fcc0d7746cdc3983857fba1b9f7a.tar.gz gcc-260359e35de7fcc0d7746cdc3983857fba1b9f7a.tar.bz2 | |
[multiple changes]
2012-02-17 Robert Dewar <dewar@adacore.com>
* sem_dim.adb, sem_dim.ads, s-tasren.adb, prj.adb, prj.ads, freeze.adb,
sem_res.adb, exp_ch4.adb, sinput.adb, sinput.ads, exp_aggr.adb,
exp_intr.adb, s-os_lib.adb: Minor reformatting.
2012-02-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Is_Non_Overriding_Operation): Add warning if the
old operation is abstract, the relevant type is not abstract,
and the new subprogram fails to override.
From-SVN: r184336
Diffstat (limited to 'gcc/ada/s-tasren.adb')
| -rw-r--r-- | gcc/ada/s-tasren.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-tasren.adb b/gcc/ada/s-tasren.adb index 2d9baad..16873e8 100644 --- a/gcc/ada/s-tasren.adb +++ b/gcc/ada/s-tasren.adb @@ -110,8 +110,8 @@ package body System.Tasking.Rendezvous is procedure Local_Complete_Rendezvous (Ex : Ada.Exceptions.Exception_Id); -- Internal version of Complete_Rendezvous, used to implement -- Complete_Rendezvous and Exceptional_Complete_Rendezvous. - -- Should be called holding no locks, generally with abort not yet - -- deferred. + -- Should be called holding no locks, generally with abort + -- not yet deferred. procedure Boost_Priority (Call : Entry_Call_Link; Acceptor : Task_Id); pragma Inline (Boost_Priority); @@ -538,7 +538,7 @@ package body System.Tasking.Rendezvous is Called_PO : STPE.Protection_Entries_Access; Acceptor_Prev_Priority : Integer; - Ceiling_Violation : Boolean; + Ceiling_Violation : Boolean; use type Ada.Exceptions.Exception_Id; procedure Transfer_Occurrence |