diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 09:57:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-22 09:57:03 +0000 |
| commit | 1c3efe5ceaa7b9714778941477f45544c92e98ee (patch) | |
| tree | f6c48168660afba6763dcb54837b600ff4e8f36e /gcc/ada/a-tasatt.adb | |
| parent | 46f744334dac03bca2e656ff8dab00e165359fd1 (diff) | |
| download | ppe42-gcc-1c3efe5ceaa7b9714778941477f45544c92e98ee.tar.gz ppe42-gcc-1c3efe5ceaa7b9714778941477f45544c92e98ee.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146558 138bc75d-0d04-0410-961f-82ee72b054a4
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 69c4b9bdf71..11db89e4648 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' |
