diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 12:32:18 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-29 12:32:18 +0100 |
| commit | 7af1cf8342f73410aba4a9edf0c54b918a6a775d (patch) | |
| tree | a79b25a13d60cad12993f696eddcc4aa1cb75614 /gcc/ada/s-tpoben.adb | |
| parent | 2d7b3fa49dd6dabc94eb6ad86ccdbefdb851cf78 (diff) | |
| download | gcc-7af1cf8342f73410aba4a9edf0c54b918a6a775d.zip gcc-7af1cf8342f73410aba4a9edf0c54b918a6a775d.tar.gz gcc-7af1cf8342f73410aba4a9edf0c54b918a6a775d.tar.bz2 | |
[multiple changes]
2012-10-29 Robert Dewar <dewar@adacore.com>
* sem_prag.adb: Minor reformatting.
2012-10-29 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor rewording.
2012-10-29 Javier Miranda <miranda@adacore.com>
* exp_disp.ads (Is_Expanded_Dispatching_Call): New subprogram.
* exp_disp.adb (Expand_Dispatching_Call): No action needed if the
call has been already expanded.
(Is_Expanded_Dispatching_Call): New subprogram.
* sem_disp.adb (Propagate_Tag): No action needed if the call
has been already expanded.
2012-10-29 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb (Create_Index_And_Data): Remove local
variable Index_Typ and its uses. The type of the index is now
System.Tasking.Entry_Index. Update all related comments.
* rtsfind.ads: Add RE_Entry_Index in tables RE_Id and RE_Unit_Table.
* s-taskin.adb (Number_Of_Entries): The return type is now Entry_Index.
* s-taskin.ads: The index type of Task_Entry_Names_Array is now
Entry_Index.
(Number_Of_Entries): The return type is now Entry_Index.
* s-tpoben.adb (Number_Of_Entries): The return type is now Entry_Index.
* s-tpoben.ads: The index type of Protected_Entry_Names_Array
is now Entry_Index.
(Number_Of_Entries): The return type is now Entry_Index.
2012-10-29 Pascal Obry <obry@adacore.com>
* gnat_ugn.texi: Add note about SEH setup on x86-windows.
2012-10-29 Eric Botcazou <ebotcazou@adacore.com>
* s-bignum.adb (Allocate_Bignum): Use the exact layout of
Bignum_Data for the overlay.
From-SVN: r192936
Diffstat (limited to 'gcc/ada/s-tpoben.adb')
| -rw-r--r-- | gcc/ada/s-tpoben.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-tpoben.adb b/gcc/ada/s-tpoben.adb index f535a06..3249122 100644 --- a/gcc/ada/s-tpoben.adb +++ b/gcc/ada/s-tpoben.adb @@ -359,10 +359,10 @@ package body System.Tasking.Protected_Objects.Entries is ----------------------- function Number_Of_Entries - (Object : Protection_Entries_Access) return Protected_Entry_Index + (Object : Protection_Entries_Access) return Entry_Index is begin - return Object.Num_Entries; + return Entry_Index (Object.Num_Entries); end Number_Of_Entries; ----------------- |