diff options
| author | Jose Ruiz <ruiz@adacore.com> | 2008-05-26 11:41:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-26 11:41:28 +0200 |
| commit | c99990440ced6708203b252ba48b528e9512b671 (patch) | |
| tree | 277de876c9b266e6b07fb26db75eb971d3fd7cb1 /gcc | |
| parent | 9c290e692c7d1a39596651b7deed359bd9af1378 (diff) | |
| download | gcc-c99990440ced6708203b252ba48b528e9512b671.zip gcc-c99990440ced6708203b252ba48b528e9512b671.tar.gz gcc-c99990440ced6708203b252ba48b528e9512b671.tar.bz2 | |
2008-05-26 Jose Ruiz <ruiz@adacore.com>
* s-osinte-aix.adb:
(To_Target_Priority): Setting the time slice value to 0 or greater sets
the scheduling policy to FIFO within priorities or round-robin
respectively.
Hence, the priority must be set in this case to the one selected by the
user.
From-SVN: r135907
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/s-osinte-aix.adb | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/gcc/ada/s-osinte-aix.adb b/gcc/ada/s-osinte-aix.adb index 469ce3b..cdaff52 100644 --- a/gcc/ada/s-osinte-aix.adb +++ b/gcc/ada/s-osinte-aix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2008, 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- -- @@ -65,13 +65,18 @@ package body System.OS_Interface is Dispatching_Policy : Character; pragma Import (C, Dispatching_Policy, "__gl_task_dispatching_policy"); + Time_Slice_Val : Integer; + pragma Import (C, Time_Slice_Val, "__gl_time_slice_val"); + begin -- For the case SCHED_OTHER the only valid priority across all supported - -- versions of AIX is 1. Otherwise, for SCHED_RR and SCHED_FIFO, the - -- system defines priorities in the range 1 .. 127. This means that we - -- must map System.Any_Priority in the range 0 .. 126 to 1 .. 127. + -- versions of AIX is 1 (note that the scheduling policy can be set + -- with the pragma Task_Dispatching_Policy or setting the time slice + -- value). Otherwise, for SCHED_RR and SCHED_FIFO, the system defines + -- priorities in the range 1 .. 127. This means that we must map + -- System.Any_Priority in the range 0 .. 126 to 1 .. 127. - if Dispatching_Policy = ' ' then + if Dispatching_Policy = ' ' and then Time_Slice_Val < 0 then return 1; else return Interfaces.C.int (Prio) + 1; |