|
@@ -480,6 +480,9 @@ implementation
|
|
|
begin
|
|
|
if tsym(p).typ = procsym then
|
|
|
begin
|
|
|
+ if (sp_generic_dummy in tsym(p).symoptions) and
|
|
|
+ (tprocsym(p).procdeflist.count=0) then
|
|
|
+ exit;
|
|
|
pd :=tprocdef(tprocsym(p).ProcdefList[0]);
|
|
|
if (po_virtualmethod in pd.procoptions) and
|
|
|
not is_objectpascal_helper(pd.struct) then
|