Преглед на файлове

* 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');