Explorar o código

* Make sure fpdoc can parse through classes

git-svn-id: trunk@10771 -
michael %!s(int64=17) %!d(string=hai) anos
pai
achega
2109a8b611
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      rtl/objpas/classes/classesh.inc

+ 3 - 0
rtl/objpas/classes/classesh.inc

@@ -1535,7 +1535,10 @@ type
     //!!!!   Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): Integer; stdcall;
   public
     //!! Moved temporary
+    // fpdoc doesn't handle this yet :(
+{$ifndef fpdocsystem}
     function IInterfaceComponentReference.GetComponent=iicrgetcomponent;
+{$endif}    
     procedure WriteState(Writer: TWriter); virtual;
     constructor Create(AOwner: TComponent); virtual;
     procedure BeforeDestruction; override;