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