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

* fix IE when subscripting records part of another record regvar

Browse Source 
git-svn-id: trunk@3613 -
This commit is contained in:
Jonas Maebe 2006-05-21 16:04:14 +00:00
parent 0bb57006e5
commit 6dde68da3a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nmem.pas
View File

@ -614,13 +614,15 @@ implementation
else else
begin begin
case left.expectloc of case left.expectloc of
LOC_REGISTER: LOC_REGISTER,
LOC_SUBSETREG:
// can happen for function results on win32 and darwin/x86 // can happen for function results on win32 and darwin/x86
if (left.resulttype.def.size > sizeof(aint)) then if (left.resulttype.def.size > sizeof(aint)) then
expectloc:=LOC_REFERENCE expectloc:=LOC_REFERENCE
else else
expectloc:=LOC_SUBSETREG; expectloc:=LOC_SUBSETREG;
LOC_CREGISTER: LOC_CREGISTER,
LOC_CSUBSETREG:
expectloc:=LOC_CSUBSETREG; expectloc:=LOC_CSUBSETREG;
LOC_REFERENCE, LOC_REFERENCE,
LOC_CREFERENCE: LOC_CREFERENCE: