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

* brackets around and/or combination

Browse Source 
git-svn-id: trunk@25386 -
This commit is contained in:
Jonas Maebe 2013-08-29 22:21:19 +00:00
parent 6013606a97
commit 10bb07a665
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncnv.pas
View File

@ -3587,11 +3587,11 @@ implementation
are smaller than an entire register } are smaller than an entire register }
if result and if result and
{ don't try to check the size of an open array } { don't try to check the size of an open array }
is_open_array(resultdef) or (is_open_array(resultdef) or
(resultdef.size<left.resultdef.size) or (resultdef.size<left.resultdef.size) or
((resultdef.size=left.resultdef.size) and ((resultdef.size=left.resultdef.size) and
(left.resultdef.size<sizeof(aint)) and (left.resultdef.size<sizeof(aint)) and
(is_signed(resultdef) xor is_signed(left.resultdef))) then (is_signed(resultdef) xor is_signed(left.resultdef)))) then
make_not_regable(left,[ra_addr_regable]); make_not_regable(left,[ra_addr_regable]);
end; end;