paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 19:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed parsing fpc info

Browse Source 
git-svn-id: trunk@29665 -
This commit is contained in:
mattias 2011-02-25 07:57:56 +00:00
parent 2de3612e95
commit 552969e601
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/definetemplates.pas
View File

@ -1262,10 +1262,11 @@ begin
if not (i in InfoTypes) then continue;
StartPos:=p;
while not (p^ in [' ',#0]) do inc(p);
if (p=StartPos) or (p^=#0) then exit(false);
if (p=StartPos) then exit(false);
Infos[i]:=copy(FPCInfo,StartPos-PChar(FPCInfo)+1,p-StartPos);
// skip space
inc(p);
if p^<>#0 then
inc(p);
end;
Result:=true;
end;