-- --
-- B o d y --
-- --
--- Copyright (C) 1991-2002 Florida State University --
+-- Copyright (C) 1991-2008 Florida State University --
-- --
-- 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- --
return Duration (TS.tv_sec) + Duration (TS.tv_nsec) / 10#1#E9;
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 --
-----------------
-- If F has negative value due to round-up, adjust for positive F value
- if F < 0.0 then S := S - 1; F := F + 1.0; end if;
+ if F < 0.0 then
+ S := S - 1;
+ F := F + 1.0;
+ end if;
return timespec'(tv_sec => S,
tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
end To_Timespec;
-- If F has negative value due to a round-up, adjust for positive F
-- value.
- if F < 0.0 then S := S - 1; F := F + 1.0; end if;
+ if F < 0.0 then
+ S := S - 1;
+ F := F + 1.0;
+ end if;
return
struct_timeval'
(tv_sec => S,
return 0;
end Get_Page_Size;
+ function sigaltstack
+ (ss : not null access stack_t;
+ oss : access stack_t) return int is
+ pragma Unreferenced (ss);
+ pragma Unreferenced (oss);
+ begin
+ return 0;
+ end sigaltstack;
+
end System.OS_Interface;