upstream fix, result of THashMap.getData may be undefined

This commit is contained in:
Basile Burg 2016-11-10 10:58:05 +01:00
parent 50615accec
commit 90dd4d79e0
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 6 additions and 2 deletions

View File

@ -194,7 +194,9 @@ end;
function TLibraryItem.getModule(const value: string): TModuleInfo;
begin
exit(fModulesByName.GetData(value));
result := nil;
if fModulesByName.contains(value) then
exit(fModulesByName.GetData(value));
end;
function TLibraryItem.addModuleInfo: TModuleInfo;
@ -427,7 +429,9 @@ end;
function TLibraryManager.getLibraryByAlias(const value: string): TLibraryItem;
begin
exit(fItemsByAlias.GetData(value));
result := nil;
if fItemsByAlias.contains(value) then
exit(fItemsByAlias.GetData(value));
end;
function TLibraryManager.getLibraryByImport(const value: string): TLibraryItem;