diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:14:44 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-04-25 17:14:44 +0200 |
commit | 39ad16657c9de8b8c1736e2145f8e8f38cb8bff1 (patch) | |
tree | a2ec87a172580f2d22c3107911ec0a58fdb2ff15 /gcc/ada/lib-writ.adb | |
parent | d024b1268cedd1e5720d9f6968bef11d8a159c15 (diff) | |
download | gcc-39ad16657c9de8b8c1736e2145f8e8f38cb8bff1.zip gcc-39ad16657c9de8b8c1736e2145f8e8f38cb8bff1.tar.gz gcc-39ad16657c9de8b8c1736e2145f8e8f38cb8bff1.tar.bz2 |
[multiple changes]
2012-04-25 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, csinfo.adb, lib-writ.adb, sem_ch12.adb,
lib-xref.adb: Minor reformatting.
2012-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb: Rename Lock_Free_Sub_Type
to Lock_Free_Subprogram. Remove type Subprogram_Id.
Rename LF_Sub_Table to Lock_Free_Subprogram_Table.
(Allow_Lock_Free_Implementation): Renamed to
Allows_Lock_Free_Implementation. Update the comment on
lock-free restrictions. Code clean up and restructuring.
(Build_Lock_Free_Protected_Subprogram_Body): Update the
profile and related comments. Code clean up and restructuring.
(Build_Lock_Free_Unprotected_Subprogram_Body): Update the
profile and related comments. Code clean up and restructuring.
(Comp_Of): Removed.
From-SVN: r186828
Diffstat (limited to 'gcc/ada/lib-writ.adb')
-rw-r--r-- | gcc/ada/lib-writ.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index e25355b..29b435a 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -197,8 +197,9 @@ package body Lib.Writ is -- Array of flags to show which units have Elaborate_All_Desirable set type Yes_No is (Unknown, Yes, No); - Implicit_With : array (Units.First .. Last_Unit) of Yes_No; + -- Indicates if an implicit with has been given for the unit. Yes if + -- certainly present, no if certainly absent, unkonwn if not known. Sdep_Table : Unit_Ref_Table (1 .. Pos (Last_Unit - Units.First + 2)); -- Sorted table of source dependencies. One extra entry in case we @@ -284,7 +285,6 @@ package body Lib.Writ is if Implicit_With (Unum) /= Yes then if Implicit_With_From_Instantiation (Item) then Implicit_With (Unum) := Yes; - else Implicit_With (Unum) := No; end if; |