diff --git a/src/serverprotocol/PasLS.Diagnostics.pas b/src/serverprotocol/PasLS.Diagnostics.pas index 83e48dd..586e376 100644 --- a/src/serverprotocol/PasLS.Diagnostics.pas +++ b/src/serverprotocol/PasLS.Diagnostics.pas @@ -25,7 +25,7 @@ interface uses { RTL } - Classes, Types, + Classes, Types, fgl, StrUtils, { Code Tools } CodeToolManager, CodeCache, { Protocol } @@ -120,6 +120,8 @@ procedure PublishCodeToolsError(aTransport: TMessageTransport; aCol:=CodeToolBoss.ErrorColumn; if CodeToolBoss.ErrorCode<> nil then begin + if StartsStr('In front of code.', aErrorMessage) then + Exit; aFileName:=CodeToolBoss.ErrorCode.FileName; MessageString:=aFileName+': '; end