bug fix #447

Compiler/PCU/PCUWriter.cs

@@ -824,7 +824,13 @@ namespace PascalABCCompiler.PCU
             {
                 name_array[i] = new NameRef(cur_cnn.functions[i - j].name, i);
                 if (cur_cnn.functions[i - j].ConnectedToType != null)
+                {
                     name_array[i].special_scope = 1;
+                    if (cur_cnn.functions[i - j].return_value_type != null)
+                        name_array[i].symbol_kind = symbol_kind.sk_overload_function;
+                    else
+                        name_array[i].symbol_kind = symbol_kind.sk_overload_procedure;
+                }
                 pools[cur_cnn.functions[i - j]] = name_array[i];
             }
             j = i;

TestSuite/CompilationSamples/PABCSystem.pas

@@ -5,7 +5,7 @@
 /// !! System unit
 unit PABCSystem;
 
- {$define PascalABC}
+{$define PascalABC}
 
 {$gendoc true}
 

TestSuite/overloads7.pas

@@ -0,0 +1,11 @@
+var i: integer;
+procedure p := Inc(i);
+
+begin
+  var q := 3*p;
+  var q1 := p*3;
+  q;
+  assert(i=3);
+  q1;
+  assert(i=6);
+end.

bin/Lib/PABCExtensions.pas

@@ -107,7 +107,6 @@ var __initialized: boolean;
 
 procedure __InitModule;
 begin
-
 end;
 
 procedure __InitModule__;

bin/Lib/PABCSystem.pas

@@ -5,7 +5,7 @@
 /// !! System unit
 unit PABCSystem;
 
- {$define PascalABC}
+{$define PascalABC}
 
 {$gendoc true}