Forráskód Böngészése

* fixed Internal error 200408203 in tbs/tb0258.pp for ARM.

git-svn-id: trunk@5669 -
yury 18 éve
szülő
commit
11daaa31f2
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/arm/cpupara.pas

+ 1 - 1
compiler/arm/cpupara.pas

@@ -164,7 +164,7 @@ unit cpupara;
           variantdef,
           formaldef,
           recorddef:
-            result:=varspez=vs_const;
+            result:=(varspez=vs_const) or (def.size=0);
           arraydef:
             result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
                              is_open_array(def) or