浏览代码

compiler: fix nested class types

git-svn-id: trunk@14616 -
paul 15 年之前
父节点
当前提交
55702ed4c0
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/pexpr.pas

+ 2 - 1
compiler/pexpr.pas

@@ -1252,7 +1252,8 @@ implementation
                    begin
                    begin
                      p1.free;
                      p1.free;
                      p1:=ctypenode.create(ttypesym(sym).typedef);
                      p1:=ctypenode.create(ttypesym(sym).typedef);
-                     if not(block_type in [bt_type,bt_const_type,bt_var_type]) then
+                     if (is_class(ttypesym(sym).typedef) or is_objcclass(ttypesym(sym).typedef)) and
+                        not(block_type in [bt_type,bt_const_type,bt_var_type]) then
                        p1:=cloadvmtaddrnode.create(p1);
                        p1:=cloadvmtaddrnode.create(p1);
                    end;
                    end;
                  constsym:
                  constsym: