paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@6213 -
This commit is contained in:
chrivers 2007-01-26 22:11:23 +00:00
parent 5e94d3f550
commit 83f5a5747c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

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