? 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]
