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

fix bug ABCStatistics

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-02-15 09:28:11 +03:00
parent 84dc17a37c
commit 4bfd9d4cb2
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
SyntaxVisitors/UniversalVisitors/ABCStatisticsVisitors.cs
View file

@ -176,7 +176,9 @@ namespace SyntaxVisitors
}
public override void visit(procedure_call pc)
{
if (pc.func_name is method_call mc && mc.dereferencing_value is ident id && (id.name.ToLower() == "read" || id.name.ToLower() == "readln"))
if (pc.func_name is method_call mc)
if (mc.dereferencing_value is ident id)
if (id.name != null && (id.name.ToLower() == "read" || id.name.ToLower() == "readln"))
{
syntax_tree_node n = pc;
do
@ -189,7 +191,8 @@ namespace SyntaxVisitors
else
ReadProc += 1;
}
if (pc.func_name is method_call mc1 && mc1.dereferencing_value is ident id1 && (id1.name.ToLower() == "write" || id1.name.ToLower() == "writeln")
if (pc.func_name is method_call mc1 && mc1.dereferencing_value is ident id1 &&
(id1.name != null && (id1.name.ToLower() == "write" || id1.name.ToLower() == "writeln"))
&& mc1.parameters != null && mc1.parameters.expressions.Any(ex => ex is char_const cc && cc.cconst == ' '))
{
WriteProcWithSpace += 1;