1 //===----------------------------------------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include <valarray> 10 11 _LIBCPP_BEGIN_NAMESPACE_STD 12 13 // These two symbols are part of the v1 ABI but not part of the >=v2 ABI. 14 #if _LIBCPP_ABI_VERSION == 1 15 template _LIBCPP_EXPORTED_FROM_ABI valarray<size_t>::valarray(size_t); 16 template _LIBCPP_EXPORTED_FROM_ABI valarray<size_t>::~valarray(); 17 #endif 18 19 template void valarray<size_t>::resize(size_t, size_t); 20 21 void gslice::__init(size_t __start) { 22 valarray<size_t> __indices(__size_.size()); 23 size_t __k = __size_.size() != 0; 24 for (size_t __i = 0; __i < __size_.size(); ++__i) 25 __k *= __size_[__i]; 26 __1d_.resize(__k); 27 if (__1d_.size()) { 28 __k = 0; 29 __1d_[__k] = __start; 30 while (true) { 31 size_t __i = __indices.size() - 1; 32 while (true) { 33 if (++__indices[__i] < __size_[__i]) { 34 ++__k; 35 __1d_[__k] = __1d_[__k - 1] + __stride_[__i]; 36 for (size_t __j = __i + 1; __j != __indices.size(); ++__j) 37 __1d_[__k] -= __stride_[__j] * (__size_[__j] - 1); 38 break; 39 } else { 40 if (__i == 0) 41 return; 42 __indices[__i--] = 0; 43 } 44 } 45 } 46 } 47 } 48 49 _LIBCPP_END_NAMESPACE_STD 50