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

git-svn-id: trunk@5669 -
This commit is contained in:
yury 2006-12-21 22:02:29 +00:00
parent 96b379ab0b
commit 11daaa31f2

View File

@ -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