From 1a6533567883ca4837b943d683c0e4234b1d57a4 Mon Sep 17 00:00:00 2001 From: Rio Sanjaya Date: Wed, 30 Sep 2026 00:01:13 +0700 Subject: [PATCH] Fix AccessViolation on ExtractCodeSection when node is nil --- src/serverprotocol/PasLS.Symbols.pas | 3 +++ 1 file changed, 3 insertions(+) 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;