diff --git a/src/serverprotocol/PasLS.Symbols.pas b/src/serverprotocol/PasLS.Symbols.pas index f6c6e2b..6e033f5 100644 --- a/src/serverprotocol/PasLS.Symbols.pas +++ b/src/serverprotocol/PasLS.Symbols.pas @@ -1553,6 +1553,9 @@ procedure TSymbolExtractor.ExtractCodeSection(Node: TCodeTreeNode); IsImplementation: Boolean; ConstName, VarName: String; begin + if Node = nil then + Exit; + IsImplementation:=(Node.Parent<>nil) and (Node.Parent.Desc=ctnImplementation); LastClassSymbol:=nil;