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

packagetabs: prevent AV

Browse Source 
git-svn-id: trunk@51143 -
This commit is contained in:
ondrej 2016-01-03 12:00:12 +00:00
parent bd5f13d1e9
commit 3fb93ad0bf
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/packagetabs/packagetabs_impl.pas
View File

@ -385,7 +385,10 @@ begin
if not Result then Exit;
FCurProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp;
if LazarusIDE.ActiveProject <> nil then
FCurProjectChangeStamp := LazarusIDE.ActiveProject.ChangeStamp
else
FCurProjectChangeStamp := Low(FCurProjectChangeStamp);
FPackagesChangeStamp := PackageGraphInterface.ChangeStamp;
FLastInternalChangeStamp := FInternalChangeStamp;
end;