Index: openssl/crypto/rand/rand_vms.c |
=================================================================== |
--- openssl/crypto/rand/rand_vms.c (revision 105093) |
+++ openssl/crypto/rand/rand_vms.c (working copy) |
@@ -69,6 +69,17 @@ |
# pragma message disable DOLLARID |
#endif |
+/* Use 32-bit pointers almost everywhere. Define the type to which to |
+ * cast a pointer passed to an external function. |
+ */ |
+#if __INITIAL_POINTER_SIZE == 64 |
+# define PTR_T __void_ptr64 |
+# pragma pointer_size save |
+# pragma pointer_size 32 |
+#else /* __INITIAL_POINTER_SIZE == 64 */ |
+# define PTR_T void * |
+#endif /* __INITIAL_POINTER_SIZE == 64 [else] */ |
+ |
static struct items_data_st |
{ |
short length, code; /* length is amount of bytes */ |
@@ -125,11 +136,12 @@ |
{ |
if (status == SS$_NORMAL) |
{ |
- RAND_add(data_buffer, total_length, total_length/2); |
+ RAND_add( (PTR_T)data_buffer, total_length, |
+ total_length/2); |
} |
} |
sys$gettim(iosb); |
- RAND_add((unsigned char *)iosb, sizeof(iosb), sizeof(iosb)/2); |
+ RAND_add( (PTR_T)iosb, sizeof(iosb), sizeof(iosb)/2); |
return 1; |
} |