From 90dd4d79e000a7c78998ecf3906febd24cb46357 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 10 Nov 2016 10:58:05 +0100 Subject: [PATCH] upstream fix, result of THashMap.getData may be undefined --- src/ce_libman.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ce_libman.pas b/src/ce_libman.pas index c54bd9bf..78922387 100644 --- a/src/ce_libman.pas +++ b/src/ce_libman.pas @@ -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;