paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 15:38:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused local type in internal jvm record clone implementation

Browse Source 
git-svn-id: trunk@23526 -
This commit is contained in:
Jonas Maebe 2013-01-26 21:28:26 +00:00
parent dc7760bda0
commit fffa2e163a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symcreat.pas
View File

@ -386,8 +386,7 @@ implementation
we simply declare a temporary instance on the stack, which will be we simply declare a temporary instance on the stack, which will be
allocated/initialized by the temp generator. We return its address as allocated/initialized by the temp generator. We return its address as
the result of the clone routine, so it remains live. } the result of the clone routine, so it remains live. }
str:='type _fpc_ptrt = ^'+struct.typesym.realname+ str:='var __fpc_newcopy:'+ struct.typesym.realname+'; begin clone:=JLObject(@__fpc_newcopy);';
'; var __fpc_newcopy:'+ struct.typesym.realname+'; begin clone:=JLObject(@__fpc_newcopy);';
{ copy all field contents } { copy all field contents }
for i:=0 to struct.symtable.symlist.count-1 do for i:=0 to struct.symtable.symlist.count-1 do
begin begin