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

codetools: fixed save include links

Browse Source 
git-svn-id: trunk@27319 -
This commit is contained in:
mattias 2010-09-11 23:14:47 +00:00
parent 6132daabf9
commit c3c3c6425c
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/codecache.pas
View File

@ -403,9 +403,10 @@ var
Same:=Same*10+ord(Result[p])-ord('0');
inc(p);
end;
inc(p);
Result:=copy(LastLine,1,Same)+copy(Result,p,length(Result));
while (p<=length(Result)) and (Result[p]<>':') do inc(p);
Result:=copy(LastLine,1,Same)+copy(Result,p+1,length(Result));
LastLine:=Result;
//debugln(['NextUncompressedLine "',Result,'"']);
end;
var
@ -430,6 +431,10 @@ begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit;
end;
if not FilenameIsAbsolute(IncludedByFile) then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList ignoring relative IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit;
end;
p:=System.Pos(';',IncludedByFile);
if p<1 then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing age in IncludedByFile line: ',IncludedByFile,' line=',Index]);
@ -544,7 +549,7 @@ var
inc(p2);
end;
p:=p1-PChar(Line);
List.Add(IntToStr(p-1)+':'+copy(Line,p,length(Line)));
List.Add(IntToStr(p)+':'+copy(Line,p,length(Line)));
LastLine:=Line;
end;