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 15template _LIBCPP_FUNC_VIS valarray<size_t>::valarray(size_t); 16template _LIBCPP_FUNC_VIS valarray<size_t>::~valarray(); 17#endif 18 19template void valarray<size_t>::resize(size_t, size_t); 20 21void 22gslice::__init(size_t __start) 23{ 24 valarray<size_t> __indices(__size_.size()); 25 size_t __k = __size_.size() != 0; 26 for (size_t __i = 0; __i < __size_.size(); ++__i) 27 __k *= __size_[__i]; 28 __1d_.resize(__k); 29 if (__1d_.size()) 30 { 31 __k = 0; 32 __1d_[__k] = __start; 33 while (true) 34 { 35 size_t __i = __indices.size() - 1; 36 while (true) 37 { 38 if (++__indices[__i] < __size_[__i]) 39 { 40 ++__k; 41 __1d_[__k] = __1d_[__k-1] + __stride_[__i]; 42 for (size_t __j = __i + 1; __j != __indices.size(); ++__j) 43 __1d_[__k] -= __stride_[__j] * (__size_[__j] - 1); 44 break; 45 } 46 else 47 { 48 if (__i == 0) 49 return; 50 __indices[__i--] = 0; 51 } 52 } 53 } 54 } 55} 56 57_LIBCPP_END_NAMESPACE_STD 58