diff --git a/SyntaxVisitors/LightSymInfoVisitors/SymInfoCollect1.cs b/SyntaxVisitors/LightSymInfoVisitors/SymInfoCollect1.cs index c8789e599..ce89718e2 100644 --- a/SyntaxVisitors/LightSymInfoVisitors/SymInfoCollect1.cs +++ b/SyntaxVisitors/LightSymInfoVisitors/SymInfoCollect1.cs @@ -126,7 +126,8 @@ namespace PascalABCCompiler.SyntaxTree //case repeat_node rep: case case_node cas: PreExitScope(st); - Current = Current.Parent; + if (Current != null) + Current = Current.Parent; break; } }