luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Optimize compact long freezer

Browse source
This commit is contained in:
Peter Taoussanis 2015-09-30 11:57:00 +07:00
parent 1506747e42
commit 4765a32e4e
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/taoensso/nippy.clj
View file

@ -282,16 +282,23 @@
(freeze-to-out* [x ^DataOutput out]
(let [^long x x]
(cond
(and (<= Byte/MIN_VALUE x) (<= x Byte/MAX_VALUE))
(do (write-id out id-byte-as-long) (.writeByte out x))
(and (<= x #_Byte/MAX_VALUE 127)
(<= #_Byte/MIN_VALUE -128 x))
(do (write-id out id-byte-as-long)
(.writeByte out x))
(and (<= Short/MIN_VALUE x) (<= x Short/MAX_VALUE))
(do (write-id out id-short-as-long) (.writeShort out x))
(and (<= x #_Short/MAX_VALUE 32767)
(<= #_Short/MIN_VALUE -32768 x))
(do (write-id out id-short-as-long)
(.writeShort out x))
(and (<= Integer/MIN_VALUE x) (<= x Integer/MAX_VALUE))
(do (write-id out id-int-as-long) (.writeInt out x))
(and (<= x #_Integer/MAX_VALUE 2147483647)
(<= #_Integer/MIN_VALUE -2147483648 x))
(do (write-id out id-int-as-long)
(.writeInt out x))
:else (do (write-id out id-long) (.writeLong out x))))))
:else (do (write-id out id-long)
(.writeLong out x))))))
;;