diff options
Diffstat (limited to 'gcc/ada/s-taprop-hpux-dce.adb')
| -rw-r--r-- | gcc/ada/s-taprop-hpux-dce.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index 97b3009e674..1789635f685 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -970,8 +970,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 pragma Unreferenced (T); pragma Unreferenced (Thread_Self); @@ -986,8 +985,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 pragma Unreferenced (T); pragma Unreferenced (Thread_Self); @@ -1006,8 +1004,8 @@ package body System.Task_Primitives.Operations is Tmp_Set : aliased sigset_t; Result : Interfaces.C.int; - function State (Int : System.Interrupt_Management.Interrupt_ID) - return Character; + function State + (Int : System.Interrupt_Management.Interrupt_ID) return Character; pragma Import (C, State, "__gnat_get_interrupt_state"); -- Get interrupt state. Defined in a-init.c -- The input argument is the interrupt number, |