diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-05 16:30:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-05 16:30:30 +0200 |
| commit | e42bcfa38cc3f3315d10f448675807eee860ae3c (patch) | |
| tree | 646f5b0a10883cd181e5420ad3f2d7169d6b0ac8 /gcc/ada/s-tpobop.adb | |
| parent | 544e7c17b592df04a71809db899725dc502103c9 (diff) | |
| download | gcc-e42bcfa38cc3f3315d10f448675807eee860ae3c.zip gcc-e42bcfa38cc3f3315d10f448675807eee860ae3c.tar.gz gcc-e42bcfa38cc3f3315d10f448675807eee860ae3c.tar.bz2 | |
[multiple changes]
2011-09-05 Hristian Kirtchev <kirtchev@adacore.com>
* s-finmas.adb (Set_Finalize_Address): Explain the reason
for the synchronization. Move the test for null from
s-stposu.Allocate_Any_Controlled to this routine since the check
needs to be protected too.
(Set_Heterogeneous_Finalize_Address): Explain the reason for the
synchronization code.
* s-finmas.ads (Set_Heterogeneous_Finalize_Address): Add comment
explaining the context in which this routine is used.
* s-stposu.adb (Allocate_Any_Controlled): Move the test for null
to s-finmas.Set_Finalize_Address.
2011-09-05 Ed Schonberg <schonberg@adacore.com>
* einfo.ads: Document that itypes have no parent field.
2011-09-05 Robert Dewar <dewar@adacore.com>
* rtsfind.adb (Check_CRT): Check for overloaded entity
* rtsfind.ads: Document that entities to be found by rtsfind
cannot be overloaded
* s-taenca.adb, s-tasren.adb, s-tpobop.adb, s-tpoben.ads, s-tpoben.adb
(Lock_Entries_With_Status): New name for Lock_Entries with two
arguments (changed to meet rtsfind no overloading rule).
From-SVN: r178551
Diffstat (limited to 'gcc/ada/s-tpobop.adb')
| -rw-r--r-- | gcc/ada/s-tpobop.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/s-tpobop.adb index 8aeabc2..171c771 100644 --- a/gcc/ada/s-tpobop.adb +++ b/gcc/ada/s-tpobop.adb @@ -568,7 +568,7 @@ package body System.Tasking.Protected_Objects.Operations is -- where abort is already deferred. Initialization.Defer_Abort_Nestable (Self_ID); - Lock_Entries (Object, Ceiling_Violation); + Lock_Entries_With_Status (Object, Ceiling_Violation); if Ceiling_Violation then @@ -722,7 +722,7 @@ package body System.Tasking.Protected_Objects.Operations is -- Requeue is to different PO - Lock_Entries (New_Object, Ceiling_Violation); + Lock_Entries_With_Status (New_Object, Ceiling_Violation); if Ceiling_Violation then Object.Call_In_Progress := null; @@ -966,7 +966,7 @@ package body System.Tasking.Protected_Objects.Operations is end if; Initialization.Defer_Abort_Nestable (Self_Id); - Lock_Entries (Object, Ceiling_Violation); + Lock_Entries_With_Status (Object, Ceiling_Violation); if Ceiling_Violation then Initialization.Undefer_Abort (Self_Id); |