Files
Nim/tests/effects/tgcsafe.nim
2015-04-11 10:01:11 +02:00

18 lines
329 B
Nim

discard """
line: 17
errormsg: "'mainUnsafe' is not GC-safe"
cmd: "nim $target --hints:on --threads:on $options $file"
"""
proc mymap(x: proc ()) =
x()
var
myglob: string
proc mainSafe() {.gcsafe.} =
mymap(proc () = echo "foo")
proc mainUnsafe() {.gcsafe.} =
mymap(proc () = myglob = "bar"; echo "foo", myglob)