diff options
| author | Dave Love <fx@gcc.gnu.org> | 1999-01-15 06:36:01 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1999-01-15 06:36:01 +0000 |
| commit | 1fe93ae335224f87468b9cd01b4112a793668008 (patch) | |
| tree | 481020eef37c52f91899646039672adf8ac56331 | |
| parent | 6311432918509e3773ab7a09bd7481f144d025fb (diff) | |
| download | gcc-1fe93ae335224f87468b9cd01b4112a793668008.zip gcc-1fe93ae335224f87468b9cd01b4112a793668008.tar.gz gcc-1fe93ae335224f87468b9cd01b4112a793668008.tar.bz2 | |
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
| -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 7b49ce5..aaae1b7 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 4b5d28a..35f0d1c 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 */ |