blob: 4d9b4f2f5fd86136f0d52bffe1d563c64ed7a536 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
$NetBSD: patch-ba,v 1.1.1.1 2004/06/29 18:01:25 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;
|
