ソースを参照

* dummy support for copying arrays of variant/set

git-svn-id: branches/jvmbackend@18505 -
Jonas Maebe 14 年 前
コミット
f20e347c7e
1 ファイル変更4 行追加0 行削除
  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';