valarray.cpp revision 355940 
1//===------------------------ valarray.cpp --------------------------------===//
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 valarray<size_t>::valarray(size_t);
16template 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