Bladeren bron

* Interfaces not always assigned

Michaël Van Canneyt 4 maanden geleden
bovenliggende
commit
63b57ea842
1 gewijzigde bestanden met toevoegingen van 2 en 1 verwijderingen
  1. 2 1
      utils/fpdoc/dwlinear.pp

+ 2 - 1
utils/fpdoc/dwlinear.pp

@@ -428,7 +428,8 @@ begin
   WriteClassInheritanceOverView(ClassDecl);
 
   // Write Interfaces Overview;
-  WriteClassInterfacesOverView(ClassDecl);
+  if assigned(ClassDecl.Interfaces) then
+    WriteClassInterfacesOverView(ClassDecl);
   // Write method overview
   WriteMethodOverView(ClassDecl,ClassDecl.Members);
   // Write Property Overview;