浏览代码

* Renamed "fieldoffset" to "iioffset" to avoid confusion with fieldvarsym.fieldoffset

git-svn-id: trunk@6213 -
chrivers 18 年之前
父节点
当前提交
83f5a5747c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/pdecvar.pas

+ 1 - 1
compiler/pdecvar.pas

@@ -652,7 +652,7 @@ implementation
                if found then
                begin
                  ImplIntf.itype := etFieldValue;
-                 ImplIntf.fieldoffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
+                 ImplIntf.iioffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
                end
                else
                  Comment(V_Error, 'Implements-property used on unimplemented interface');