diff --git a/racket/src/ChezScheme/c/stats.c b/racket/src/ChezScheme/c/stats.c index 7d6a396910..9413c3bfb8 100644 --- a/racket/src/ChezScheme/c/stats.c +++ b/racket/src/ChezScheme/c/stats.c @@ -423,11 +423,16 @@ ptr S_gmtime(ptr tzoff, ptr tspair) { return dtvec; } + +#ifndef GET_TIME +# define GET_TIME time +#endif + ptr S_asctime(ptr dtvec) { char buf[26]; if (dtvec == Sfalse) { - time_t tx = time(NULL); + time_t tx = GET_TIME(NULL); if (ctime_r(&tx, buf) == NULL) return Sfalse; } else { struct tm tmx; diff --git a/racket/src/ChezScheme/c/version.h b/racket/src/ChezScheme/c/version.h index 54a03234fc..199e6d8de6 100644 --- a/racket/src/ChezScheme/c/version.h +++ b/racket/src/ChezScheme/c/version.h @@ -263,7 +263,7 @@ struct timespec; #endif #if defined(__MINGW32__) && (machine_type == machine_type_ti3nt || machine_type == machine_type_i3nt) #define time_t __time64_t -#define time _time64 +#define GET_TIME _time64 #endif #endif