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
This commit is contained in:
Dave Love 1999-01-15 06:36:01 +00:00
parent 6311432918
commit 1fe93ae335
2 changed files with 17 additions and 5 deletions

View File

@ -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> 1998-11-26 Manfred Hollstein <manfred@s-direktnet.de>
* configure.in (compiler_name): Add check to detect if this * configure.in (compiler_name): Add check to detect if this

View File

@ -32,6 +32,12 @@ Boston, MA 02111-1307, USA. */
#endif #endif
#include "f2c.h" #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, int G77_date_and_time_0 (char *date, char *fftime, char *zone,
integer *values, ftnlen date_len, integer *values, ftnlen date_len,
ftnlen fftime_len, ftnlen zone_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 timeval tp;
struct timezone tzp; struct timezone tzp;
if (! gettimeofday (&tp, &tzp)) if (! gettimeofday (&tp, &tzp))
vals[7] = tp.tv_usec; vals[7] = tp.tv_usec/1000;
} }
#endif #endif
if (values) /* null pointer for missing optional */ if (values) /* null pointer for missing optional */