소스 검색

* 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
                if found then
                begin
                begin
                  ImplIntf.itype := etFieldValue;
                  ImplIntf.itype := etFieldValue;
-                 ImplIntf.fieldoffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
+                 ImplIntf.iioffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
                end
                end
                else
                else
                  Comment(V_Error, 'Implements-property used on unimplemented interface');
                  Comment(V_Error, 'Implements-property used on unimplemented interface');