paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:00:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix AV

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-04 14:46:05 +02:00
parent 4e28962115
commit 92b51febc6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_basehtml.pp
View File

@ -997,8 +997,9 @@ begin
begin
Result := nil;
AppendText(CreateWarning(Parent), '<NIL>');
end;
if Element.InheritsFrom(TPasUnresolvedTypeRef) then
exit;
end
else if Element.InheritsFrom(TPasUnresolvedTypeRef) then
begin
s := ResolveLinkID(Element.Name);
if Length(s) = 0 then