diff options
Diffstat (limited to 'gcc/ada/s-osinte-posix.adb')
| -rw-r--r-- | gcc/ada/s-osinte-posix.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/s-osinte-posix.adb b/gcc/ada/s-osinte-posix.adb index b27d4eca1e3..c6460c2d241 100644 --- a/gcc/ada/s-osinte-posix.adb +++ b/gcc/ada/s-osinte-posix.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -79,6 +79,17 @@ package body System.OS_Interface is return Duration (TV.tv_sec) + Duration (TV.tv_usec) / 10#1#E6; end To_Duration; + ------------------------ + -- To_Target_Priority -- + ------------------------ + + function To_Target_Priority + (Prio : System.Any_Priority) return Interfaces.C.int + is + begin + return Interfaces.C.int (Prio); + end To_Target_Priority; + ----------------- -- To_Timespec -- ----------------- |