Artifact
43ddc5448c2d3dda20ba0cf1584ba6de636f4979:
Attachment "tcl84.patch" to
ticket [637770ffff]
added by
dkf
2002-11-13 20:51:25.
? tcl84.patch
Index: sha1.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/sha1/sha1.tcl,v
retrieving revision 1.7
diff -u -r1.7 sha1.tcl
--- sha1.tcl 21 Feb 2002 00:16:19 -0000 1.7
+++ sha1.tcl 13 Nov 2002 13:43:38 -0000
@@ -261,11 +261,11 @@
set A $TEMP
}
- set H0 [expr {($H0 + $A) & 0xffffffff}]
- set H1 [expr {($H1 + $B) & 0xffffffff}]
- set H2 [expr {($H2 + $C) & 0xffffffff}]
- set H3 [expr {($H3 + $D) & 0xffffffff}]
- set H4 [expr {($H4 + $E) & 0xffffffff}]
+ set H0 [expr {int(($H0 + $A) & 0xffffffff)}]
+ set H1 [expr {int(($H1 + $B) & 0xffffffff)}]
+ set H2 [expr {int(($H2 + $C) & 0xffffffff)}]
+ set H3 [expr {int(($H3 + $D) & 0xffffffff)}]
+ set H4 [expr {int(($H4 + $E) & 0xffffffff)}]
}
return [format %0.8x%0.8x%0.8x%0.8x%0.8x $H0 $H1 $H2 $H3 $H4]
