Browse Source

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

git-svn-id: trunk@5669 -
yury 18 years ago
parent
commit
11daaa31f2
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/arm/cpupara.pas

+ 1 - 1
compiler/arm/cpupara.pas

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