diff --git a/TestSuite/sort1.pas b/TestSuite/sort1.pas new file mode 100644 index 000000000..3b451064a --- /dev/null +++ b/TestSuite/sort1.pas @@ -0,0 +1,5 @@ +begin + var a := Arr(1,3,2); + a.Sort((row1, row2) -> 1); + assert(a[0] = 1); +end. \ No newline at end of file diff --git a/TreeConverter/SymbolTable/DSST/SymbolTable.cs b/TreeConverter/SymbolTable/DSST/SymbolTable.cs index a8510ec2b..0e932d1e7 100644 --- a/TreeConverter/SymbolTable/DSST/SymbolTable.cs +++ b/TreeConverter/SymbolTable/DSST/SymbolTable.cs @@ -854,7 +854,9 @@ namespace SymbolTable (((to.symbol_kind==symbol_kind.sk_none)&&(add.symbol_kind==symbol_kind.sk_none))&&(to.scope==add.scope)) || ((to.symbol_kind==symbol_kind.sk_overload_function)&&(add.symbol_kind==symbol_kind.sk_overload_function)) - ); + || + ((to.symbol_kind == symbol_kind.sk_overload_procedure) && (add.symbol_kind == symbol_kind.sk_overload_procedure)) + ); } private bool AlreadyAdded(SymbolInfo si, SymbolInfo FirstInfo)