ARC: yet another bugfix (#12871)
This commit is contained in:
parent
56cf3403b4
commit
b8152b29e8
2 changed files with 52 additions and 25 deletions
|
|
@ -82,6 +82,16 @@ proc inheritanceBug(param: string) =
|
|||
s[0] = B(more: "a" & param)
|
||||
s[1] = B(more: "a" & param)
|
||||
|
||||
|
||||
type
|
||||
PAsyncHttpServer = ref object
|
||||
value: string
|
||||
|
||||
proc serve(server: PAsyncHttpServer) = discard
|
||||
|
||||
proc leakObjConstr =
|
||||
serve(PAsyncHttpServer(value: "asdas"))
|
||||
|
||||
let startMem = getOccupiedMem()
|
||||
take3()
|
||||
tlazyList()
|
||||
|
|
@ -89,4 +99,5 @@ inheritanceBug("whatever")
|
|||
mkManyLeaks()
|
||||
tsimpleClosureIterator()
|
||||
tleakingNewStmt()
|
||||
leakObjConstr()
|
||||
echo getOccupiedMem() - startMem
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue