Parcourir la source

* dummy support for copying arrays of variant/set

git-svn-id: branches/jvmbackend@18505 -
Jonas Maebe il y a 14 ans
Parent
commit
f20e347c7e
1 fichiers modifiés avec 4 ajouts et 0 suppressions
  1. 4 0
      compiler/jvm/hlcgcpu.pas

+ 4 - 0
compiler/jvm/hlcgcpu.pas

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