Converter: Fix a crash when converting a single unit. Issue #32785, patch from Timl.

git-svn-id: trunk@56660 -
This commit is contained in:
juha 2017-12-07 14:58:41 +00:00
parent a3649ec49b
commit e93ea1ced9

View File

@ -464,7 +464,8 @@ var
i, x: Integer;
begin
for i:=fMissingUnits.Count-1 downto 0 do begin
if ACommentedUnits.Find(fMissingUnits[i], x) then begin
if Assigned(ACommentedUnits) and ACommentedUnits.Find(fMissingUnits[i], x) then
begin
fUnitsToComment.Add(fMissingUnits[i]);
fMissingUnits.Delete(i);
end;