You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
3.4 KiB
97 lines
3.4 KiB
/* |
|
* Copyright 2008-2012 NVIDIA Corporation |
|
* |
|
* Licensed under the Apache License, Version 2.0 (the "License"); |
|
* you may not use this file except in compliance with the License. |
|
* You may obtain a copy of the License at |
|
* |
|
* http://www.apache.org/licenses/LICENSE-2.0 |
|
* |
|
* Unless required by applicable law or agreed to in writing, software |
|
* distributed under the License is distributed on an "AS IS" BASIS, |
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
|
* See the License for the specific language governing permissions and |
|
* limitations under the License. |
|
*/ |
|
|
|
|
|
/*! \file for_each.inl |
|
* \brief Inline file for for_each.h. |
|
*/ |
|
|
|
#include <thrust/detail/config.h> |
|
#include <thrust/detail/static_assert.h> |
|
#include <thrust/distance.h> |
|
#include <thrust/detail/function.h> |
|
#include <thrust/iterator/iterator_traits.h> |
|
#include <thrust/distance.h> |
|
#include <thrust/for_each.h> |
|
|
|
namespace thrust |
|
{ |
|
namespace system |
|
{ |
|
namespace omp |
|
{ |
|
namespace detail |
|
{ |
|
|
|
template<typename DerivedPolicy, |
|
typename RandomAccessIterator, |
|
typename Size, |
|
typename UnaryFunction> |
|
RandomAccessIterator for_each_n(execution_policy<DerivedPolicy> &, |
|
RandomAccessIterator first, |
|
Size n, |
|
UnaryFunction f) |
|
{ |
|
// we're attempting to launch an omp kernel, assert we're compiling with omp support |
|
// ======================================================================== |
|
// X Note to the user: If you've found this line due to a compiler error, X |
|
// X you need to enable OpenMP support in your compiler. X |
|
// ======================================================================== |
|
THRUST_STATIC_ASSERT( (thrust::detail::depend_on_instantiation<RandomAccessIterator, |
|
(THRUST_DEVICE_COMPILER_IS_OMP_CAPABLE == THRUST_TRUE)>::value) ); |
|
|
|
if (n <= 0) return first; //empty range |
|
|
|
// create a wrapped function for f |
|
typedef typename thrust::iterator_reference<RandomAccessIterator>::type reference; |
|
thrust::detail::host_function<UnaryFunction,void> wrapped_f(f); |
|
|
|
// do not attempt to compile the body of this function, which depends on #pragma omp, |
|
// without support from the compiler |
|
// XXX implement the body of this function in another file to eliminate this ugliness |
|
#if (THRUST_DEVICE_COMPILER_IS_OMP_CAPABLE == THRUST_TRUE) |
|
// use a signed type for the iteration variable or suffer the consequences of warnings |
|
typedef typename thrust::iterator_difference<RandomAccessIterator>::type DifferenceType; |
|
DifferenceType signed_n = n; |
|
#pragma omp parallel for |
|
for(DifferenceType i = 0; |
|
i < signed_n; |
|
++i) |
|
{ |
|
RandomAccessIterator temp = first + i; |
|
wrapped_f(*temp); |
|
} |
|
#endif // THRUST_DEVICE_COMPILER_IS_OMP_CAPABLE |
|
|
|
return first + n; |
|
} // end for_each_n() |
|
|
|
template<typename DerivedPolicy, |
|
typename RandomAccessIterator, |
|
typename UnaryFunction> |
|
RandomAccessIterator for_each(execution_policy<DerivedPolicy> &s, |
|
RandomAccessIterator first, |
|
RandomAccessIterator last, |
|
UnaryFunction f) |
|
{ |
|
return omp::detail::for_each_n(s, first, thrust::distance(first,last), f); |
|
} // end for_each() |
|
|
|
} // end namespace detail |
|
} // end namespace omp |
|
} // end namespace system |
|
} // end namespace thrust |
|
|
|
|