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

* report correct location of classes that miss method implementations for

Browse Source 
interfaces/protocols they implement/conform to

git-svn-id: trunk@15410 -
This commit is contained in:
Jonas Maebe 2010-06-11 19:27:22 +00:00
parent 73bfdcf8b8
commit 6e12de117b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nobj.pas
View File

@ -500,7 +500,7 @@ implementation
else
if (ImplIntf.IType=etStandard) and
not(po_optional in tprocdef(def).procoptions) then
Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
MessagePos1(_Class.typesym.fileinfo,sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
end;
end;
end;