32 lines
1 KiB
Text
32 lines
1 KiB
Text
$NetBSD: patch-ba,v 1.1.1.1 2004/06/29 18:00:17 shannonjr Exp $
|
|
|
|
--- gcc/ada/5posprim.adb.orig 2003-10-21 15:41:52.000000000 +0200
|
|
+++ gcc/ada/5posprim.adb 2004-04-26 17:00:57.000000000 +0200
|
|
@@ -42,8 +42,8 @@
|
|
-- the spec.
|
|
|
|
type struct_timeval is record
|
|
- tv_sec : Integer;
|
|
- tv_usec : Integer;
|
|
+ tv_sec : Long_Integer;
|
|
+ tv_usec : Long_Integer;
|
|
end record;
|
|
pragma Convention (C, struct_timeval);
|
|
|
|
@@ -102,14 +102,14 @@
|
|
|
|
if Rel_Time > 0.0 then
|
|
loop
|
|
- timeval.tv_sec := Integer (Rel_Time);
|
|
+ timeval.tv_sec := Long_Integer (Rel_Time);
|
|
|
|
if Duration (timeval.tv_sec) > Rel_Time then
|
|
timeval.tv_sec := timeval.tv_sec - 1;
|
|
end if;
|
|
|
|
timeval.tv_usec :=
|
|
- Integer ((Rel_Time - Duration (timeval.tv_sec)) * 10#1#E6);
|
|
+ Long_Integer ((Rel_Time - Duration (timeval.tv_sec)) * 10#1#E6);
|
|
|
|
C_select (timeout => timeval'Unchecked_Access);
|
|
Check_Time := Clock;
|