libcxx/src/valarray.cpp

   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