diff options
Diffstat (limited to 'gcc/ada/s-tasinf-irix.ads')
| -rw-r--r-- | gcc/ada/s-tasinf-irix.ads | 28 |
1 files changed, 6 insertions, 22 deletions
diff --git a/gcc/ada/s-tasinf-irix.ads b/gcc/ada/s-tasinf-irix.ads index 9d71f62ebc8..eb8432d63b7 100644 --- a/gcc/ada/s-tasinf-irix.ads +++ b/gcc/ada/s-tasinf-irix.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -44,14 +44,12 @@ -- This is the IRIX (kernel threads) version of this package with Interfaces.C; -with System.OS_Interface; package System.Task_Info is + pragma Preelaborate; pragma Elaborate_Body; -- To ensure that a body is allowed - package OSI renames System.OS_Interface; - ----------------------------------------- -- Implementation of Task_Info Feature -- ----------------------------------------- @@ -91,27 +89,13 @@ package System.Task_Info is subtype Thread_Scheduling_Priority is Integer range No_Specified_Priority .. 255; - function Min (Policy : Interfaces.C.int) return Interfaces.C.int - renames OSI.sched_get_priority_min; - - function Max (Policy : Interfaces.C.int) return Interfaces.C.int - renames OSI.sched_get_priority_max; - - subtype FIFO_Priority is Thread_Scheduling_Priority range - Thread_Scheduling_Priority (Min (OSI.SCHED_FIFO)) .. - Thread_Scheduling_Priority (Max (OSI.SCHED_FIFO)); + subtype FIFO_Priority is Thread_Scheduling_Priority range 0 .. 255; - subtype RR_Priority is Thread_Scheduling_Priority range - Thread_Scheduling_Priority (Min (OSI.SCHED_RR)) .. - Thread_Scheduling_Priority (Max (OSI.SCHED_RR)); + subtype RR_Priority is Thread_Scheduling_Priority range 0 .. 255; - subtype TS_Priority is Thread_Scheduling_Priority range - Thread_Scheduling_Priority (Min (OSI.SCHED_TS)) .. - Thread_Scheduling_Priority (Max (OSI.SCHED_TS)); + subtype TS_Priority is Thread_Scheduling_Priority range 1 .. 40; - subtype OTHER_Priority is Thread_Scheduling_Priority range - Thread_Scheduling_Priority (Min (OSI.SCHED_OTHER)) .. - Thread_Scheduling_Priority (Max (OSI.SCHED_OTHER)); + subtype OTHER_Priority is Thread_Scheduling_Priority range 1 .. 40; subtype CPU_Number is Integer range -1 .. Integer'Last; ANY_CPU : constant CPU_Number := CPU_Number'First; |