Browse Source

* fix IE when subscripting records part of another record regvar

git-svn-id: trunk@3613 -
Jonas Maebe 19 years ago
parent
commit
6dde68da3a
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/nmem.pas

+ 4 - 2
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: