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

* fixed keeping track of the number of abstract methods in external classes

Browse Source 
git-svn-id: branches/jvmbackend@18676 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:23:39 +00:00
parent d6966e545b
commit 586d4f4108
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nobj.pas
View File

@ -319,7 +319,7 @@ implementation
else else
MessagePos1(pd.fileinfo,parser_e_must_use_reintroduce_objc,FullTypeName(tdef(vmtpd.owner.defowner),nil)) MessagePos1(pd.fileinfo,parser_e_must_use_reintroduce_objc,FullTypeName(tdef(vmtpd.owner.defowner),nil))
{ there may be a lot of these in auto-translated { there may be a lot of these in auto-translated
heaeders, so only calculate the fulltypename if headers, so only calculate the fulltypename if
the hint will be shown } the hint will be shown }
else if CheckVerbosity(V_Hint) then else if CheckVerbosity(V_Hint) then
if not is_objccategory(_class) then if not is_objccategory(_class) then
@ -335,6 +335,10 @@ implementation
if is_java_class_or_interface(_class) and if is_java_class_or_interface(_class) and
(pd.procsym.realname<>vmtpd.procsym.realname) then (pd.procsym.realname<>vmtpd.procsym.realname) then
pd.procsym.realname:=vmtpd.procsym.realname; pd.procsym.realname:=vmtpd.procsym.realname;
{ in case we are overriding an abstract method,
decrease the number of abstract methods in this class }
if (po_abstractmethod in vmtpd.procoptions) then
dec(tobjectdef(pd.owner.defowner).abstractcnt);
result:=true; result:=true;
exit; exit;
end; end;