Explorar o código

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

git-svn-id: trunk@6213 -
chrivers %!s(int64=18) %!d(string=hai) anos
pai
achega
83f5a5747c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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');