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

* support default properties for Java classes

Browse Source 
git-svn-id: branches/jvmbackend@18513 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:06:09 +00:00
parent 80a63197e3
commit 50dd6489c4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -1943,7 +1943,9 @@ implementation
_LECKKLAMMER:
begin
if is_class_or_interface_or_object(p1.resultdef) or
is_dispinterface(p1.resultdef) or is_record(p1.resultdef) then
is_dispinterface(p1.resultdef) or
is_record(p1.resultdef) or
is_javaclass(p1.resultdef) then
begin
{ default property }
protsym:=search_default_property(tabstractrecorddef(p1.resultdef));