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

* dummy support for copying arrays of variant/set

Browse Source 
git-svn-id: branches/jvmbackend@18505 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:05:28 +00:00
parent 7a5d334951
commit f20e347c7e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/hlcgcpu.pas
View File

@ -1111,8 +1111,12 @@ implementation
setdef,
variantdef:
begin
{$ifndef nounsupported}
procname:='FPC_COPY_SHALLOW_ARRAY';
{$else}
{ todo: make a deep copy via clone... }
internalerror(2011020505);
{$endif}
end;
else
procname:='FPC_COPY_SHALLOW_ARRAY';