type time_t is range -2 ** (System.Parameters.time_t_bits - 1)
.. 2 ** (System.Parameters.time_t_bits - 1) - 1;
- -- Time_t here used to be unsigned to match the VxWorks header
- -- declaration. The header declaration has changed in newer release
- -- and is now signed for applications.
+ -- Time_t here used to be unsigned to match the VxWorks header declaration.
+ -- The header declaration has changed in newer releases and is now signed
+ -- for applications.
type timespec is record
ts_sec : time_t;
-- Time_t Stuff --
------------------
- -- Note: Do not use time_t in the compiler and host based tools,
- -- instead use OS_Time. These 3 declarations are indended for use only
- -- by consumers of the GNAT.OS_Lib renaming of this package.
+ -- Note: Do not use time_t in the compiler and host-based tools; instead
+ -- use OS_Time. These 3 declarations are intended for use only by consumers
+ -- of the GNAT.OS_Lib renaming of this package.
subtype time_t is Long_Long_Integer;
- -- C time_t can be either long or long long, but this is a subtype
- -- not used in the compiler or tools, but only for user
- -- applications, so we choose the Ada equivalent of the latter
- -- because eventually that will be the type used out of necessity.
- -- This may effect some user code on 32 bit targets that have not yet
- -- migrated to the Posix 2008 standard, particularly pre version 5
- -- 32 bit Linux.
+ -- C time_t can be either long or long long, but this is a subtype not used
+ -- in the compiler or tools, but only for user applications, so we choose
+ -- the Ada equivalent of the latter because eventually that will be the
+ -- type used out of necessity. This may affect some user code on 32-bit
+ -- targets that have not yet migrated to the Posix 2008 standard,
+ -- particularly pre version 5 32-bit Linux.
function To_C (Time : OS_Time) return time_t;
-- Convert OS_Time to C time_t type
------------------------------------
time_t_bits : constant := Long_Integer'Size;
- -- Number of bits in type time_t.
+ -- Number of bits in type time_t
----------------------------------------------
-- Characteristics of types in Interfaces.C --
------------------------------------
time_t_bits : constant := Long_Integer'Size;
- -- Number of bits in type time_t.
+ -- Number of bits in type time_t
----------------------------------------------
-- Characteristics of types in Interfaces.C --
------------------------------------
time_t_bits : constant := Long_Integer'Size;
- -- Number of bits in type time_t.
+ -- Number of bits in type time_t
----------------------------------------------
-- Characteristics of Types in Interfaces.C --