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