make generic tests green again

This commit is contained in:
Andreas Rumpf 2018-08-13 12:54:02 +02:00
commit 96e0b56a55

View file

@ -103,7 +103,7 @@ proc DeleteItem[T,D] (n: PNode[T,D], x: int): PNode[T,D] {.inline.} =
else : else :
result = n.left result = n.left
n.slots = nil n.slots = @[]
n.left = nil n.left = nil
proc internalDelete[T,D] (ANode: PNode[T,D], key: T, Avalue: var D): PNode[T,D] = proc internalDelete[T,D] (ANode: PNode[T,D], key: T, Avalue: var D): PNode[T,D] =
@ -200,7 +200,7 @@ proc traceTree[T,D](root: PNode[T,D]) =
traceln(space) traceln(space)
write stdout, "left: " write stdout, "left: "
doTrace(n.left, level+1) doTrace(n.left, level+1)
for i, el in n.slots : for i, el in n.slots:
if el != nil and not isClean(el): if el != nil and not isClean(el):
traceln(space) traceln(space)
traceX(i) traceX(i)