2
0
Эх сурвалжийг харах

* FPCJDynArrTypeEnumSet/FPCJDynArrTypeBitSet support in fpc_dynarray_copy()

git-svn-id: branches/jvmbackend@18683 -
Jonas Maebe 14 жил өмнө
parent
commit
4e0ffdebfd

+ 4 - 0
rtl/java/system.pp

@@ -588,6 +588,10 @@ function fpc_dynarray_copy(src: JLObject; start, len: longint; ndim: longint; el
         case eletype of
         case eletype of
           FPCJDynArrTypeRecord:
           FPCJDynArrTypeRecord:
             fpc_copy_jrecord_array(TJRecordArray(src),TJRecordArray(result),start,len);
             fpc_copy_jrecord_array(TJRecordArray(src),TJRecordArray(result),start,len);
+          FPCJDynArrTypeEnumSet:
+            fpc_copy_jenumset_array(TJEnumSetArray(src),TJEnumSetArray(result),start,len);
+          FPCJDynArrTypeBitSet:
+            fpc_copy_jbitset_array(TJBitSetArray(src),TJBitSetArray(result),start,len);
           FPCJDynArrTypeShortstring:
           FPCJDynArrTypeShortstring:
             fpc_copy_jshortstring_array(TShortstringArray(src),TShortstringArray(result),start,len);
             fpc_copy_jshortstring_array(TShortstringArray(src),TShortstringArray(result),start,len);
           else
           else