fix #193 - libman, DUB fetch segfault

This commit is contained in:
Basile Burg 2017-10-25 02:05:00 +02:00
parent 4b16fe0128
commit 6c27ffbc95
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 2 additions and 2 deletions

View File

@ -525,7 +525,7 @@ begin
and (TJSONObject(prj.json).Find('targetType').AsString = 'sourceLibrary')
then
begin
if ovw and not List.items.findCaption(nme, row) then
if (ovw and not List.items.findCaption(nme, row)) or not ovw then
row := List.Items.Add;
if row.Data.isNil then
row.Data := LibMan.libraries.Add;
@ -558,7 +558,7 @@ begin
prj.loadFromFile(dfn);
if prj.filename.isNotEmpty and (prj.binaryKind = staticlib) then
begin
if ovw and not List.items.findCaption(nme, row) then
if (ovw and not List.items.findCaption(nme, row)) or not ovw then
row := List.Items.Add;
if row.Data.isNil then
row.Data := LibMan.libraries.Add;