* Slightly modified patch from Graeme, Mantis #21357 which adds an assigned.

git-svn-id: trunk@20409 -
This commit is contained in:
marco 2012-02-23 12:15:03 +00:00
parent e1ac091b68
commit e6cdc2b744

View File

@ -893,7 +893,8 @@ begin
Writeln(Format('%s : ',[SDocVersion]));
WriteDescr(TypeDecl, DocNode.Version);
end;
ConvertNotes(TypeDecl,DocNode.Notes);
if Assigned(DocNode) and assigned(DocNode.Notes) then
ConvertNotes(TypeDecl,DocNode.Notes);
DescrEndParagraph;
end;
end;