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

CodeTools: Fix SIGSEGV introduced in r54438 #b823ce3277, part 2. Issue #31561.

Browse Source 
git-svn-id: trunk@54447 -
This commit is contained in:
juha 2017-03-18 18:13:10 +00:00
parent 1ca4c2796a
commit 54f80e0923
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/linkscanner.pas
View File

@ -4000,7 +4000,9 @@ var
UnitSet:=CodeToolBoss.GetUnitSetForDirectory(''); UnitSet:=CodeToolBoss.GetUnitSetForDirectory('');
if UnitSet<>nil then begin if UnitSet<>nil then begin
CfgCache:=UnitSet.GetConfigCache(false); CfgCache:=UnitSet.GetConfigCache(false);
if Assigned(CfgCache) and CfgCache.Includes.GetString(AFilename,ExpFilename) then begin if Assigned(CfgCache) and Assigned(CfgCache.Includes)
and CfgCache.Includes.GetString(AFilename,ExpFilename) then
begin
NewCode:=LoadSourceCaseLoUp(ExpFilename); NewCode:=LoadSourceCaseLoUp(ExpFilename);
Result:=(NewCode<>nil); Result:=(NewCode<>nil);
if Result then exit; if Result then exit;