Commit 5848be04 authored by Richard Levitte's avatar Richard Levitte
Browse files

Fix setbuf use for VMS C 



The VMS C RTL has setbuf() working for short pointers only, probably
the FILE pointer will always be in P0 (the lower 4GB).  Fortunately,
this only generates a warning about possible data loss (doesn't apply
in this case) that we can simply turn off.

Reviewed-by: default avatarTim Hudson <tjh@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/5789)
parent 5d322036

crypto/rand/randfile.c

+14 −0
Original line number Diff line number Diff line
@@ -99,6 +99,17 @@ int RAND_load_file(const char *file, long bytes) 


    if (!S_ISREG(sb.st_mode) && bytes < 0)

        bytes = 256;

#endif

    /*

     * On VMS, setbuf() will only take 32-bit pointers, and a compilation

     * with /POINTER_SIZE=64 will give off a MAYLOSEDATA2 warning here.

     * However, we trust that the C RTL will never give us a FILE pointer

     * above the first 4 GB of memory, so we simply turn off the warning

     * temporarily.

     */

#if defined(OPENSSL_SYS_VMS) && defined(__DECC)

# pragma environment save

# pragma message disable maylosedata2

#endif

    /*

     * Don't buffer, because even if |file| is regular file, we have
@@ -106,6 +117,9 @@ int RAND_load_file(const char *file, long bytes) 
     * contents lying around?

     */

    setbuf(in, NULL);

#if defined(OPENSSL_SYS_VMS) && defined(__DECC)

# pragma environment restore

#endif



    for ( ; ; ) {

        if (bytes > 0)