Explorar el Código

compiler: fix nested class types

git-svn-id: trunk@14616 -
paul hace 15 años
padre
commit
55702ed4c0
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  1. 2 1
      compiler/pexpr.pas

+ 2 - 1
compiler/pexpr.pas

@@ -1252,7 +1252,8 @@ implementation
                    begin
                      p1.free;
                      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);
                    end;
                  constsym: