From 3a983d8ea5d1d7aba8c838dc2dca7e72bfe7c845 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:22:59 +0000
Subject: [PATCH]   * also escape the field names of records when used as
 source in fpcDeepCopy()

git-svn-id: branches/jvmbackend@18669 -
---
 compiler/symcreat.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/symcreat.pas b/compiler/symcreat.pas
index a6046efd37..b0ef0876e1 100644
--- a/compiler/symcreat.pas
+++ b/compiler/symcreat.pas
@@ -367,7 +367,7 @@ implementation
           if (sym.typ=fieldvarsym) then
             begin
               fsym:=tfieldvarsym(sym);
-              str:=str+'result.&'+fsym.realname+':='+fsym.realname+';';
+              str:=str+'result.&'+fsym.realname+':=&'+fsym.realname+';';
             end;
         end;
       str:=str+'end;';