From f20e347c7e75b152734b69fab48540a335d457b5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:05:28 +0000
Subject: [PATCH]   * dummy support for copying arrays of variant/set

git-svn-id: branches/jvmbackend@18505 -
---
 compiler/jvm/hlcgcpu.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/jvm/hlcgcpu.pas b/compiler/jvm/hlcgcpu.pas
index a14602e746..4a057d2bc8 100644
--- a/compiler/jvm/hlcgcpu.pas
+++ b/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';