bugfix: fixed built-in 'reset'
This commit is contained in:
parent
dd190a5c01
commit
82af6387d9
2 changed files with 6 additions and 4 deletions
|
|
@ -139,10 +139,10 @@ proc genericResetAux(dest: Pointer, n: ptr TNimNode) =
|
|||
of nkList:
|
||||
for i in 0..n.len-1: genericResetAux(dest, n.sons[i])
|
||||
of nkCase:
|
||||
zeroMem(cast[pointer](d +% n.offset), n.typ.size)
|
||||
var m = selectBranch(dest, n)
|
||||
if m != nil: genericResetAux(dest, m)
|
||||
|
||||
zeroMem(cast[pointer](d +% n.offset), n.typ.size)
|
||||
|
||||
proc genericReset(dest: Pointer, mt: PNimType) =
|
||||
var d = cast[TAddress](dest)
|
||||
sysAssert(mt != nil)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue