1 /*
2 * Copyright (c) 2023-2024 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 return EtsObjectArray::Create(klass, len)->GetCoreType();
67 }
68
StdCoreBoolCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)69 extern "C" void StdCoreBoolCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
70 int32_t srcEnd)
71 {
72 StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
73 }
74
StdCoreCharCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)75 extern "C" void StdCoreCharCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
76 int32_t srcEnd)
77 {
78 StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
79 }
80
StdCoreShortCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)81 extern "C" void StdCoreShortCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
82 int32_t srcEnd)
83 {
84 StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
85 }
86
StdCoreByteCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)87 extern "C" void StdCoreByteCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
88 int32_t srcEnd)
89 {
90 StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
91 }
92
StdCoreIntCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)93 extern "C" void StdCoreIntCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
94 int32_t srcEnd)
95 {
96 StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
97 }
98
StdCoreLongCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)99 extern "C" void StdCoreLongCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
100 int32_t srcEnd)
101 {
102 StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
103 }
104
StdCoreFloatCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)105 extern "C" void StdCoreFloatCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
106 int32_t srcEnd)
107 {
108 StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
109 }
110
StdCoreDoubleCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)111 extern "C" void StdCoreDoubleCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
112 int32_t srcEnd)
113 {
114 StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
115 }
116
117 } // namespace ark::ets::intrinsics
118