2018-03-26 09:46:24 +00:00
|
|
|
# Mpint
|
|
|
|
# Copyright 2018 Status Research & Development GmbH
|
|
|
|
# Licensed under either of
|
|
|
|
#
|
|
|
|
# * Apache License, version 2.0, ([LICENSE-APACHE](LICENSE-APACHE) or http://www.apache.org/licenses/LICENSE-2.0)
|
|
|
|
# * MIT license ([LICENSE-MIT](LICENSE-MIT) or http://opensource.org/licenses/MIT)
|
|
|
|
#
|
|
|
|
# at your option. This file may not be copied, modified, or distributed except according to those terms.
|
|
|
|
|
2018-03-28 18:45:39 +00:00
|
|
|
import ./uint_type, ./size_mpuintimpl,
|
2018-03-26 09:46:24 +00:00
|
|
|
macros
|
|
|
|
|
2018-03-28 18:45:39 +00:00
|
|
|
proc initMpUintImpl*[InType, OutType](x: InType, _: typedesc[OutType]): OutType {.noSideEffect.} =
|
2018-03-26 10:45:10 +00:00
|
|
|
|
2018-03-28 18:45:39 +00:00
|
|
|
const
|
|
|
|
size_in = size_mpuintimpl(x)
|
|
|
|
size_out = size_mpuintimpl(result)
|
|
|
|
|
|
|
|
static:
|
|
|
|
assert size_out >= size_in, "The result type size should be equal or bigger than the input type size"
|
|
|
|
|
|
|
|
when OutType is SomeUnsignedInt:
|
|
|
|
result = x.OutType
|
|
|
|
elif size_in == size_out:
|
|
|
|
result = cast[type result](x)
|
|
|
|
else:
|
|
|
|
result.lo = initMpUintImpl(x, type result.lo)
|
2018-03-28 15:15:36 +00:00
|
|
|
|
|
|
|
proc toSubtype*[T: SomeInteger](b: bool, _: typedesc[T]): T {.noSideEffect, inline.}=
|
2018-03-26 10:45:10 +00:00
|
|
|
b.T
|
|
|
|
|
2018-03-28 15:15:36 +00:00
|
|
|
proc toSubtype*[T: MpUintImpl](b: bool, _: typedesc[T]): T {.noSideEffect, inline.}=
|
2018-03-26 10:45:10 +00:00
|
|
|
type SubTy = type result.lo
|
|
|
|
result.lo = toSubtype(b, SubTy)
|
2018-03-26 09:46:24 +00:00
|
|
|
|
2018-03-28 15:15:36 +00:00
|
|
|
proc zero*[T: BaseUint](_: typedesc[T]): T {.noSideEffect, inline.}=
|
2018-03-28 18:45:39 +00:00
|
|
|
discard
|
2018-03-26 09:46:24 +00:00
|
|
|
|
2018-03-28 15:15:36 +00:00
|
|
|
proc one*[T: BaseUint](_: typedesc[T]): T {.noSideEffect, inline.}=
|
2018-03-26 09:46:24 +00:00
|
|
|
when T is SomeUnsignedInt:
|
2018-03-28 15:15:36 +00:00
|
|
|
result = T(1)
|
2018-03-26 09:46:24 +00:00
|
|
|
else:
|
2018-03-28 15:15:36 +00:00
|
|
|
result.lo = one(type result.lo)
|
2018-03-26 09:46:24 +00:00
|
|
|
|
|
|
|
proc toUint*(n: MpUIntImpl): auto {.noSideEffect, inline.}=
|
|
|
|
## Casts a multiprecision integer to an uint of the same size
|
|
|
|
|
|
|
|
# TODO: uint128 support
|
|
|
|
when n.sizeof > 8:
|
|
|
|
raise newException("Unreachable. You are trying to cast a MpUint with more than 64-bit of precision")
|
|
|
|
elif n.sizeof == 8:
|
|
|
|
cast[uint64](n)
|
|
|
|
elif n.sizeof == 4:
|
|
|
|
cast[uint32](n)
|
|
|
|
elif n.sizeof == 2:
|
|
|
|
cast[uint16](n)
|
|
|
|
else:
|
|
|
|
raise newException("Unreachable. MpUInt must be 16-bit minimum and a power of 2")
|
|
|
|
|
|
|
|
proc toUint*(n: SomeUnsignedInt): SomeUnsignedInt {.noSideEffect, inline.}=
|
|
|
|
## No-op overload of multi-precision int casting
|
|
|
|
n
|
|
|
|
|
|
|
|
proc asDoubleUint*(n: BaseUint): auto {.noSideEffect, inline.} =
|
|
|
|
## Convert an integer or MpUint to an uint with double the size
|
|
|
|
|
|
|
|
type Double = (
|
|
|
|
when n.sizeof == 4: uint64
|
|
|
|
elif n.sizeof == 2: uint32
|
|
|
|
else: uint16
|
|
|
|
)
|
|
|
|
|
|
|
|
n.toUint.Double
|
|
|
|
|
|
|
|
|
|
|
|
proc toMpUintImpl*(n: uint16|uint32|uint64): auto {.noSideEffect, inline.} =
|
|
|
|
## Cast an integer to the corresponding size MpUintImpl
|
|
|
|
# Sometimes direct casting doesn't work and we must cast through a pointer
|
|
|
|
|
|
|
|
when n is uint64:
|
|
|
|
return (cast[ptr [MpUintImpl[uint32]]](unsafeAddr n))[]
|
|
|
|
elif n is uint32:
|
|
|
|
return (cast[ptr [MpUintImpl[uint16]]](unsafeAddr n))[]
|
|
|
|
elif n is uint16:
|
|
|
|
return (cast[ptr [MpUintImpl[uint8]]](unsafeAddr n))[]
|
2018-03-28 18:45:39 +00:00
|
|
|
|
|
|
|
proc toMpUintImpl*(n: MpUintImpl): MpUintImpl {.noSideEffect, inline.} =
|
|
|
|
## No op
|
|
|
|
n
|