87 int SHA384_Init(SHA512_CTX *sha) {  in SHA384_Init()  argument
88   sha->h[0] = UINT64_C(0xcbbb9d5dc1059ed8);  in SHA384_Init()
89   sha->h[1] = UINT64_C(0x629a292a367cd507);  in SHA384_Init()
90   sha->h[2] = UINT64_C(0x9159015a3070dd17);  in SHA384_Init()
91   sha->h[3] = UINT64_C(0x152fecd8f70e5939);  in SHA384_Init()
92   sha->h[4] = UINT64_C(0x67332667ffc00b31);  in SHA384_Init()
93   sha->h[5] = UINT64_C(0x8eb44a8768581511);  in SHA384_Init()
94   sha->h[6] = UINT64_C(0xdb0c2e0d64f98fa7);  in SHA384_Init()
95   sha->h[7] = UINT64_C(0x47b5481dbefa4fa4);  in SHA384_Init()
97   sha->Nl = 0;  in SHA384_Init()
98   sha->Nh = 0;  in SHA384_Init()
99   sha->num = 0;  in SHA384_Init()
100   sha->md_len = SHA384_DIGEST_LENGTH;  in SHA384_Init()
105 int SHA512_Init(SHA512_CTX *sha) {  in SHA512_Init()  argument
106   sha->h[0] = UINT64_C(0x6a09e667f3bcc908);  in SHA512_Init()
107   sha->h[1] = UINT64_C(0xbb67ae8584caa73b);  in SHA512_Init()
108   sha->h[2] = UINT64_C(0x3c6ef372fe94f82b);  in SHA512_Init()
109   sha->h[3] = UINT64_C(0xa54ff53a5f1d36f1);  in SHA512_Init()
110   sha->h[4] = UINT64_C(0x510e527fade682d1);  in SHA512_Init()
111   sha->h[5] = UINT64_C(0x9b05688c2b3e6c1f);  in SHA512_Init()
112   sha->h[6] = UINT64_C(0x1f83d9abfb41bd6b);  in SHA512_Init()
113   sha->h[7] = UINT64_C(0x5be0cd19137e2179);  in SHA512_Init()
115   sha->Nl = 0;  in SHA512_Init()
116   sha->Nh = 0;  in SHA512_Init()
117   sha->num = 0;  in SHA512_Init()
118   sha->md_len = SHA512_DIGEST_LENGTH;  in SHA512_Init()
159 int SHA384_Final(uint8_t *md, SHA512_CTX *sha) {  in SHA384_Final()  argument
160   return SHA512_Final(md, sha);  in SHA384_Final()
163 int SHA384_Update(SHA512_CTX *sha, const void *data, size_t len) {  in SHA384_Update()  argument
164   return SHA512_Update(sha, data, len);  in SHA384_Update()
237 int SHA512_Final(uint8_t *md, SHA512_CTX *sha) {  in SHA512_Final()  argument
238   uint8_t *p = (uint8_t *)sha->u.p;  in SHA512_Final()
239   size_t n = sha->num;  in SHA512_Final()
243   if (n > (sizeof(sha->u) - 16)) {  in SHA512_Final()
244     memset(p + n, 0, sizeof(sha->u) - n);  in SHA512_Final()
246     sha512_block_data_order(sha->h, (uint64_t *)p, 1);  in SHA512_Final()
249   memset(p + n, 0, sizeof(sha->u) - 16 - n);  in SHA512_Final()
250   p[sizeof(sha->u) - 1] = (uint8_t)(sha->Nl);  in SHA512_Final()
251   p[sizeof(sha->u) - 2] = (uint8_t)(sha->Nl >> 8);  in SHA512_Final()
252   p[sizeof(sha->u) - 3] = (uint8_t)(sha->Nl >> 16);  in SHA512_Final()
253   p[sizeof(sha->u) - 4] = (uint8_t)(sha->Nl >> 24);  in SHA512_Final()
254   p[sizeof(sha->u) - 5] = (uint8_t)(sha->Nl >> 32);  in SHA512_Final()
255   p[sizeof(sha->u) - 6] = (uint8_t)(sha->Nl >> 40);  in SHA512_Final()
256   p[sizeof(sha->u) - 7] = (uint8_t)(sha->Nl >> 48);  in SHA512_Final()
257   p[sizeof(sha->u) - 8] = (uint8_t)(sha->Nl >> 56);  in SHA512_Final()
258   p[sizeof(sha->u) - 9] = (uint8_t)(sha->Nh);  in SHA512_Final()
259   p[sizeof(sha->u) - 10] = (uint8_t)(sha->Nh >> 8);  in SHA512_Final()
260   p[sizeof(sha->u) - 11] = (uint8_t)(sha->Nh >> 16);  in SHA512_Final()
261   p[sizeof(sha->u) - 12] = (uint8_t)(sha->Nh >> 24);  in SHA512_Final()
262   p[sizeof(sha->u) - 13] = (uint8_t)(sha->Nh >> 32);  in SHA512_Final()
263   p[sizeof(sha->u) - 14] = (uint8_t)(sha->Nh >> 40);  in SHA512_Final()
264   p[sizeof(sha->u) - 15] = (uint8_t)(sha->Nh >> 48);  in SHA512_Final()
265   p[sizeof(sha->u) - 16] = (uint8_t)(sha->Nh >> 56);  in SHA512_Final()
267   sha512_block_data_order(sha->h, (uint64_t *)p, 1);  in SHA512_Final()
275   switch (sha->md_len) {  in SHA512_Final()
279         uint64_t t = sha->h[n];  in SHA512_Final()
293         uint64_t t = sha->h[n];  in SHA512_Final()