summary refs log tree commit diff stats
path: root/tinyc/tcc.c
diff options
context:
space:
mode:
Diffstat (limited to 'tinyc/tcc.c')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-02-13 11:55:55 +0000


 


28
29
30
31
































                                           
discard """
  outputsub: "no leak: "
"""

type
  Cyclic = object
    sibling: PCyclic
    data: array[0..200, char]

  PCyclic = ref Cyclic

proc makePair: PCyclic =
  new(result)
  new(result.sibling)
  result.sibling.sibling = result

proc loop =
  for i in 0..10000:
    var x = makePair()
    GC_fullCollect()
    x = nil
    GC_fullCollect()

  if getOccupiedMem() > 300_000:
    echo "still a leak! ", getOccupiedMem()
    quit(1)
  else:
    echo "no leak: ", getOccupiedMem()

loop()