Posted to tcl by aspect at Tue May 06 07:36:10 GMT 2014view raw

  1. --- cksum.tcl 2014-05-02 19:25:10.000000000 +1000
  2. +++ cksum.tcl 2014-05-06 17:34:33.001591537 +1000
  3. @@ -95,11 +95,11 @@
  4. set t $state(t)
  5. binary scan $data c* r
  6. foreach {n} $r {
  7. - set t [expr {($t << 8)
  8. + set t [expr {0xffffffff & (($t << 8)
  9. ^ [lindex $cksum_tbl [expr {
  10. (($t >> 24) \
  11. ^ ($n & 0xFF)) & 0xFF
  12. - }]]}]
  13. + }]])}]
  14. incr state(l)
  15. }
  16. set state(t) $t
  17.