-- --
-- B o d y --
-- --
--- --
--- Copyright (C) 1997-2001, Free Software Fundation, Inc. --
+-- Copyright (C) 1997-2002, Free Software Fundation, Inc. --
-- --
-- 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- --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
--- GNARL was developed by the GNARL team at Florida State University. It is --
--- now maintained by Ada Core Technologies, Inc. (http://www.gnat.com). --
+-- GNARL was developed by the GNARL team at Florida State University. --
+-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
F := F + 1.0;
end if;
- return timespec' (tv_sec => S,
- tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
+ return timespec'(tv_sec => S,
+ tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
end To_Timespec;
----------------
F := F + 1.0;
end if;
- return struct_timeval' (tv_sec => S,
- tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
+ return
+ struct_timeval'
+ (tv_sec => S,
+ tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
end To_Timeval;
-------------------
function clock_gettime
(clock_id : clockid_t;
tp : access timespec)
- return int
+ return int
is
+ pragma Warnings (Off, clock_id);
+
Result : int;
tv : aliased struct_timeval;
function gettimeofday
- (tv : access struct_timeval;
- tz : System.Address := System.Null_Address) return int;
+ (tv : access struct_timeval;
+ tz : System.Address := System.Null_Address)
+ return int;
pragma Import (C, gettimeofday, "gettimeofday");
begin
end sched_yield;
function Get_Stack_Base (thread : pthread_t) return Address is
+ pragma Warnings (Off, thread);
+
begin
return Null_Address;
end Get_Stack_Base;