paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@5669 -
This commit is contained in:
yury 2006-12-21 22:02:29 +00:00
parent 96b379ab0b
commit 11daaa31f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/cpupara.pas
View File

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