Browse Source

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

git-svn-id: trunk@6213 -
chrivers 18 years ago
parent
commit
83f5a5747c
1 changed files with 1 additions and 1 deletions
  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');