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/libU77/datetime_.c | |
| 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/libU77/datetime_.c')
| -rw-r--r-- | libf2c/libU77/datetime_.c | 8 |
1 files changed, 7 insertions, 1 deletions
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 */ |