X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8098e75c0be3e52e094306bfbb7c5350f543ee96..5c31a0ca13f84758818344f56343f261a77c0759:/time64_config.h

diff --git a/time64_config.h b/time64_config.h
index 4032acd..42cc12c 100644
--- a/time64_config.h
+++ b/time64_config.h
@@ -15,10 +15,10 @@
 
 
 /* INT_64_T
-   A 64 bit integer type to use to store time and others.
+   A numeric type to store time and others. 
    Must be defined.
 */
-#define INT_64_T                Quad_t
+#define INT_64_T                NV
 
 
 /* USE_TM64
@@ -60,10 +60,13 @@
    USE_SYSTEM_GMTIME
    Should we use the system functions if the time is inside their range?
    Your system localtime() is probably more accurate, but our gmtime() is
-   fast and safe.
+   fast and safe.  Except on VMS, where we need the homegrown gmtime()
+   override to shift between UTC and local for the vmsish 'time' pragma.
 */
 #define USE_SYSTEM_LOCALTIME
-/* #define USE_SYSTEM_GMTIME */
+#ifdef VMS
+#  define USE_SYSTEM_GMTIME
+#endif
 
 
 /* SYSTEM_LOCALTIME_MAX
@@ -74,9 +77,9 @@
    can handle.  We will use your system functions if the time falls
    inside these ranges.
 */
-#define SYSTEM_LOCALTIME_MAX    CAT2(LOCALTIME_MAX,UL)
-#define SYSTEM_LOCALTIME_MIN    CAT2(LOCALTIME_MIN,UL)
-#define SYSTEM_GMTIME_MAX       CAT2(GMTIME_MAX,UL)
-#define SYSTEM_GMTIME_MIN       CAT2(GMTIME_MIN,UL)
+#define SYSTEM_LOCALTIME_MAX    CAT2(LOCALTIME_MAX,.0)
+#define SYSTEM_LOCALTIME_MIN    CAT2(LOCALTIME_MIN,.0)
+#define SYSTEM_GMTIME_MAX       CAT2(GMTIME_MAX,.0)
+#define SYSTEM_GMTIME_MIN       CAT2(GMTIME_MIN,.0)
 
 #endif /* TIME64_CONFIG_H */