mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 07:19:37 +02:00
* fixed Internal error 200408203 in tbs/tb0258.pp for ARM.
git-svn-id: trunk@5669 -
This commit is contained in:
parent
96b379ab0b
commit
11daaa31f2
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user