sha1-s390x.pl: lingering comment update.

[openssl.git] / crypto / sha / sha_one.c

diff --git a/crypto/sha/sha_one.c b/crypto/sha/sha_one.c
index 80b06973800e96757db5141abccc73de48dd6afe..3bae623ce882ce46360b0041ac4ef2db3d4b2728 100644 (file)
--- a/crypto/sha/sha_one.c
+++ b/crypto/sha/sha_one.c
@@ -59,16 +59,20 @@
 #include <stdio.h>
 #include <string.h>
 #include <openssl/sha.h>
+#include <openssl/crypto.h>
 
-unsigned char *SHA(unsigned char *d, unsigned long n, unsigned char *md)
+#ifndef OPENSSL_NO_SHA0
+unsigned char *SHA(const unsigned char *d, size_t n, unsigned char *md)
        {
        SHA_CTX c;
        static unsigned char m[SHA_DIGEST_LENGTH];
 
        if (md == NULL) md=m;
-       SHA_Init(&c);
+       if (!SHA_Init(&c))
+               return NULL;
        SHA_Update(&c,d,n);
        SHA_Final(md,&c);
-       memset(&c,0,sizeof(c));
+       OPENSSL_cleanse(&c,sizeof(c));
        return(md);
        }
+#endif