summary refs log tree commit diff stats
path: root/compiler/semtempl.nim
diff options
context:
space:
mode:
authorDominik Picheta <dominikpicheta@googlemail.com>2013-10-19 21:13:17 +0100
committerDominik Picheta <dominikpicheta@googlemail.com>2013-10-19 21:13:17 +0100
commitd94a870de4d58879a080f11ea89eb215d73ca900 (patch)
tree9cbc2a95a7cc5036fc6b53b6f4d98144fd0ade43 /compiler/semtempl.nim
parent199c4d21bdb75f9faa63c3e470ac69559c14e411 (diff)
downloadNim-d94a870de4d58879a080f11ea89eb215d73ca900.tar.gz
Fixed definition of seqShallowFlag.
Diffstat (limited to 'compiler/semtempl.nim')
0 files changed, 0 insertions, 0 deletions
t;zahary@gmail.com> 2012-11-22 21:57:37 +0200 added 2 GC leak test cases' href='/ahoang/Nim/commit/tests/gc/cycleleak.nim?h=devel&id=ad53e0b022cb50bc069cfb9d196c3a11b4205b44'>ad53e0b02 ^
3d7abb958 ^

ad53e0b02 ^





3d7abb958 ^

ad53e0b02 ^



3d7abb958 ^
ad53e0b02 ^



3d7abb958 ^
ab6f79340 ^

ab6f79340 ^
ad53e0b02 ^


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56






                        
           





                                                                
           


                  








                                   


                                     

                 





                                    

                 



                         
                   



                                  
                                    

                                             
                                    


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

type
  Module = object
    nodes*: seq[PNode]
    id: int

  PModule = ref Module

  Node = object
    owner*: PModule
    data*: array[0..200, char] # some fat to drain memory faster
    id: int

  PNode = ref Node

var
  gid: int

when false:
  proc finalizeNode(x: PNode) =
    echo "node id: ", x.id
  proc finalizeModule(x: PModule) =
    echo "module id: ", x.id

proc newNode(owner: PModule): PNode =
  new(result)
  result.owner = owner
  inc gid
  result.id = gid

proc compileModule: PModule =
  new(result)
  result.nodes = @[]
  for i in 0..100:
    result.nodes.add newNode(result)
  inc gid
  result.id = gid

var gModuleCache: PModule

proc loop =
  for i in 0..1000:
    gModuleCache = compileModule()
    gModuleCache = nil
    GC_fullCollect()

    if getOccupiedMem() > 9_000_000:
      echo "still a leak! ", getOccupiedMem()
      quit(1)
  echo "no leak: ", getOccupiedMem()

loop()