diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index 21e5fe49b8..d9a6263267 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -1216,6 +1216,7 @@ implementation begin { are we in a class method ? } possible_error:=(srsym.owner.symtabletype=objectsymtable) and + not(is_interface(tdef(srsym.owner.defowner))) and assigned(aktprocsym) and (po_classmethod in aktprocdef.procoptions); do_proc_call(srsym,srsymtable, @@ -2245,7 +2246,10 @@ implementation end. { $Log$ - Revision 1.83 2002-10-02 18:20:52 peter + Revision 1.84 2002-10-02 20:51:22 peter + * don't check interfaces for class methods + + Revision 1.83 2002/10/02 18:20:52 peter * Copy() is now internal syssym that calls compilerprocs Revision 1.82 2002/09/30 07:00:48 florian