diff options
| author | Javier Miranda <miranda@adacore.com> | 2006-10-31 19:11:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:11:44 +0100 |
| commit | 15b540bec80c476a2a37f639a25797357f0172f3 (patch) | |
| tree | f67411d1caed58af4a10e05969be9e1aa9909b51 /gcc/ada/s-tpoben.adb | |
| parent | d5ef47fb25f583d46b42dd53917aa5ff5990bccb (diff) | |
| download | gcc-15b540bec80c476a2a37f639a25797357f0172f3.zip gcc-15b540bec80c476a2a37f639a25797357f0172f3.tar.gz gcc-15b540bec80c476a2a37f639a25797357f0172f3.tar.bz2 | |
2006-10-31 Javier Miranda <miranda@adacore.com>
* s-tpoben.ads, s-tpoben.adb, s-taprob.ads, s-taprob.adb
(Get_Ceiling): New subprogram that returns
the ceiling priority of the protected object.
(Set_Ceiling): New subprogram that sets the new ceiling priority of
the protected object.
* s-tarest.adb: (Create_Restricted_Task): Fix potential CE.
* s-taskin.ads, s-taskin.adb: (Storage_Size): New function.
From-SVN: r118317
Diffstat (limited to 'gcc/ada/s-tpoben.adb')
| -rw-r--r-- | gcc/ada/s-tpoben.adb | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/gcc/ada/s-tpoben.adb b/gcc/ada/s-tpoben.adb index 182ade8..f15afc0 100644 --- a/gcc/ada/s-tpoben.adb +++ b/gcc/ada/s-tpoben.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2006, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -162,6 +162,16 @@ package body System.Tasking.Protected_Objects.Entries is STPO.Finalize_Lock (Object.L'Unrestricted_Access); end Finalize; + ----------------- + -- Get_Ceiling -- + ----------------- + + function Get_Ceiling + (Object : Protection_Entries_Access) return System.Any_Priority is + begin + return Object.New_Ceiling; + end Get_Ceiling; + ------------------------------------- -- Has_Interrupt_Or_Attach_Handler -- ------------------------------------- @@ -349,6 +359,17 @@ package body System.Tasking.Protected_Objects.Entries is end if; end Lock_Read_Only_Entries; + ----------------- + -- Set_Ceiling -- + ----------------- + + procedure Set_Ceiling + (Object : Protection_Entries_Access; + Prio : System.Any_Priority) is + begin + Object.New_Ceiling := Prio; + end Set_Ceiling; + -------------------- -- Unlock_Entries -- -------------------- |