瀏覽代碼

* 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,
         setdef,
         variantdef:
         variantdef:
           begin
           begin
+{$ifndef nounsupported}
+            procname:='FPC_COPY_SHALLOW_ARRAY';
+{$else}
             { todo: make a deep copy via clone... }
             { todo: make a deep copy via clone... }
             internalerror(2011020505);
             internalerror(2011020505);
+{$endif}
           end;
           end;
         else
         else
           procname:='FPC_COPY_SHALLOW_ARRAY';
           procname:='FPC_COPY_SHALLOW_ARRAY';