paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TCOdeBuffer.LoadFromFile load when no filename is set

Browse Source 
git-svn-id: trunk@32008 -
This commit is contained in:
mattias 2011-08-19 08:10:37 +00:00
parent 19ff4dd485
commit 00ea7b574c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecache.pas
View File

@ -1038,7 +1038,7 @@ begin
Result:=false; Result:=false;
exit; exit;
end; end;
if not IsVirtual then begin if (not IsVirtual) or (Filename='') then begin
if CompareFilenames(AFilename,Filename)=0 then begin if CompareFilenames(AFilename,Filename)=0 then begin
//DebugLn('****** [TCodeBuffer.LoadFromFile] ',Filename,' FileDateValid=',FileDateValid,' ',FFileDate,',',FileAgeUTF8(Filename),',',FFileChangeStep,',',ChangeStep,', NeedsUpdate=',FileNeedsUpdate); //DebugLn('****** [TCodeBuffer.LoadFromFile] ',Filename,' FileDateValid=',FileDateValid,' ',FFileDate,',',FileAgeUTF8(Filename),',',FFileChangeStep,',',ChangeStep,', NeedsUpdate=',FileNeedsUpdate);
if FileNeedsUpdate then begin if FileNeedsUpdate then begin