Attempting to use esp32 sha1 hardware.

2022-06-10 21:20:49 -07:00
parent f2948cee9b
commit 139797bdf7
2 changed files with 71 additions and 3 deletions
--- a/lib/hashing/sha1.fs
+++ b/lib/hashing/sha1.fs
@ -41,9 +41,6 @@ internals hashing definitions
 40 constant sha1-size
 create sha1-hash  sha1-size allot

-: >dig ( a n -- a )
-  BASE @ >R HEX <# # # # # # # # # #> R> BASE !
-  ROT 2DUP + >R SWAP CMOVE R> ;
 : format
  sha1-hash  h0 >dig  h1 >dig  h2 >dig  h3 >dig  h4 >dig  DROP ;