From 7b31f586e395a98500dac30aed7038ae2fb17948 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, 2 Mar 2017 20:32:52 +0100 Subject: [PATCH] add generics10.pas in test suite (for #360) --- CodeCompletion/DomSyntaxTreeVisitor.cs | 2 +- TestSuite/generics10.pas | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) create mode 100644 TestSuite/generics10.pas diff --git a/CodeCompletion/DomSyntaxTreeVisitor.cs b/CodeCompletion/DomSyntaxTreeVisitor.cs index 81460118f..fa5f9911e 100644 --- a/CodeCompletion/DomSyntaxTreeVisitor.cs +++ b/CodeCompletion/DomSyntaxTreeVisitor.cs @@ -2205,7 +2205,7 @@ namespace CodeCompletion #endif } } - if (_program_module.program_block.program_code != null) + if (cur_scope != null && _program_module.program_block.program_code != null) { cur_scope.body_loc = new location(_program_module.program_block.program_code.left_logical_bracket.source_context.end_position.line_num, _program_module.program_block.program_code.left_logical_bracket.source_context.end_position.column_num, diff --git a/TestSuite/generics10.pas b/TestSuite/generics10.pas new file mode 100644 index 000000000..37ab0f799 --- /dev/null +++ b/TestSuite/generics10.pas @@ -0,0 +1,5 @@ +begin + var arr := Range(1,5).Select(i->i.ToString).ToArray; + assert(arr[0] = '1'); + assert(arr[4] = '5'); +end. \ No newline at end of file