fcl-passrc: resolver: no hint for abstract methods aclassof.create

git-svn-id: trunk@38891 -

packages/fcl-passrc/src/pasresolver.pp

@@ -13684,10 +13684,8 @@ begin
       TResolvedRefCtxConstructor(Ref.Context).Typ:=TypeEl;
       if (length(ClassScope.AbstractProcs)>0) then
         begin
-        if Proc.IsVirtual and IsClassOf then
-          begin
-          // virtual constructor called with aClass.Create: do not warn
-          end
+        if IsClassOf then
+          // aClass.Create: do not warn
         else
           for i:=0 to length(ClassScope.AbstractProcs)-1 do
             LogMsg(20171227110746,mtNote,nConstructingClassXWithAbstractMethodY,

packages/fcl-passrc/tests/tcresolver.pas

@@ -7828,7 +7828,7 @@ begin
   'type',
   '  TObject = class',
   '    procedure DoIt; virtual; abstract;',
-  '    constructor Create; virtual;',
+  '    constructor Create;',
   '  end;',
   '  TClass = class of TObject;',
   'constructor TObject.Create;',