Nim/tests/effects/tgcsafe.nim
2014-08-12 08:47:31 +02:00

16 lines
269 B
Nim

discard """
line: 15
errormsg: "'mainUnsafe' is not GC-safe"
"""
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)