Procházet zdrojové kódy

* pass classes and interfaces by value if const is used, resolves #9674

git-svn-id: trunk@8484 -
florian před 18 roky
rodič
revize
039b513d93
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      compiler/arm/cpupara.pas

+ 2 - 1
compiler/arm/cpupara.pas

@@ -160,7 +160,8 @@ unit cpupara;
             exit;
           end;
         case def.typ of
-          objectdef,
+          objectdef:
+            result:=is_object(def) and ((varspez=vs_const) or (def.size=0));
           recorddef:
             result:=(varspez=vs_const) or (def.size=0);
           variantdef,