1*4684ddb6SLionel Sambuc //===------------------------ valarray.cpp --------------------------------===// 2*4684ddb6SLionel Sambuc // 3*4684ddb6SLionel Sambuc // The LLVM Compiler Infrastructure 4*4684ddb6SLionel Sambuc // 5*4684ddb6SLionel Sambuc // This file is dual licensed under the MIT and the University of Illinois Open 6*4684ddb6SLionel Sambuc // Source Licenses. See LICENSE.TXT for details. 7*4684ddb6SLionel Sambuc // 8*4684ddb6SLionel Sambuc //===----------------------------------------------------------------------===// 9*4684ddb6SLionel Sambuc 10*4684ddb6SLionel Sambuc #define _LIBCPP_EXTERN_TEMPLATE(...) extern template __VA_ARGS__; 11*4684ddb6SLionel Sambuc 12*4684ddb6SLionel Sambuc #include "valarray" 13*4684ddb6SLionel Sambuc 14*4684ddb6SLionel Sambuc _LIBCPP_BEGIN_NAMESPACE_STD 15*4684ddb6SLionel Sambuc 16*4684ddb6SLionel Sambuc template valarray<size_t>::valarray(size_t); 17*4684ddb6SLionel Sambuc template valarray<size_t>::~valarray(); 18*4684ddb6SLionel Sambuc template void valarray<size_t>::resize(size_t, size_t); 19*4684ddb6SLionel Sambuc 20*4684ddb6SLionel Sambuc void 21*4684ddb6SLionel Sambuc gslice::__init(size_t __start) 22*4684ddb6SLionel Sambuc { 23*4684ddb6SLionel Sambuc valarray<size_t> __indices(__size_.size()); 24*4684ddb6SLionel Sambuc size_t __k = __size_.size() != 0; 25*4684ddb6SLionel Sambuc for (size_t __i = 0; __i < __size_.size(); ++__i) 26*4684ddb6SLionel Sambuc __k *= __size_[__i]; 27*4684ddb6SLionel Sambuc __1d_.resize(__k); 28*4684ddb6SLionel Sambuc if (__1d_.size()) 29*4684ddb6SLionel Sambuc { 30*4684ddb6SLionel Sambuc __k = 0; 31*4684ddb6SLionel Sambuc __1d_[__k] = __start; 32*4684ddb6SLionel Sambuc while (true) 33*4684ddb6SLionel Sambuc { 34*4684ddb6SLionel Sambuc size_t __i = __indices.size() - 1; 35*4684ddb6SLionel Sambuc while (true) 36*4684ddb6SLionel Sambuc { 37*4684ddb6SLionel Sambuc if (++__indices[__i] < __size_[__i]) 38*4684ddb6SLionel Sambuc { 39*4684ddb6SLionel Sambuc ++__k; 40*4684ddb6SLionel Sambuc __1d_[__k] = __1d_[__k-1] + __stride_[__i]; 41*4684ddb6SLionel Sambuc for (size_t __j = __i + 1; __j != __indices.size(); ++__j) 42*4684ddb6SLionel Sambuc __1d_[__k] -= __stride_[__j] * (__size_[__j] - 1); 43*4684ddb6SLionel Sambuc break; 44*4684ddb6SLionel Sambuc } 45*4684ddb6SLionel Sambuc else 46*4684ddb6SLionel Sambuc { 47*4684ddb6SLionel Sambuc if (__i == 0) 48*4684ddb6SLionel Sambuc return; 49*4684ddb6SLionel Sambuc __indices[__i--] = 0; 50*4684ddb6SLionel Sambuc } 51*4684ddb6SLionel Sambuc } 52*4684ddb6SLionel Sambuc } 53*4684ddb6SLionel Sambuc } 54*4684ddb6SLionel Sambuc } 55*4684ddb6SLionel Sambuc 56*4684ddb6SLionel Sambuc _LIBCPP_END_NAMESPACE_STD 57