1 /*
2 * Copyright (c) 2023-2025 Huawei Device Co., Ltd.
3 * Licensed under the Apache License, Version 2.0 (the "License");
4 * you may not use this file except in compliance with the License.
5 * You may obtain a copy of the License at
6 *
7 * http://www.apache.org/licenses/LICENSE-2.0
8 *
9 * Unless required by applicable law or agreed to in writing, software
10 * distributed under the License is distributed on an "AS IS" BASIS,
11 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 * See the License for the specific language governing permissions and
13 * limitations under the License.
14 */
15
16 #include "ets_class_root.h"
17 #include "intrinsics.h"
18 #include "plugins/ets/runtime/types/ets_string.h"
19 #include "plugins/ets/runtime/ets_exceptions.h"
20 #include "plugins/ets/runtime/ets_language_context.h"
21 #include "types/ets_array.h"
22
23 namespace ark::ets::intrinsics {
24
25 template <typename T>
StdCoreCopyTo(coretypes::Array * src,coretypes::Array * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)26 static void StdCoreCopyTo(coretypes::Array *src, coretypes::Array *dst, int32_t dstStart, int32_t srcStart,
27 int32_t srcEnd)
28 {
29 auto srcLen = static_cast<int32_t>(src->GetLength());
30 auto dstLen = static_cast<int32_t>(dst->GetLength());
31 const char *errmsg = nullptr;
32
33 if (srcStart < 0 || srcStart > srcEnd || srcEnd > srcLen) {
34 errmsg = "copyTo: src bounds verification failed";
35 } else if (dstStart < 0 || dstStart > dstLen) {
36 errmsg = "copyTo: dst bounds verification failed";
37 } else if ((srcEnd - srcStart) > (dstLen - dstStart)) {
38 errmsg = "copyTo: Destination array doesn't have enough space";
39 }
40
41 if (errmsg == nullptr) {
42 auto srcAddr = ToVoidPtr(ToUintPtr(src->GetData()) + srcStart * sizeof(T));
43 auto dstAddr = ToVoidPtr(ToUintPtr(dst->GetData()) + dstStart * sizeof(T));
44 auto size = static_cast<size_t>((srcEnd - srcStart) * sizeof(T));
45 if (size != 0) { // cannot be less than zero at this point
46 if (memmove_s(dstAddr, size, srcAddr, size) != EOK) {
47 errmsg = "copyTo: copying data failed";
48 }
49 }
50 }
51
52 if (errmsg != nullptr) {
53 auto *coroutine = EtsCoroutine::GetCurrent();
54 ThrowEtsException(coroutine, panda_file_items::class_descriptors::ARRAY_INDEX_OUT_OF_BOUNDS_ERROR, errmsg);
55 }
56 }
57
StdCoreAllocGenericArray(ets_int len,EtsObject * sample)58 extern "C" ObjectHeader *StdCoreAllocGenericArray(ets_int len, EtsObject *sample)
59 {
60 EtsClass *klass;
61 if (sample != nullptr) {
62 klass = sample->GetClass()->GetComponentType();
63 } else {
64 klass = PandaEtsVM::GetCurrent()->GetClassLinker()->GetClassRoot(EtsClassRoot::OBJECT);
65 }
66 auto *array = EtsObjectArray::Create(klass, len);
67 ASSERT(array != nullptr);
68 return array->GetCoreType();
69 }
70
StdCoreBoolCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)71 extern "C" void StdCoreBoolCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
72 int32_t srcEnd)
73 {
74 StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
75 }
76
StdCoreCharCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)77 extern "C" void StdCoreCharCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
78 int32_t srcEnd)
79 {
80 StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
81 }
82
StdCoreShortCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)83 extern "C" void StdCoreShortCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
84 int32_t srcEnd)
85 {
86 StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
87 }
88
StdCoreByteCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)89 extern "C" void StdCoreByteCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
90 int32_t srcEnd)
91 {
92 StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
93 }
94
StdCoreIntCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)95 extern "C" void StdCoreIntCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
96 int32_t srcEnd)
97 {
98 StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
99 }
100
StdCoreLongCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)101 extern "C" void StdCoreLongCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
102 int32_t srcEnd)
103 {
104 StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
105 }
106
StdCoreFloatCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)107 extern "C" void StdCoreFloatCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
108 int32_t srcEnd)
109 {
110 StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
111 }
112
StdCoreDoubleCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)113 extern "C" void StdCoreDoubleCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
114 int32_t srcEnd)
115 {
116 StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
117 }
118
119 } // namespace ark::ets::intrinsics
120