paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:01:43 +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; function TUnitInfo.NeedsSaveToDisk(CheckLFM: boolean): boolean;
begin begin
Result:=IsVirtual or Modified or IsChangedOnDisk(CheckLFM); // Modified has a test for Source.ChangeStep<>fSourceChangeStep.
//DebugLn(['TUnitInfo.NeedsSaveToDisk ',filename,' Result=',Result,' Modified=',Modified]); Result:=IsVirtual or Modified or IsChangedOnDisk(CheckLFM and FilenameIsPascalSource(Filename));
if Result then Exit; //DebugLn(['TUnitInfo.NeedsSaveToDisk ',Filename,' Result=',Result,' Modified=',Modified]);
if Source<>nil then
Result:=Source.ChangeStep<>fSourceChangeStep;
end; end;
procedure TUnitInfo.UpdateUsageCount(Min, IfBelowThis, IncIfBelow: extended); procedure TUnitInfo.UpdateUsageCount(Min, IfBelowThis, IncIfBelow: extended);