From 75c0ed055fcc0a895c8b9f195cdbfad094e84204 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Sun, 5 Nov 2006 10:58:41 +0000 Subject: [PATCH] re PR ada/29707 (s-osinte.adb:86:13: warning: function "To_Target_Priority" is not referenced) * s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads (To_Target_Priority): New function. Fix PR ada/29707 From-SVN: r118496 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/s-osinte-linux-alpha.ads | 4 ++++ gcc/ada/s-osinte-linux-hppa.ads | 4 ++++ 3 files changed, 14 insertions(+) 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 + + * s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads + (To_Target_Priority): New function. + Fix PR ada/29707 + 2006-10-31 Robert Dewar * 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 -- ------------- -- 2.30.2