@@ -38,6 +38,24 @@
package System.Linux is
pragma Preelaborate;
+ ------------
+ -- time_t --
+ ------------
+
+ type time_t is new Long_Integer;
+
+ ---------------
+ -- tv_nsec_t --
+ ---------------
+
+ type tv_nsec_t is new Long_Integer;
+
+ -----------------------
+ -- timeval_element_t --
+ -----------------------
+
+ type timeval_element_t is new Long_Integer;
+
-----------
-- Errno --
-----------
@@ -596,11 +596,12 @@ private
type pid_t is new int;
- type time_t is new long;
+ subtype time_t is System.Linux.time_t;
+ subtype tv_nsec_t is System.Linux.tv_nsec_t;
type timespec is record
tv_sec : time_t;
- tv_nsec : long;
+ tv_nsec : tv_nsec_t;
end record;
pragma Convention (C, timespec);