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 7b49ce5..aaae1b7 100644 (file)
--- 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 4b5d28a..35f0d1c 100644 (file)
--- 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 */