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.
98 lines
3.4 KiB
98 lines
3.4 KiB
11 years ago
|
/*
|
||
|
|
* 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
|
||
|
|
|