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

#2836

Browse source
This commit is contained in:
Ivan Bondarev 2023-04-09 12:50:19 +02:00
parent f1585e77c1
commit 592ef8f783
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
TestSuite/case7.pas Normal file
View file

@ -0,0 +1,13 @@
var i: integer;
procedure p1(s: string) :=
case s of
else Inc(i);
end;
begin
p1('abc');
p1('');
p1(nil);
assert(i = 3);
end.

2
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -10928,7 +10928,7 @@ namespace PascalABCCompiler.TreeConverter
context.leave_code_block();
if (ifn == null)
{
ifn = new if_node(en, new statements_list(null), null, get_location(_case_node));
ifn = new if_node(new bool_const_node(false, null), new statements_list(null), null, get_location(_case_node));
main_ifn = ifn;
}
ifn.else_body = else_statement;