diff options
author | Arnaud Charlet <charlet@adacore.com> | 2006-11-05 10:58:41 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@adacore.com> | 2006-11-05 10:58:41 +0000 |
commit | 30ec608d0162037510ad288349f7d9ba514a0341 (patch) | |
tree | 8d5421f16fdb154435ae7a2c6a5a2e0827e75c70 | |
parent | faba30a0508960b23b0b99dce8b337e10d174424 (diff) |
* s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads
(To_Target_Priority): New function.
Fix PR ada/29707
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@118496 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/ada/s-osinte-linux-alpha.ads | 4 | ||||
-rw-r--r-- | gcc/ada/s-osinte-linux-hppa.ads | 4 |
3 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1b6b0c90852..d9ab2ab1885 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2006-11-05 Arnaud Charlet <charlet@adacore.com> + + * s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads + (To_Target_Priority): New function. + Fix PR ada/29707 + 2006-10-31 Robert Dewar <dewar@adacore.com> * a-taster.adb, s-traent-vms.adb, a-elchha.ads, a-elchha.adb, diff --git a/gcc/ada/s-osinte-linux-alpha.ads b/gcc/ada/s-osinte-linux-alpha.ads index f5e21823918..7925a5e0558 100644 --- a/gcc/ada/s-osinte-linux-alpha.ads +++ b/gcc/ada/s-osinte-linux-alpha.ads @@ -246,6 +246,10 @@ package System.OS_Interface is SCHED_FIFO : constant := 1; SCHED_RR : constant := 2; + function To_Target_Priority + (Prio : System.Any_Priority) return Interfaces.C.int; + -- Maps System.Any_Priority to a POSIX priority. + ------------- -- Process -- ------------- diff --git a/gcc/ada/s-osinte-linux-hppa.ads b/gcc/ada/s-osinte-linux-hppa.ads index 2a033f1f9aa..f0e2bba34ef 100644 --- a/gcc/ada/s-osinte-linux-hppa.ads +++ b/gcc/ada/s-osinte-linux-hppa.ads @@ -253,6 +253,10 @@ package System.OS_Interface is SCHED_FIFO : constant := 1; SCHED_RR : constant := 2; + function To_Target_Priority + (Prio : System.Any_Priority) return Interfaces.C.int; + -- Maps System.Any_Priority to a POSIX priority. + ------------- -- Process -- ------------- |