diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 7b49ce5963c..aaae1b757c2 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +1999-01-15 Dave Love + + * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as + such, not as microseconds. + (scopy): Declare. + 1998-11-26 Manfred Hollstein * configure.in (compiler_name): Add check to detect if this @@ -6,10 +12,10 @@ Mon Nov 23 16:52:22 1998 Kaveh R. Ghazi - * 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 diff --git a/libf2c/libU77/datetime_.c b/libf2c/libU77/datetime_.c index 4b5d28ae36c..35f0d1cdf74 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 */