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

+ support "reintroduce" for Java classes. Although in most cases this won't

Browse Source 
work because you cannot start new inheritance trees, it can work under some
    circumstances if the parameters are not exact. In case there is a problem,
    this will be detected later by TVMTBuilder.is_new_vmt_entry().

git-svn-id: branches/jvmbackend@18711 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:26:46 +00:00
parent 1d0388d40a
commit ddf6591f7f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecsub.pas
View File

@ -1575,7 +1575,8 @@ begin
end
else
if not(is_class_or_interface_or_object(tprocdef(pd).struct)) and
not(is_objccategory(tprocdef(pd).struct)) then
not(is_objccategory(tprocdef(pd).struct)) and
not(is_javaclass(tprocdef(pd).struct)) then
Message(parser_e_no_object_reintroduce);
end;
@ -2142,7 +2143,7 @@ const
mutexclpo : [po_external]
),(
idtok:_REINTRODUCE;
pd_flags : [pd_interface,pd_object,pd_notobjintf,pd_objcclass,pd_notrecord];
pd_flags : [pd_interface,pd_object,pd_notobjintf,pd_objcclass,pd_notrecord,pd_javaclass];
handler : @pd_reintroduce;
pocall : pocall_none;
pooption : [po_reintroduce];