implemented 'tags' pragma

2012-11-11 22:03:41 +01:00 · 2012-11-11 22:03:41 +01:00 · 48a62af3b1
commit 48a62af3b1
parent a31a5f9c81
9 changed files with 193 additions and 88 deletions
--- a/tests/reject/teffects3.nim
+++ b/tests/reject/teffects3.nim
@ -0,0 +1,19 @@
+discard """
+  line: 18
+  errormsg: "type mismatch"
+"""
+
+type
+  TObj = object {.pure, inheritable.}
+  TObjB = object of TObj
+    a, b, c: string
+    fn: proc (): int {.tags: [].}
+  
+  EIO2 = ref object of EIO
+  
+proc raiser(): int {.tags: [TObj].} =
+  writeln stdout, "arg"
+
+var o: TObjB
+o.fn = raiser
+