def fin39

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

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

1884# Apply SHA-256 round 39 to the compression state.
1885def fin39(
1886  +t0: U32,
1887  +t1: U32,
1888  +t2: U32,
1889  +t3: U32,
1890  +t4: U32,
1891  +t5: U32,
1892  +t6: U32,
1893  +t7: U32,
1894  +t8: U32,
1895  +t9: U32,
1896  +t10: U32,
1897  +t11: U32,
1898  +t12: U32,
1899  +t13: U32,
1900  +t14: U32,
1901  +t15: U32,
1902  +t16: U32,
1903  +t17: U32,
1904  +t18: U32,
1905  +t19: U32,
1906  +t20: U32,
1907  +t21: U32,
1908  +t22: U32,
1909  +t23: U32,
1910  +t24: U32,
1911  +t25: U32,
1912  +t26: U32,
1913  +t27: U32,
1914  +t28: U32,
1915  +t29: U32,
1916  +t30: U32,
1917  +t31: U32,
1918  +t32: U32,
1919  +t33: U32,
1920  +t34: U32,
1921  +t35: U32,
1922  +t36: U32,
1923  +t37: U32,
1924  +t38: U32,
1925  +byte_length: Nat,
1926  +extra: Nat,
1927  state: S.State
1928) -> S.State:
1929  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, 128), pack(0, 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),
1930    extra, state)