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

IDE: Simplify TUnitInfo.NeedsSaveToDisk and don't check LFM if the unit is an LFM file itself.

Browse Source
This commit is contained in:
Juha 2023-07-22 14:57:58 +03:00
parent 138b8f2eae
commit c539d373e7
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/project.pp
View File

@ -2243,11 +2243,9 @@ end;
function TUnitInfo.NeedsSaveToDisk(CheckLFM: boolean): boolean;
begin
Result:=IsVirtual or Modified or IsChangedOnDisk(CheckLFM);
//DebugLn(['TUnitInfo.NeedsSaveToDisk ',filename,' Result=',Result,' Modified=',Modified]);
if Result then Exit;
if Source<>nil then
Result:=Source.ChangeStep<>fSourceChangeStep;
// Modified has a test for Source.ChangeStep<>fSourceChangeStep.
Result:=IsVirtual or Modified or IsChangedOnDisk(CheckLFM and FilenameIsPascalSource(Filename));
//DebugLn(['TUnitInfo.NeedsSaveToDisk ',Filename,' Result=',Result,' Modified=',Modified]);
end;
procedure TUnitInfo.UpdateUsageCount(Min, IfBelowThis, IncIfBelow: extended);