paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed saving include links

Browse Source 
git-svn-id: trunk@28480 -
This commit is contained in:
mattias 2010-11-25 14:39:10 +00:00
parent 49d43bc036
commit bfcffb7cbe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecache.pas
View File

@ -424,9 +424,9 @@ begin
LastLine:='';
if not CfgStrToDate(NextLine,BaseDate) then BaseDate:=Date;
repeat
IncludeFilename:=NextUncompressedLine;
IncludeFilename:=TrimFilename(NextUncompressedLine);
if IncludeFilename='' then exit;
IncludedByFile:=NextUncompressedLine;
IncludedByFile:=TrimFilename(NextUncompressedLine);
if IncludedByFile='' then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit;
@ -549,7 +549,7 @@ var
inc(p2);
end;
p:=p1-PChar(Line);
List.Add(IntToStr(p)+':'+copy(Line,p,length(Line)));
List.Add(IntToStr(p)+':'+copy(Line,p+1,length(Line)));
LastLine:=Line;
end;