diff options
| author | Pascal Obry <obry@adacore.com> | 2011-09-27 09:16:57 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-27 11:16:57 +0200 |
| commit | 343250a6d51af7dcd96f1d3a253c9971a5db6bc5 (patch) | |
| tree | 270e602ff78dbecb097e5aa8cfefa927c2aef41e /gcc/ada/rtsfind.ads | |
| parent | 48acf1b78b128d2cace0705d159db7e2791756cf (diff) | |
| download | gcc-343250a6d51af7dcd96f1d3a253c9971a5db6bc5.zip gcc-343250a6d51af7dcd96f1d3a253c9971a5db6bc5.tar.gz gcc-343250a6d51af7dcd96f1d3a253c9971a5db6bc5.tar.bz2 | |
rtsfind.ads: Add RE_Lock_Read_Only into rtsfind circuitry.
2011-09-27 Pascal Obry <obry@adacore.com>
* rtsfind.ads: Add RE_Lock_Read_Only into rtsfind circuitry.
(RE_Id): Add RE_Lock_Read_Only.
(RE_Unit_Table): Likewise.
* sem_prag.adb (Process_Convention): Change Pragma_Locking_Policy
to lift restriction on first character. Handle now the
Name_Concurrent_Readers_Locking where policy character is set to
'R'.
* snames.ads-tmpl (Name_Concurrent_Readers_Locking): New
constant.
* exp_ch9.adb (Build_Protected_Subprogram_Body): Generate a
read only lock for function in protected object.
* s-taprob.ads (Lock_Read_Only): Remove obsolete comment as
this routine is now used.
From-SVN: r179248
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index ddbede2..07bf012 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -1653,6 +1653,7 @@ package Rtsfind is RE_Initialize_Protection, -- System.Tasking.Protected_Objects RE_Finalize_Protection, -- System.Tasking.Protected_Objects RE_Lock, -- System.Tasking.Protected_Objects + RE_Lock_Read_Only, -- System.Tasking.Protected_Objects RE_Get_Ceiling, -- System.Tasking.Protected_Objects RE_Set_Ceiling, -- System.Tasking.Protected_Objects RE_Unlock, -- System.Tasking.Protected_Objects @@ -2883,6 +2884,7 @@ package Rtsfind is RE_Initialize_Protection => System_Tasking_Protected_Objects, RE_Finalize_Protection => System_Tasking_Protected_Objects, RE_Lock => System_Tasking_Protected_Objects, + RE_Lock_Read_Only => System_Tasking_Protected_Objects, RE_Get_Ceiling => System_Tasking_Protected_Objects, RE_Set_Ceiling => System_Tasking_Protected_Objects, RE_Unlock => System_Tasking_Protected_Objects, |