sha256

commit 59af9483d761835f0ff641982bbccc67353ace79
parent 3a01d856756cdb7efb446043fdfab84bea1b1367
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat, 14 Sep 2024 00:44:09 +0400

lib: compress step

Diffstat:
M
lib/Crypto/Hash/SHA256.hs
 | 
10
+---------

1 file changed, 1 insertion(+), 9 deletions(-)
diff --git a/lib/Crypto/Hash/SHA256.hs b/lib/Crypto/Hash/SHA256.hs
@@ -407,15 +407,7 @@ step# :: Registers -> Word32# -> Word32# -> Registers
 step# (# a, b, c, d, e, f, g, h #) k w =
   let t1 = p32# h (p32# (bsig1# e) (p32# (ch# e f g) (p32# k w)))
       t2 = p32# (bsig0# a) (maj# a b c)
-      h# = g
-      g# = f
-      f# = e
-      e# = p32# d t1
-      d# = c
-      c# = b
-      b# = a
-      a# = p32# t1 t2
-  in  (# a#, b#, c#, d#, e#, f#, g#, h# #)
+  in  (# p32# t1 t2, a, b, c, p32# d t1, e, f, g #)
 
 -- RFC 6234 6.2 block pipeline
 hash_alg# :: Registers -> BS.ByteString -> Registers