From: Dr. Matthias St. Pierre <Matthias.St.Pierre@ncp-e.com>
Date: Fri, 15 Mar 2019 00:48:51 +0000 (+0100)
Subject: VMS: only use the high precision on VMS v8.4 and up
X-Git-Tag: OpenSSL_1_1_1c~102
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=b8caae27f19f29f3db927301fbd26fedc90c6b9b;p=oweals%2Fopenssl.git

VMS: only use the high precision on VMS v8.4 and up

Fixes #8487
Amends #7230

Reviewed-by: Tim Hudson <tjh@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/8488)

(cherry picked from commit 355417eb4611014767480e5d3e96b1b08eb02700)
---

diff --git a/crypto/rand/rand_vms.c b/crypto/rand/rand_vms.c
index bfcf6f0a86..e844291700 100644
--- a/crypto/rand/rand_vms.c
+++ b/crypto/rand/rand_vms.c
@@ -507,7 +507,11 @@ int rand_pool_add_additional_data(RAND_POOL *pool)
      * concurrently (which is the case for the <master> drbg).
      */
     data.tid = CRYPTO_THREAD_get_current_id();
+#if __CRTL_VER >= 80400000
     sys$gettim_prec(&data.time);
+#else
+    sys$gettim((void*)&data.time);
+#endif
 
     return rand_pool_add(pool, (unsigned char *)&data, sizeof(data), 0);
 }