# define S390X_KMA_LAAD 0x200
# define S390X_KMA_HS 0x400
# define S390X_KDSA_D 0x80
+# define S390X_KLMD_PS 0x100
#endif
size_t bsz = ctx->block_size;
size_t num = ctx->bufsz;
size_t needed = ctx->md_size;
- static const unsigned char empty[KECCAK1600_WIDTH / 8] = {0};
if (!ossl_prov_is_running())
return 0;
ctx->buf[num] = padding;
ctx->buf[bsz - 1] |= 0x80;
s390x_kimd(ctx->buf, bsz, ctx->pad, ctx->A);
- while (needed > bsz) {
- memcpy(md, ctx->A, bsz);
- needed -= bsz;
- md += bsz;
- s390x_kimd(empty, bsz, ctx->pad, ctx->A);
- }
- memcpy(md, ctx->A, needed);
+ num = needed > bsz ? bsz : needed;
+ memcpy(md, ctx->A, num);
+ needed -= num;
+ if (needed > 0)
+ s390x_klmd(NULL, 0, md + bsz, needed, ctx->pad | S390X_KLMD_PS, ctx->A);
return 1;
}