Explorar el Código

* Interfaces not always assigned

Michaël Van Canneyt hace 4 meses
padre
commit
63b57ea842
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  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;