2
0
Эх сурвалжийг харах

* support default properties for Java classes

git-svn-id: branches/jvmbackend@18513 -
Jonas Maebe 14 жил өмнө
parent
commit
50dd6489c4
1 өөрчлөгдсөн 3 нэмэгдсэн , 1 устгасан
  1. 3 1
      compiler/pexpr.pas

+ 3 - 1
compiler/pexpr.pas

@@ -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));