generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

After some adjustments, apply the changes OpenSSL 1.0.0d on OpenVMS

Browse Source 
submitted by Steven M. Schweda <sms@antinode.info>
This commit is contained in:
Richard Levitte
2011-03-19 10:58:14 +00:00
parent 5904882eaa
commit 537c982306
53 changed files with 3198 additions and 1688 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
crypto/rand/rand_vms.c
View File

@@ -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 @@ int RAND_poll(void)
{
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;
}