Forráskód Böngészése

* don't apply typesize of record if a field size is applied

git-svn-id: trunk@4971 -
peter 19 éve
szülő
commit
076fb20774
1 módosított fájl, 2 hozzáadás és 0 törlés
  1. 2 0
      compiler/x86/rax86int.pas

+ 2 - 0
compiler/x86/rax86int.pas

@@ -1534,6 +1534,8 @@ Unit Rax86int;
                 begin
                 begin
                   BuildRecordOffsetSize(expr,toffset,tsize);
                   BuildRecordOffsetSize(expr,toffset,tsize);
                   oper.SetSize(tsize,true);
                   oper.SetSize(tsize,true);
+                  { we have used the size of a field. Reset the typesize of the record }
+                  oper.typesize:=0;
                   case oper.opr.typ of
                   case oper.opr.typ of
                     OPR_LOCAL :
                     OPR_LOCAL :
                       begin
                       begin