administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #1251

Browse source
This commit is contained in:
Бондарев Иван 2018-10-03 10:55:03 +02:00
parent f66989db50
commit 96b47bf568
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CodeCompletion/CodeFormatter.cs
View file

@ -507,7 +507,7 @@ namespace CodeFormatters
int pos = GetPosition(sn.source_context.begin_position.line_num, sn.source_context.begin_position.column_num);
int prev_pos = 0;
if (prev_sn != null)
if (read_from_beg_pos)
if (read_from_beg_pos || sn is procedure_definition && prev_sn is program_module)
{
prev_pos = GetPosition(prev_sn.source_context.begin_position.line_num, prev_sn.source_context.begin_position.column_num) + keyword_offset;
}

3
TestSuite/formatter_tests/input/Program1337.pas Normal file
View file

@ -0,0 +1,3 @@
class procedure p1 := exit;
begin
end.