diff options
author | Dave Love <fx@gnu.org> | 1999-01-15 06:36:01 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 1999-01-15 06:36:01 +0000 |
commit | 7befac70652811feebfe2578634da7c557f0e847 (patch) | |
tree | 481020eef37c52f91899646039672adf8ac56331 /libf2c | |
parent | e20382452c498589dac935b2bc5438b920c84fb7 (diff) |
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.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@24677 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/ChangeLog | 14 | ||||
-rw-r--r-- | libf2c/libU77/datetime_.c | 8 |
2 files changed, 17 insertions, 5 deletions
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 <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 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 */ |