* also implement TRttiType's GetBaseType in TRttiInterfaceType

git-svn-id: trunk@37705 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -278,6 +278,7 @@ type
 
   TRttiInterfaceType = class(TRttiType)
   protected
+    function GetBaseType: TRttiType; override;
     function GetIntfBaseType: TRttiInterfaceType; virtual; abstract;
     function GetDeclaringUnitName: String; virtual; abstract;
     function GetGUID: TGUID; virtual; abstract;
@@ -1751,6 +1752,11 @@ end;
 
 { TRttiInterfaceType }
 
+function TRttiInterfaceType.GetBaseType: TRttiType;
+begin
+  Result := GetIntfBaseType;
+end;
+
 function TRttiInterfaceType.GetGUIDStr: String;
 begin
   Result := GUIDToString(GUID);