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

codetools: LoadFile revert=true: check Revert result

Browse Source 
git-svn-id: trunk@22853 -
This commit is contained in:
mattias 2009-11-28 15:23:23 +00:00
parent 0d6aff22e1
commit e97ed5a1c9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codetoolmanager.pas
View File

@ -1027,9 +1027,10 @@ begin
end; end;
Result:=SourceCache.LoadFile(ExpandedFilename); Result:=SourceCache.LoadFile(ExpandedFilename);
if Result<>nil then begin if Result<>nil then begin
if Revert then if Revert then begin
Result.Revert if not Result.Revert then
else if UpdateFromDisk and Result.AutoRevertFromDisk Result:=nil;
end else if UpdateFromDisk and Result.AutoRevertFromDisk
and Result.FileNeedsUpdate then begin and Result.FileNeedsUpdate then begin
//debugln(['TCodeToolManager.LoadFile ',ExpandedFilename,' AutoRevert=',Result.AutoRevertFromDisk,' Modified=',Result.Modified,' NeedLoad=',Result.FileNeedsUpdate]); //debugln(['TCodeToolManager.LoadFile ',ExpandedFilename,' AutoRevert=',Result.AutoRevertFromDisk,' Modified=',Result.Modified,' NeedLoad=',Result.FileNeedsUpdate]);
Result.Reload; Result.Reload;