Browse Source

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

git-svn-id: trunk@4971 -
peter 19 years ago
parent
commit
076fb20774
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/x86/rax86int.pas

+ 2 - 0
compiler/x86/rax86int.pas

@@ -1534,6 +1534,8 @@ Unit Rax86int;
                 begin
                   BuildRecordOffsetSize(expr,toffset,tsize);
                   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
                     OPR_LOCAL :
                       begin