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:
parent
6311432918
commit
1fe93ae335
@ -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
|
||||||
|
@ -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 */
|
||||||
|
Loading…
Reference in New Issue
Block a user