Explorar o código

* Interfaces not always assigned

Michaël Van Canneyt hai 3 meses
pai
achega
63b57ea842
Modificáronse 1 ficheiros con 2 adicións e 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;