From: Dave Love <fx@gcc.gnu.org>
Date: Fri, 15 Jan 1999 06:36:01 +0000 (+0000)
Subject: datetime_.c (G77_date_and_time_0): Return milliseconds as such, not as microseconds.
X-Git-Tag: prereleases/libgcj-0.1~1342
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=1fe93ae335224f87468b9cd01b4112a793668008;p=thirdparty%2Fgcc.git

datetime_.c (G77_date_and_time_0): Return milliseconds as such, not as microseconds.

1999-01-15  Dave Love  <fx@gnu.org>
	* libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as
	such, not as microseconds.
	(scopy): Declare.

From-SVN: r24677
---

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 7b49ce5963c8..aaae1b757c21 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+1999-01-15  Dave Love  <fx@gnu.org>
+
+	* libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as
+	such, not as microseconds.
+	(scopy): Declare.
+
 1998-11-26  Manfred Hollstein  <manfred@s-direktnet.de>
 
 	* configure.in (compiler_name): Add check to detect if this
@@ -6,10 +12,10 @@
 
 Mon Nov 23 16:52:22 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
-	*  configure.in: Use AC_PREREQ(2.12.1).
-	*  libF77/configure.in: Likewise.
-	*  libI77/configure.in: Likewise.
-	*  libU77/configure.in: Likewise.
+	* configure.in: Use AC_PREREQ(2.12.1).
+	* libF77/configure.in: Likewise.
+	* libI77/configure.in: Likewise.
+	* libU77/configure.in: Likewise.
 
 1998-10-24  Dave Love  <d.love@dl.ac.uk>
 
diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c
index 4b5d28ae36cb..35f0d1cdf74a 100644
--- a/libf2c/libU77/datetime_.c
+++ b/libf2c/libU77/datetime_.c
@@ -32,6 +32,12 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
+#ifdef KR_headers
+VOID s_copy ();
+#else
+void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
+#endif
+
 int G77_date_and_time_0 (char *date, char *fftime, char *zone,
 			 integer *values, ftnlen date_len,
 			 ftnlen fftime_len, ftnlen zone_len)
@@ -58,7 +64,7 @@ int G77_date_and_time_0 (char *date, char *fftime, char *zone,
     struct timeval tp;
     struct timezone tzp;
     if (! gettimeofday (&tp, &tzp))
-      vals[7] = tp.tv_usec;
+      vals[7] = tp.tv_usec/1000;
   }
 #endif
   if (values)			/* null pointer for missing optional */