paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@38891 -
This commit is contained in:
Mattias Gaertner 2018-05-02 05:51:36 +00:00
parent 9c724c430a
commit abbba47708
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pasresolver.pp
View File

@ -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,

2
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -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;',