paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:20:41 +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'); Same:=Same*10+ord(Result[p])-ord('0');
inc(p); inc(p);
end; end;
inc(p); while (p<=length(Result)) and (Result[p]<>':') do inc(p);
Result:=copy(LastLine,1,Same)+copy(Result,p,length(Result)); Result:=copy(LastLine,1,Same)+copy(Result,p+1,length(Result));
LastLine:=Result; LastLine:=Result;
//debugln(['NextUncompressedLine "',Result,'"']);
end; end;
var var
@ -430,6 +431,10 @@ begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]); debugln(['TCodeCache.LoadIncludeLinksDataFromList missing IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit; exit;
end; end;
if not FilenameIsAbsolute(IncludedByFile) then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList ignoring relative IncludedByFile: IncludeFilename=',IncludeFilename,' line=',Index]);
exit;
end;
p:=System.Pos(';',IncludedByFile); p:=System.Pos(';',IncludedByFile);
if p<1 then begin if p<1 then begin
debugln(['TCodeCache.LoadIncludeLinksDataFromList missing age in IncludedByFile line: ',IncludedByFile,' line=',Index]); debugln(['TCodeCache.LoadIncludeLinksDataFromList missing age in IncludedByFile line: ',IncludedByFile,' line=',Index]);
@ -544,7 +549,7 @@ var
inc(p2); inc(p2);
end; end;
p:=p1-PChar(Line); 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; LastLine:=Line;
end; end;