paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fc msg parser: small optimization

Browse Source 
git-svn-id: trunk@49878 -
This commit is contained in:
mattias 2015-09-27 19:13:25 +00:00
parent 83ae0c9b59
commit c6a86d4365
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/etfpcmsgparser.pas
View File

@ -1245,7 +1245,7 @@ var
OldP: PChar;
begin
Result:=fMsgID=9001;
if (fMsgID>0) and not Result then exit;
if (not Result) and (fMsgID>0) then exit;
OldP:=p;
if (not Result) and (not CompStr('Assembling ',p)) then exit;
MsgLine:=CreateMsgLine;
@ -1401,7 +1401,7 @@ var
MsgLine: TMessageLine;
begin
Result:=fMsgID=1008;
if (fMsgID>0) and not Result then exit;
if (not Result) and (fMsgID>0) then exit;
OldStart:=p;
if not Result then begin
if not ReadNumberWithThousandSep(p) then exit;
@ -1429,7 +1429,7 @@ var
MsgLine: TMessageLine;
begin
Result:=(fMsgID>=9130) and (fMsgID<=9140);
if (fMsgID>0) and not Result then exit;
if (not Result) and (fMsgID>0) then exit;
OldStart:=p;
if (not Result) then begin
if not (ReadString(p,'Size of Code: ') or
@ -2727,7 +2727,7 @@ var
MsgLine: TMessageLine;
begin
Result:=fMsgID=10027;
if (fMsgID>0) and not Result then exit;
if (not Result) and (fMsgID>0) then exit;
OldP:=p;
if not Result then begin
if not ReadString(p,'Load from ') then exit;