fixes 'gcsafe'

2014-08-12 08:47:31 +02:00 · 2014-08-12 08:47:31 +02:00 · b8ce3a4175
commit b8ce3a4175
parent 05dbba0e38
8 changed files with 56 additions and 22 deletions
--- a/tests/effects/tgcsafe.nim
+++ b/tests/effects/tgcsafe.nim
@ -0,0 +1,16 @@
+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)