From 46713481f5f270fa1dac61a6f8b01b25cd3c2fb6 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 31 May 2014 23:20:00 +0000 Subject: [PATCH] IDE: fpc msg parser: fixed IsMsgId git-svn-id: trunk@45272 - --- ide/etfpcmsgparser.pas | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/ide/etfpcmsgparser.pas b/ide/etfpcmsgparser.pas index ed5a1c0fc1..bbfa65fa4e 100644 --- a/ide/etfpcmsgparser.pas +++ b/ide/etfpcmsgparser.pas @@ -2433,10 +2433,9 @@ begin Value1:=''; Value2:=''; if Msg=nil then exit(false); - if Msg.MsgID<>MsgId then begin - if Msg.MsgID<>0 then exit(false); - if Msg.SubTool<>SubToolFPC then exit(false); - end; + if Msg.SubTool<>SubToolFPC then exit(false); + if (Msg.MsgID<>MsgId) + and (Msg.MsgID<>0) then exit(false); Result:=true; aFPCParser:=GetFPCParser(Msg); if aFPCParser=nil then exit;