فهرست منبع

* allow classrefdef declarations for java classes (not yet properly
handled though)

git-svn-id: branches/jvmbackend@18494 -

Jonas Maebe 14 سال پیش
والد
کامیت
fab08ca975
1فایلهای تغییر یافته به همراه4 افزوده شده و 2 حذف شده
  1. 4 2
      compiler/ptype.pas

+ 4 - 2
compiler/ptype.pas

@@ -145,7 +145,8 @@ implementation
                         { we need a class type for classrefdef }
                         if (def.typ=classrefdef) and
                            not(is_class(ttypesym(srsym).typedef)) and
-                           not(is_objcclass(ttypesym(srsym).typedef)) then
+                           not(is_objcclass(ttypesym(srsym).typedef)) and
+                           not(is_javaclass(ttypesym(srsym).typedef)) then
                           MessagePos1(def.typesym.fileinfo,type_e_class_type_expected,ttypesym(srsym).typedef.typename);
                       end
                      else
@@ -1633,7 +1634,8 @@ implementation
                     consume(_OF);
                     single_type(hdef,SingleTypeOptionsInTypeBlock[block_type=bt_type]);
                     if is_class(hdef) or
-                       is_objcclass(hdef) then
+                       is_objcclass(hdef) or
+                       is_javaclass(hdef) then
                       def:=tclassrefdef.create(hdef)
                     else
                       if hdef.typ=forwarddef then