Mercurial > repos > rhope
view testnworker.rhope @ 121:1af91ceaaf49
Fixed memory leak when an output is only attached to a single null input
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 28 Oct 2010 21:04:12 -0400 |
parents | e09c2d1d6d5b |
children | c6ba9fe45910 |
line wrap: on
line source
Import nworker_c.rhope Test NWorker[:out] { ref+ <- Worker Ref["+","rhope",2,1,Yes] ref* <- Worker Ref["*","rhope",2,1,Yes] ,a <- [NWorker["rhope"] ]Add Input["a", 0] { ,b <- [~]Add Input["b", 1] { ,c <- [~]Add Input["c", 2] { ,outref <- [~]Add Output["out", 0] { ,call+ <- [~]Add Worker Call[ref+] { ,call* <- [~]Add Worker Call[ref*] { out <- [[[[[~]Add Wire[a,0,call+,0] ]Add Wire[b,0,call+,1] ]Add Wire[call+,0,call*,0] ]Add Wire[c,0,call*,1] ]Add Wire[call*,0,outref,0] }}}}}} } Main[] { Print[ [[[[NProgram[]]Register Builtins ]Bind Worker["Test", Test NWorker[]] ]Compile Program[C Program[]] ]Text ] }