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

LazBuild: Prevent a crash in LazBuild. Project.UnitResourceFileformat=Nil. Issue #37984.

Browse Source 
git-svn-id: trunk@64074 -
This commit is contained in:
juha 2020-10-25 10:52:27 +00:00
parent 419384ae30
commit 27805e56a1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/project.pp
View File

@ -2161,9 +2161,10 @@ procedure TUnitInfo.SetTimeStamps;
var var
ResFilename: String; ResFilename: String;
begin begin
fSourceChangeStep:=FSource.ChangeStep; // Indicates any change is source fSourceChangeStep:=FSource.ChangeStep; // Indicates any change is source
// Associated LFM resource file timestamp // Associated LFM resource file timestamp
//if Component=nil then exit; <- Component is here always nil for some reason. //if Component=nil then exit; <- Component is here always nil for some reason.
if UnitResourceFileformat=nil then exit; // Happens with LazBuild
ResFilename:=UnitResourceFileformat.GetUnitResourceFilename(Filename,true); ResFilename:=UnitResourceFileformat.GetUnitResourceFilename(Filename,true);
if FileExistsCached(ResFilename) then if FileExistsCached(ResFilename) then
fComponentLFMLoadDate:=FileAgeCached(ResFilename); fComponentLFMLoadDate:=FileAgeCached(ResFilename);