Merge pull request #2164 from oderwat/fix-tohex

Fixing toHex() to not wrap for long lens + Test
This commit is contained in:
Andreas Rumpf
2015-02-19 09:12:50 +01:00
2 changed files with 32 additions and 27 deletions

View File

@@ -395,11 +395,13 @@ proc toHex*(x: BiggestInt, len: int): string {.noSideEffect,
const
HexChars = "0123456789ABCDEF"
var
shift: BiggestInt
n = x
result = newString(len)
for j in countdown(len-1, 0):
result[j] = HexChars[toU32(x shr shift) and 0xF'i32]
shift = shift + 4
result[j] = HexChars[n and 0xF]
n = n shr 4
# handle negative overflow
if n == 0 and x < 0: n = -1
proc intToStr*(x: int, minchars: int = 1): string {.noSideEffect,
rtl, extern: "nsuIntToStr".} =