paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 02:29:41 +01: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:=''; LastLine:='';
if not CfgStrToDate(NextLine,BaseDate) then BaseDate:=Date; if not CfgStrToDate(NextLine,BaseDate) then BaseDate:=Date;
repeat repeat
IncludeFilename:=NextUncompressedLine; IncludeFilename:=TrimFilename(NextUncompressedLine);
if IncludeFilename='' then exit; if IncludeFilename='' then exit;
IncludedByFile:=NextUncompressedLine; IncludedByFile:=TrimFilename(NextUncompressedLine);
if IncludedByFile='' then begin if IncludedByFile='' then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]); debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit; exit;
@ -549,7 +549,7 @@ var
inc(p2); inc(p2);
end; end;
p:=p1-PChar(Line); 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; LastLine:=Line;
end; end;