paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 20:42:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: messages: fixed scanning filenames with brackets

Browse Source 
git-svn-id: branches/fixes_1_4@47525 -
This commit is contained in:
mattias 2015-01-26 11:29:23 +00:00
parent 2b84017f69
commit 93f33ce349
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/etfpcmsgparser.pas
View File

@ -2326,6 +2326,7 @@ function TIDEFPCParser.CheckForFileLineColMessage(p: PChar): boolean;
{ filename(line,column) Hint: message
filename(line,column) Hint: (msgid) message
filename(line) Hint: (msgid) message
file(3)name(line,column) Hint: (msgid) message
}
var
FileStartPos: PChar;
@ -2344,9 +2345,18 @@ var
begin
Result:=false;
FileStartPos:=p;
while not (p^ in ['(',#0]) do inc(p);
if (p^<>'(') or (p=FileStartPos) or (p[-1]=' ') then exit;
FileEndPos:=p;
FileEndPos:=nil;
// search colon and last ( in front of colon
while true do begin
case p^ of
#0: exit;
'(': FileEndPos:=p;
':': break;
end;
inc(p);
end;
if (FileEndPos=nil) or (FileEndPos-FileStartPos=0) or (FileEndPos[-1]=' ') then exit;
p:=FileEndPos;
inc(p); // skip bracket
LineStartPos:=p;
if not ReadDecimal(p) then exit;