From: Jose Ruiz Date: Mon, 26 May 2008 09:41:28 +0000 (+0200) Subject: 2008-05-26 Jose Ruiz X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c99990440ced6708203b252ba48b528e9512b671;p=gcc.git 2008-05-26 Jose Ruiz * 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 --- diff --git a/gcc/ada/s-osinte-aix.adb b/gcc/ada/s-osinte-aix.adb index 469ce3bfbb4..cdaff52b20d 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;