fixes tests for 'system.shallow'

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

View file

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