re PR ada/29707 (s-osinte.adb:86:13: warning: function "To_Target_Priority" is not...

	* s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads
	(To_Target_Priority): New function.
	Fix PR ada/29707

From-SVN: r118496

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1b6b0c908528eb86a73225f1aa1c302fa65dfc81..d9ab2ab1885031ec46fc307e3f9a7fd72d8fa560 100644 (file)
--- 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 f5e218239187a07ff1328e92ee4da94083b5b4fb..7925a5e055872042fd90d7482e8e52c884bab620 100644 (file)
--- 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 2a033f1f9aaf34e7726ae5b9a0d04c662c92fdbc..f0e2bba34ef3c162e31f7e6f9ab2e38da674d373 100644 (file)
--- 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 --
    -------------