fixes tests for 'system.shallow'
This commit is contained in:
parent
6b684f4f98
commit
74498d616e
4 changed files with 27 additions and 23 deletions
|
|
@ -152,7 +152,7 @@ when defined(boehmgc):
|
|||
proc newSeq(typ: PNimType, len: int): pointer {.compilerproc.} =
|
||||
result = newObj(typ, addInt(mulInt(len, typ.base.size), GenericSeqSize))
|
||||
cast[PGenericSeq](result).len = len
|
||||
cast[PGenericSeq](result).space = len
|
||||
cast[PGenericSeq](result).reserved = len
|
||||
|
||||
proc growObj(old: pointer, newsize: int): pointer =
|
||||
result = realloc(old, newsize)
|
||||
|
|
@ -208,7 +208,7 @@ elif defined(nogc):
|
|||
proc newSeq(typ: PNimType, len: int): pointer {.compilerproc.} =
|
||||
result = newObj(typ, addInt(mulInt(len, typ.base.size), GenericSeqSize))
|
||||
cast[PGenericSeq](result).len = len
|
||||
cast[PGenericSeq](result).space = len
|
||||
cast[PGenericSeq](result).reserved = len
|
||||
proc growObj(old: pointer, newsize: int): pointer =
|
||||
result = realloc(old, newsize)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue