$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;