bug fix #747

2018-04-15 11:48:50 +02:00 · 2018-04-15 11:48:50 +02:00 · 61d4d0e9b6
parent 4d3a1ab605
commit 61d4d0e9b6
1 changed files with 7 additions and 1 deletions
--- a/TreeConverter/TreeConversion/compilation_context.cs
+++ b/TreeConverter/TreeConversion/compilation_context.cs
@ -796,7 +796,13 @@ namespace PascalABCCompiler.TreeConverter

            int i = 0;
            if (si.sym_info == null)
-                AddError(new ExpectedType(loc));
+            {
+                if (name.ToLower() == "result")
+                    AddError(loc, "CAN_NOT_DEDUCE_TYPE_{0}", "Result");
+                else
+                    AddError(new ExpectedType(loc));
+            }
+                
            if (si.sym_info.semantic_node_type == semantic_node_type.wrap_def)
            {
                BasePCUReader.RestoreSymbol(si, name);