Browse Source

Don't try to load the RTTI for reference counted classes.

defutil.pas, is_rtti_manage_type:
  * return False for classes even if tdef.needs_inittable returns True for reference counted ones

git-svn-id: branches/svenbarth/arc@28867 -
svenbarth 10 years ago
parent
commit
80faa51a90
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/defutil.pas

+ 1 - 0
compiler/defutil.pas

@@ -640,6 +640,7 @@ implementation
       begin
       begin
         result:=def.needs_inittable and not (
         result:=def.needs_inittable and not (
           is_interfacecom_or_dispinterface(def) or
           is_interfacecom_or_dispinterface(def) or
+          is_class(def) or
           (def.typ=variantdef) or
           (def.typ=variantdef) or
           (
           (
             (def.typ=stringdef) and
             (def.typ=stringdef) and