From 6dde68da3aee9d2dbcfd8930533a5964b269a93a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 21 May 2006 16:04:14 +0000
Subject: [PATCH]   * fix IE when subscripting records part of another record
 regvar

git-svn-id: trunk@3613 -
---
 compiler/nmem.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/nmem.pas b/compiler/nmem.pas
index 228c92a464..a6d2228fb4 100644
--- a/compiler/nmem.pas
+++ b/compiler/nmem.pas
@@ -614,13 +614,15 @@ implementation
          else
            begin
              case left.expectloc of
-               LOC_REGISTER:
+               LOC_REGISTER,
+               LOC_SUBSETREG:
                  // can happen for function results on win32 and darwin/x86
                  if (left.resulttype.def.size > sizeof(aint)) then
                    expectloc:=LOC_REFERENCE
                  else
                    expectloc:=LOC_SUBSETREG;
-               LOC_CREGISTER:
+               LOC_CREGISTER,
+               LOC_CSUBSETREG:
                  expectloc:=LOC_CSUBSETREG;
                LOC_REFERENCE,
                LOC_CREFERENCE: