* s-osinte-linux-alpha.ads, s-osinte-linux-hppa.ads

	(To_Target_Priority): New function.
	Fix PR ada/29707

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118496 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1b6b0c9..d9ab2ab 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 f5e2182..7925a5e 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 2a033f1..f0e2bba 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 --
    -------------