From 83f5a5747c63bb34ecf4b9fd3083a8e85b58a1ee Mon Sep 17 00:00:00 2001
From: chrivers <chrivers@idefix.freepascal.org>
Date: Fri, 26 Jan 2007 22:11:23 +0000
Subject: [PATCH]  * Renamed "fieldoffset" to "iioffset" to avoid confusion
 with fieldvarsym.fieldoffset

git-svn-id: trunk@6213 -
---
 compiler/pdecvar.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index c1184d6208..8e284d2fe4 100644
--- a/compiler/pdecvar.pas
+++ b/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');