diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2011-06-14 23:08:40 -0500 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2011-06-14 23:08:40 -0500 |
| commit | 4b2df447b09a4e674b0c906edb2708937f91e5a1 (patch) | |
| tree | 6bf48ea023dd4d046bfc78b345257f2044569926 /src/main/clojure/org | |
| parent | fa45a117cf3cff041acdbde141ef49ba419c0a32 (diff) | |
More 1.3.0 bigint fixes.
Diffstat (limited to 'src/main/clojure/org')
| -rw-r--r-- | src/main/clojure/org/gnu/clojure/gnunet/core.clj | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/main/clojure/org/gnu/clojure/gnunet/core.clj b/src/main/clojure/org/gnu/clojure/gnunet/core.clj index 34e4a60..b759575 100644 --- a/src/main/clojure/org/gnu/clojure/gnunet/core.clj +++ b/src/main/clojure/org/gnu/clojure/gnunet/core.clj @@ -322,9 +322,10 @@ (assoc % :last-packets-bitmap (bit-set bitmap bit)) (conj % {:last-sequence-number-received seqnum - :last-packets-bitmap (.intValue - (bit-shift-left (biginteger bitmap) - (- seqnum last-seqnum)))}))) + :last-packets-bitmap (bit-and + (bit-shift-left bitmap + (- seqnum last-seqnum)) + 0xFFFFFFFF)}))) :when-not (.before (:timestamp message) (message-expiration)) ;; TODO: update bandwidth tracking ] |