Răsfoiți Sursa

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

git-svn-id: branches/jvmbackend@18669 -
Jonas Maebe 14 ani în urmă
părinte
comite
3a983d8ea5
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/symcreat.pas

+ 1 - 1
compiler/symcreat.pas

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