head	1.2;
access;
symbols
	pkgsrc-2013Q2:1.2.0.34
	pkgsrc-2013Q2-base:1.2
	pkgsrc-2012Q4:1.2.0.32
	pkgsrc-2012Q4-base:1.2
	pkgsrc-2011Q4:1.2.0.30
	pkgsrc-2011Q4-base:1.2
	pkgsrc-2011Q2:1.2.0.28
	pkgsrc-2011Q2-base:1.2
	pkgsrc-2009Q4:1.2.0.26
	pkgsrc-2009Q4-base:1.2
	pkgsrc-2008Q4:1.2.0.24
	pkgsrc-2008Q4-base:1.2
	pkgsrc-2008Q3:1.2.0.22
	pkgsrc-2008Q3-base:1.2
	cube-native-xorg:1.2.0.20
	cube-native-xorg-base:1.2
	pkgsrc-2008Q2:1.2.0.18
	pkgsrc-2008Q2-base:1.2
	pkgsrc-2008Q1:1.2.0.16
	pkgsrc-2008Q1-base:1.2
	pkgsrc-2007Q4:1.2.0.14
	pkgsrc-2007Q4-base:1.2
	pkgsrc-2007Q3:1.2.0.12
	pkgsrc-2007Q3-base:1.2
	pkgsrc-2007Q2:1.2.0.10
	pkgsrc-2007Q2-base:1.2
	pkgsrc-2007Q1:1.2.0.8
	pkgsrc-2007Q1-base:1.2
	pkgsrc-2006Q4:1.2.0.6
	pkgsrc-2006Q4-base:1.2
	pkgsrc-2006Q3:1.2.0.4
	pkgsrc-2006Q3-base:1.2
	pkgsrc-2006Q2:1.2.0.2
	pkgsrc-2006Q2-base:1.2
	pkgsrc-2006Q1:1.1.1.1.0.14
	pkgsrc-2006Q1-base:1.1.1.1
	pkgsrc-2005Q4:1.1.1.1.0.12
	pkgsrc-2005Q4-base:1.1.1.1
	pkgsrc-2005Q3:1.1.1.1.0.10
	pkgsrc-2005Q3-base:1.1.1.1
	pkgsrc-2005Q2:1.1.1.1.0.8
	pkgsrc-2005Q2-base:1.1.1.1
	pkgsrc-2005Q1:1.1.1.1.0.6
	pkgsrc-2005Q1-base:1.1.1.1
	pkgsrc-2004Q4:1.1.1.1.0.4
	pkgsrc-2004Q4-base:1.1.1.1
	pkgsrc-2004Q3:1.1.1.1.0.2
	pkgsrc-2004Q3-base:1.1.1.1
	pkgsrc-base:1.1.1.1
	TNF:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2006.04.05.11.43.12;	author shannonjr;	state dead;
branches;
next	1.1;

1.1
date	2004.06.29.18.00.17;	author shannonjr;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2004.06.29.18.00.17;	author shannonjr;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 3.4.6. This is a bugfix release.
@
text
@$NetBSD: patch-ba,v 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;
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
$NetBSD: patch-ba,v 1.1.1.1 2004/06/01 19:18:17 shannonjr Exp $
@


1.1.1.1
log
@This is the Ada compiler from the gcc 3.4 compiler suite.
@
text
@@