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

* also escape the field names of records when used as source in fpcDeepCopy()

Browse Source 
git-svn-id: branches/jvmbackend@18669 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:22:59 +00:00
parent 7286e3b645
commit 3a983d8ea5
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/symcreat.pas
View File

@ -367,7 +367,7 @@ implementation
if (sym.typ=fieldvarsym) then if (sym.typ=fieldvarsym) then
begin begin
fsym:=tfieldvarsym(sym); fsym:=tfieldvarsym(sym);
str:=str+'result.&'+fsym.realname+':='+fsym.realname+';'; str:=str+'result.&'+fsym.realname+':=&'+fsym.realname+';';
end; end;
end; end;
str:=str+'end;'; str:=str+'end;';