fixes tests for 'system.shallow'

This commit is contained in:
Araq
2012-02-10 00:32:20 +01:00
parent e194037ea7
commit 6b684f4f98

View File

@@ -114,7 +114,7 @@ proc storeAux(dest, src: Pointer, mt: PNimType, t: PRawChannel,
mt.Base, t, mode)
var dstseq = cast[PGenericSeq](dst)
dstseq.len = seq.len
dstseq.space = seq.len
dstseq.reserved = seq.len
if mode != mStore: Dealloc(t.region, s2)
of tyObject:
# copy type field: