llvm-project

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