1 /*
2 * Copyright (c) 2023 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 "intrinsics.h"
17 #include "plugins/ets/runtime/types/ets_string.h"
18 #include "plugins/ets/runtime/ets_exceptions.h"
19 #include "plugins/ets/runtime/ets_language_context.h"
20
21 namespace panda::ets::intrinsics {
22
23 template <typename T>
StdCoreCopyTo(coretypes::Array * src,coretypes::Array * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)24 static EtsVoid *StdCoreCopyTo(coretypes::Array *src, coretypes::Array *dst, int32_t dstStart, int32_t srcStart,
25 int32_t srcEnd)
26 {
27 auto srcLen = static_cast<int32_t>(src->GetLength());
28 auto dstLen = static_cast<int32_t>(dst->GetLength());
29 const char *errmsg = nullptr;
30
31 if (srcStart < 0 || srcStart > srcEnd || srcEnd > srcLen) {
32 errmsg = "copyTo: src bounds verification failed";
33 } else if (dstStart < 0 || dstStart > dstLen) {
34 errmsg = "copyTo: dst bounds verification failed";
35 } else if ((srcEnd - srcStart) > (dstLen - dstStart)) {
36 errmsg = "copyTo: Destination array doesn't have enough space";
37 }
38
39 if (errmsg == nullptr) {
40 auto srcAddr = ToVoidPtr(ToUintPtr(src->GetData()) + srcStart * sizeof(T));
41 auto dstAddr = ToVoidPtr(ToUintPtr(dst->GetData()) + dstStart * sizeof(T));
42 auto size = static_cast<size_t>((srcEnd - srcStart) * sizeof(T));
43 if (size != 0) { // cannot be less than zero at this point
44 if (memmove_s(dstAddr, size, srcAddr, size) != EOK) {
45 errmsg = "copyTo: copying data failed";
46 }
47 }
48 }
49
50 if (errmsg != nullptr) {
51 auto *coroutine = EtsCoroutine::GetCurrent();
52 ThrowEtsException(coroutine, panda_file_items::class_descriptors::ARRAY_INDEX_OUT_OF_BOUNDS_EXCEPTION, errmsg);
53 }
54
55 return static_cast<EtsVoid *>(nullptr);
56 }
57
StdCoreBoolCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)58 extern "C" EtsVoid *StdCoreBoolCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
59 int32_t srcEnd)
60 {
61 return StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
62 }
63
StdCoreCharCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)64 extern "C" EtsVoid *StdCoreCharCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
65 int32_t srcEnd)
66 {
67 return StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
68 }
69
StdCoreShortCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)70 extern "C" EtsVoid *StdCoreShortCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
71 int32_t srcEnd)
72 {
73 return StdCoreCopyTo<uint16_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
74 }
75
StdCoreByteCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)76 extern "C" EtsVoid *StdCoreByteCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
77 int32_t srcEnd)
78 {
79 return StdCoreCopyTo<uint8_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
80 }
81
StdCoreIntCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)82 extern "C" EtsVoid *StdCoreIntCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
83 int32_t srcEnd)
84 {
85 return StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
86 }
87
StdCoreLongCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)88 extern "C" EtsVoid *StdCoreLongCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
89 int32_t srcEnd)
90 {
91 return StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
92 }
93
StdCoreFloatCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)94 extern "C" EtsVoid *StdCoreFloatCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
95 int32_t srcEnd)
96 {
97 return StdCoreCopyTo<uint32_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
98 }
99
StdCoreDoubleCopyTo(EtsCharArray * src,EtsCharArray * dst,int32_t dstStart,int32_t srcStart,int32_t srcEnd)100 extern "C" EtsVoid *StdCoreDoubleCopyTo(EtsCharArray *src, EtsCharArray *dst, int32_t dstStart, int32_t srcStart,
101 int32_t srcEnd)
102 {
103 return StdCoreCopyTo<uint64_t>(src->GetCoreType(), dst->GetCoreType(), dstStart, srcStart, srcEnd);
104 }
105
106 } // namespace panda::ets::intrinsics
107