浏览代码

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

git-svn-id: trunk@4971 -
peter 19 年之前
父节点
当前提交
076fb20774
共有 1 个文件被更改,包括 2 次插入0 次删除
  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