paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@56660 -
This commit is contained in:
juha 2017-12-07 14:58:41 +00:00
parent a3649ec49b
commit e93ea1ced9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/usedunits.pas
View File

@ -464,7 +464,8 @@ var
i, x: Integer; i, x: Integer;
begin begin
for i:=fMissingUnits.Count-1 downto 0 do 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]); fUnitsToComment.Add(fMissingUnits[i]);
fMissingUnits.Delete(i); fMissingUnits.Delete(i);
end; end;