diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-22 11:57:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-22 11:57:03 +0200 |
| commit | 1ef4d0a80a0f685d97c032717c90032f9793f3af (patch) | |
| tree | f6c48168660afba6763dcb54837b600ff4e8f36e /gcc/ada/a-tasatt.adb | |
| parent | 1cb46af046435fde79f3b2cf351e2bfc654d8422 (diff) | |
| download | gcc-1ef4d0a80a0f685d97c032717c90032f9793f3af.zip gcc-1ef4d0a80a0f685d97c032717c90032f9793f3af.tar.gz gcc-1ef4d0a80a0f685d97c032717c90032f9793f3af.tar.bz2 | |
[multiple changes]
2009-04-22 Robert Dewar <dewar@adacore.com>
* lib-load.adb: Minor reformatting
2009-04-22 Arnaud Charlet <charlet@adacore.com>
* s-bitops.adb, s-bitops.ads (Raise_Error): Do not use Ada 05 syntax,
since this unit is now part of bootstrap units, so must use Ada 95
syntax only.
2009-04-22 Thomas Quinot <quinot@adacore.com>
* a-tasatt.adb: Minor reformatting
2009-04-22 Bob Duff <duff@adacore.com>
* s-stalib.ads: Remove "with System;" since we're inside System, so
it's unnecessary.
2009-04-22 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_Source): Always put the dependency file name in
the source record, as there may be a dependency file even if no object
file is created.
From-SVN: r146558
Diffstat (limited to 'gcc/ada/a-tasatt.adb')
| -rw-r--r-- | gcc/ada/a-tasatt.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index 69c4b9b..11db89e 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2008, AdaCore -- +-- Copyright (C) 1995-2009, AdaCore -- -- -- -- GNARL 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- -- @@ -42,15 +42,15 @@ -- include: -- - It is vulnerable to bad Task_Id values, to the extent of possibly --- trashing memory and crashing the runtime system. +-- trashing memory and crashing the runtime system. -- - It requires dynamic storage allocation for each new attribute value, --- except for types that happen to be the same size as System.Address, or --- shorter. +-- except for types that happen to be the same size as System.Address, or +-- shorter. --- - Instantiations at other than the library level rely on being able to --- do down-level calls to a procedure declared in the generic package body. --- This makes it potentially vulnerable to compiler changes. +-- - Instantiations at other than the library level rely on being able to +-- do down-level calls to a procedure declared in the generic package body. +-- This makes it potentially vulnerable to compiler changes. -- The main implementation issue here is that the connection from task to -- attribute is a potential source of dangling references. @@ -249,8 +249,8 @@ package body Ada.Task_Attributes is -- Unchecked Conversions -- --------------------------- - -- The following type corresponds to Dummy_Wrapper, - -- declared in System.Tasking.Task_Attributes. + -- The following type corresponds to Dummy_Wrapper, declared in + -- System.Tasking.Task_Attributes. type Wrapper; type Access_Wrapper is access all Wrapper; @@ -399,9 +399,9 @@ package body Ada.Task_Attributes is P := P.Next; end loop; - -- Unlock the RTS here to follow the lock ordering rule - -- that prevent us from using new (i.e the Global_Lock) while - -- holding any other lock. + -- Unlock the RTS here to follow the lock ordering rule that + -- prevent us from using new (i.e the Global_Lock) while holding + -- any other lock. POP.Unlock_RTS; W := new Wrapper' |