diff options
Diffstat (limited to 'gcc/ada/s-taprop-vxworks.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vxworks.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index 4ed3d8d925b..f83fc02e495 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.adb @@ -681,7 +681,6 @@ package body System.Task_Primitives.Operations is function Monotonic_Clock return Duration is TS : aliased timespec; Result : int; - begin Result := clock_gettime (CLOCK_REALTIME, TS'Unchecked_Access); pragma Assert (Result = 0); @@ -703,9 +702,7 @@ package body System.Task_Primitives.Operations is procedure Wakeup (T : Task_Id; Reason : System.Tasking.Task_States) is pragma Unreferenced (Reason); - Result : int; - begin Result := semGive (T.Common.LL.CV); pragma Assert (Result = 0); @@ -1019,7 +1016,6 @@ package body System.Task_Primitives.Operations is function Check_Exit (Self_ID : ST.Task_Id) return Boolean is pragma Unreferenced (Self_ID); - begin return True; end Check_Exit; @@ -1030,7 +1026,6 @@ package body System.Task_Primitives.Operations is function Check_No_Locks (Self_ID : ST.Task_Id) return Boolean is pragma Unreferenced (Self_ID); - begin return True; end Check_No_Locks; @@ -1068,8 +1063,7 @@ package body System.Task_Primitives.Operations is function Suspend_Task (T : ST.Task_Id; - Thread_Self : Thread_Id) - return Boolean + Thread_Self : Thread_Id) return Boolean is begin if T.Common.LL.Thread /= 0 @@ -1087,8 +1081,7 @@ package body System.Task_Primitives.Operations is function Resume_Task (T : ST.Task_Id; - Thread_Self : Thread_Id) - return Boolean + Thread_Self : Thread_Id) return Boolean is begin if T.Common.LL.Thread /= 0 |