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

CodeTools: Fix SIGSEGV introduced in r54438 #b823ce3277 (mantis #31561)

Browse Source 
git-svn-id: trunk@54446 -
This commit is contained in:
hnb 2017-03-18 15:25:47 +00:00
parent 5b2322946b
commit 1ca4c2796a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/linkscanner.pas
View File

@ -4000,7 +4000,7 @@ 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 CfgCache.Includes.GetString(AFilename,ExpFilename) then begin if Assigned(CfgCache) 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;