7sosprim.adb: tv_usec of struct_timeval and time_t are long integer.
* 7sosprim.adb: tv_usec of struct_timeval and time_t are long integer. From-SVN: r73419
This commit is contained in:
parent
5c90f17f66
commit
c77c5f2e38
@ -6,7 +6,7 @@
|
|||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1998-2002 Free Software Foundation, Inc. --
|
-- Copyright (C) 1998-2003 Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNARL is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
@ -47,11 +47,11 @@ package body System.OS_Primitives is
|
|||||||
pragma Convention (C, struct_timezone);
|
pragma Convention (C, struct_timezone);
|
||||||
type struct_timezone_ptr is access all struct_timezone;
|
type struct_timezone_ptr is access all struct_timezone;
|
||||||
|
|
||||||
type time_t is new Integer;
|
type time_t is new Long_Integer;
|
||||||
|
|
||||||
type struct_timeval is record
|
type struct_timeval is record
|
||||||
tv_sec : time_t;
|
tv_sec : time_t;
|
||||||
tv_usec : Integer;
|
tv_usec : Long_Integer;
|
||||||
end record;
|
end record;
|
||||||
pragma Convention (C, struct_timeval);
|
pragma Convention (C, struct_timeval);
|
||||||
|
|
||||||
|
@ -1,3 +1,8 @@
|
|||||||
|
2003-11-10 Andreas Jaeger <aj@suse.de>
|
||||||
|
|
||||||
|
* 7sosprim.adb: tv_usec of struct_timeval and time_t are long
|
||||||
|
integer.
|
||||||
|
|
||||||
2003-11-10 Arnaud Charlet <charlet@act-europe.fr>
|
2003-11-10 Arnaud Charlet <charlet@act-europe.fr>
|
||||||
|
|
||||||
* misc.c, lang.opt: Add handling of -nostdlib, now recognized/needed
|
* misc.c, lang.opt: Add handling of -nostdlib, now recognized/needed
|
||||||
|
Loading…
Reference in New Issue
Block a user