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

* correctly set the expectloc for int_2_int type conversions of bitpacked

Browse Source 
arrays (and some other, related constructs) (mantis #15789)

git-svn-id: trunk@14927 -
This commit is contained in:
Jonas Maebe 2010-02-19 17:12:47 +00:00
parent 071bca7d93
commit cda17ad02a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncnv.pas
View File

@ -2283,7 +2283,8 @@ implementation
if not is_void(left.resultdef) then
begin
if (left.expectloc<>LOC_REGISTER) and
(resultdef.size>left.resultdef.size) then
((resultdef.size>left.resultdef.size) or
(left.expectloc in [LOC_SUBSETREF,LOC_CSUBSETREF,LOC_SUBSETREG,LOC_CSUBSETREG])) then
expectloc:=LOC_REGISTER
else
if (left.expectloc=LOC_CREGISTER) and