33   unsigned char padded[256];  in crypto_hash_sha512()  local
44   for (i = 0;i < inlen;++i) padded[i] = in[i];  in crypto_hash_sha512()
45   padded[inlen] = 0x80;  in crypto_hash_sha512()
48     for (i = inlen + 1;i < 119;++i) padded[i] = 0;  in crypto_hash_sha512()
49     padded[119] = bytes >> 61;  in crypto_hash_sha512()
50     padded[120] = bytes >> 53;  in crypto_hash_sha512()
51     padded[121] = bytes >> 45;  in crypto_hash_sha512()
52     padded[122] = bytes >> 37;  in crypto_hash_sha512()
53     padded[123] = bytes >> 29;  in crypto_hash_sha512()
54     padded[124] = bytes >> 21;  in crypto_hash_sha512()
55     padded[125] = bytes >> 13;  in crypto_hash_sha512()
56     padded[126] = bytes >> 5;  in crypto_hash_sha512()
57     padded[127] = bytes << 3;  in crypto_hash_sha512()
58     blocks(h,padded,128);  in crypto_hash_sha512()
60     for (i = inlen + 1;i < 247;++i) padded[i] = 0;  in crypto_hash_sha512()
61     padded[247] = bytes >> 61;  in crypto_hash_sha512()
62     padded[248] = bytes >> 53;  in crypto_hash_sha512()
63     padded[249] = bytes >> 45;  in crypto_hash_sha512()
64     padded[250] = bytes >> 37;  in crypto_hash_sha512()
65     padded[251] = bytes >> 29;  in crypto_hash_sha512()
66     padded[252] = bytes >> 21;  in crypto_hash_sha512()
67     padded[253] = bytes >> 13;  in crypto_hash_sha512()
68     padded[254] = bytes >> 5;  in crypto_hash_sha512()
69     padded[255] = bytes << 3;  in crypto_hash_sha512()
70     blocks(h,padded,256);  in crypto_hash_sha512()