diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2006-11-05 10:58:41 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-11-05 11:58:41 +0100 |
| commit | 75c0ed055fcc0a895c8b9f195cdbfad094e84204 (patch) | |
| tree | 8d5421f16fdb154435ae7a2c6a5a2e0827e75c70 /gcc | |
| parent | 4db425b298b599289a1942710dcb5cd2fe501d68 (diff) | |
| download | gcc-75c0ed055fcc0a895c8b9f195cdbfad094e84204.zip gcc-75c0ed055fcc0a895c8b9f195cdbfad094e84204.tar.gz gcc-75c0ed055fcc0a895c8b9f195cdbfad094e84204.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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 1b6b0c9..d9ab2ab 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 f5e2182..7925a5e 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 2a033f1..f0e2bba 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 -- ------------- |