From 8a12f4743d6e111e9df33b8637f79ee582c17755 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= Date: Thu, 28 Jul 2016 21:10:40 +0200 Subject: [PATCH] bug fix #251 --- TestSuite/sort1.pas | 5 +++++ TreeConverter/SymbolTable/DSST/SymbolTable.cs | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 TestSuite/sort1.pas 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)