def fin40

mylsm-lsm-store@0.6.0.1 · src/hub_sha/core.bend:1932

import Base
import mylsm-lsm-store@0.6.0.1/src/hub_sha/state.bend as S

1932# Apply SHA-256 round 40 to the compression state.
1933def fin40(
1934  +t0: U32,
1935  +t1: U32,
1936  +t2: U32,
1937  +t3: U32,
1938  +t4: U32,
1939  +t5: U32,
1940  +t6: U32,
1941  +t7: U32,
1942  +t8: U32,
1943  +t9: U32,
1944  +t10: U32,
1945  +t11: U32,
1946  +t12: U32,
1947  +t13: U32,
1948  +t14: U32,
1949  +t15: U32,
1950  +t16: U32,
1951  +t17: U32,
1952  +t18: U32,
1953  +t19: U32,
1954  +t20: U32,
1955  +t21: U32,
1956  +t22: U32,
1957  +t23: U32,
1958  +t24: U32,
1959  +t25: U32,
1960  +t26: U32,
1961  +t27: U32,
1962  +t28: U32,
1963  +t29: U32,
1964  +t30: U32,
1965  +t31: U32,
1966  +t32: U32,
1967  +t33: U32,
1968  +t34: U32,
1969  +t35: U32,
1970  +t36: U32,
1971  +t37: U32,
1972  +t38: U32,
1973  +t39: U32,
1974  +byte_length: Nat,
1975  +extra: Nat,
1976  state: S.State
1977) -> S.State:
1978  fips_compress16(pack(t0, t1, t2, t3), pack(t4, t5, t6, t7), pack(t8, t9, t10, t11), pack(t12, t13, t14, t15), pack(t16, t17, t18, t19), pack(t20, t21, t22, t23), pack(t24, t25, t26, t27), pack(t28, t29, t30, t31), pack(t32, t33, t34, t35), pack(t36, t37, t38, t39), pack(128, 0, 0, 0), pack(0, 0, 0, 0), pack(0, 0, 0, 0), pack(0, 0, 0, 0), len_hi(byte_length), len_lo(byte_length),
1979    extra, state)