device_vector.h

Go to the documentation of this file.

/***************************************************************************
*   Copyright 2012 - 2013 Advanced Micro Devices, Inc.
*
*   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.

***************************************************************************/




#pragma once
#if !defined( BOLT_CL_DEVICE_VECTOR_H )
#define BOLT_CL_DEVICE_VECTOR_H

#include <iterator>
#include <type_traits>
#include <numeric>
#include "bolt/cl/bolt.h"
#include "bolt/cl/iterator/iterator_traits.h"
#include <iostream>
#include <boost/iterator/iterator_facade.hpp>
#include <boost/iterator/reverse_iterator.hpp>
#include <boost/shared_array.hpp>

namespace bolt
{
namespace cl
{
    struct device_vector_tag
        : public std::random_access_iterator_tag
        {   // identifying tag for random-access iterators
        };

        template< typename T >
        class device_vector
        {
            template< typename Container >
            class UnMapBufferFunctor
            {
                Container& m_Container;

            public:
                //  Basic constructor requires a reference to the container and a positional element
                UnMapBufferFunctor( Container& rhs ): m_Container( rhs )
                {}

                void operator( )( const void* pBuff )
                {
                    ::cl::Event unmapEvent;

                    V_OPENCL( m_Container.m_commQueue.enqueueUnmapMemObject( m_Container.m_devMemory, const_cast< void* >( pBuff ), NULL, &unmapEvent ),
                            "shared_ptr failed to unmap host memory back to device memory" );
                    V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );
                }
            };

            typedef T* naked_pointer;
            typedef const T* const_naked_pointer;

        public:

            //  Useful typedefs specific to this container
            typedef T value_type;
            typedef ptrdiff_t difference_type;
            typedef difference_type distance_type;
            typedef size_t size_type;

            typedef boost::shared_array< value_type > pointer;
            typedef boost::shared_array< const value_type > const_pointer;

            template< typename Container >
            class reference_base
            {
            public:
                reference_base(Container &rhs, size_type index ): m_Container( rhs ), m_Index( index )
                {}



                //  Automatic type conversion operator to turn the reference object into a value_type
                operator value_type( ) const
                {
                    cl_int l_Error = CL_SUCCESS;
                    naked_pointer result = reinterpret_cast< naked_pointer >( m_Container.m_commQueue.enqueueMapBuffer(
                    m_Container.m_devMemory, true, CL_MAP_READ, m_Index * sizeof( value_type ), sizeof( value_type ), NULL, NULL, &l_Error ) );
                    V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                    value_type valTmp = *result;

                    ::cl::Event unmapEvent;
                    V_OPENCL( m_Container.m_commQueue.enqueueUnmapMemObject( m_Container.m_devMemory, result, NULL, &unmapEvent ), "device_vector failed to unmap host memory back to device memory" );
                    V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                    return valTmp;
                }

                reference_base< Container >& operator=( const value_type& rhs )
                {
                    cl_int l_Error = CL_SUCCESS;
                    naked_pointer result = reinterpret_cast< naked_pointer >( m_Container.m_commQueue.enqueueMapBuffer(
                    m_Container.m_devMemory, true, CL_MAP_WRITE_INVALIDATE_REGION, m_Index * sizeof( value_type ), sizeof( value_type ), NULL, NULL, &l_Error ) );
                    V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                    *result = rhs;

                    ::cl::Event unmapEvent;
                    V_OPENCL( m_Container.m_commQueue.enqueueUnmapMemObject( m_Container.m_devMemory, result, NULL, &unmapEvent ), "device_vector failed to unmap host memory back to device memory" );
                    V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                    return *this;
                }

                Container& getContainer( ) const
                {
                    return m_Container;
                }

                size_type getIndex() const
                {
                return m_Index;
                }

            private:
                Container& m_Container;
                size_type m_Index;
            };

            typedef  reference_base< device_vector< value_type > > reference;

            typedef const value_type const_reference;

            //  Handy for the reference class to get at the wrapped ::cl objects
            //friend class reference;

            template< typename Container >
            class iterator_base: public boost::iterator_facade< iterator_base< Container >, value_type, device_vector_tag, 
            typename device_vector::reference, int >
            {
            public:
            typedef typename boost::iterator_facade< iterator_base< Container >, value_type, device_vector_tag, 
            typename device_vector::reference, int >::difference_type difference_type;


                //typedef iterator_facade::difference_type difference_type;

                //  This class represents the iterator data transferred to the openCL device.  Transferring pointers is tricky,
                //  the only reason we allocate space for a pointer in this payload is because the openCl clSetKernelArg() checks the
                //  size ( bytes ) of the argument passed in, and the corresponding GPU iterator has a pointer member.  
                //  The value of the pointer is not relevant on host side, and is initialized on the device side with the init method 
                //  This size of the payload needs to be able to encapsulate both 32bit and 64bit devices
                //  sizeof( 32bit device payload ) = 32bit index & 32bit pointer = 8 bytes
                //  sizeof( 64bit device payload ) = 32bit index & 64bit aligned pointer = 16 bytes
                struct Payload
                {
                    difference_type m_Index;
                    difference_type m_Ptr1[ 3 ];  // Represents device pointer, big enough for 32 or 64bit
                };

                
                //  Basic constructor requires a reference to the container and a positional element
                iterator_base( ): m_Container( getContainer() ), m_Index( 0 )
                {}

                //  Basic constructor requires a reference to the container and a positional element
                iterator_base( Container& rhs, difference_type index ): m_Container( rhs ), m_Index( index )
                {}

                //  This copy constructor allows an iterator to convert into a const_iterator, but not vica versa
                template< typename OtherContainer >
                iterator_base( const iterator_base< OtherContainer >& rhs ): m_Container( rhs.m_Container ), m_Index( rhs.m_Index )
                {}

                //  This copy constructor allows an iterator to convert into a const_iterator, but not vica versa
                //template< typename Container >
                iterator_base< Container >& operator = ( const iterator_base< Container >& rhs )
                {
                    m_Container = rhs.m_Container;
                    m_Index = rhs.m_Index;
                    return *this;
                }
    
                iterator_base< Container > & operator+= ( const difference_type & n )
                {
                    advance( n );
                    return *this;
                }

                iterator_base< Container >& operator = ( const difference_type & n )
                {
                    advance( n );
                    return *this;
                }
                

                
                const iterator_base< Container > operator + ( const difference_type & n ) const
                {
                    iterator_base< Container > result(*this);
                    result.advance(n);
                    return result;
                }

                Container& getContainer( ) const
                {
                    return m_Container;
                }

                //  This method initializes the payload of the iterator for the cl device; the contents of the pointer is 0 as it has no relevance
                //  on the host
                const Payload  gpuPayload( ) const
                {
                    Payload payload = { m_Index, { 0, 0, 0 } };
                    return payload;
                }

                //  Calculates the size of payload for the cl device.  The bitness of the device is independant of the host and must be 
                //  queried.  The bitness of the device determines the size of the pointer contained in the payload.  64bit pointers must
                //  be 8 byte aligned, so 
                const difference_type gpuPayloadSize( ) const
                {
                    cl_int l_Error = CL_SUCCESS;
            ::cl::Device which_device;
           l_Error  = m_Container.m_commQueue.getInfo(CL_QUEUE_DEVICE,&which_device );  
                   
          cl_uint deviceBits = which_device.getInfo< CL_DEVICE_ADDRESS_BITS >( );

                    //  Size of index and pointer
                    difference_type payloadSize = sizeof( difference_type ) + ( deviceBits >> 3 );

                    //  64bit devices need to add padding for 8 byte aligned pointer
                    if( deviceBits == 64 )
                        payloadSize += 4;

                    return payloadSize;

                }

                difference_type m_Index;
                difference_type distance_to( const iterator_base< Container >& rhs ) const
                {
                    return static_cast< difference_type >( rhs.m_Index - m_Index );
                }
            private:

        
                //  Payload payload;
                //  Implementation detail of boost.iterator
                friend class boost::iterator_core_access;

                //  Handy for the device_vector erase methods
                friend class device_vector< value_type >;

                //  Used for templatized copy constructor and the templatized equal operator
                template < typename > friend class iterator_base;

                void advance( difference_type n )
                {
                    m_Index += n;
                }

                void increment( )
                {
                    advance( 1 );
                }

                void decrement( )
                {
                    advance( -1 );
                }

                template< typename OtherContainer >
                bool equal( const iterator_base< OtherContainer >& rhs ) const
                {
                    bool sameIndex = rhs.m_Index == m_Index;
                    bool sameContainer = (&m_Container == &rhs.m_Container );

                    return ( sameIndex && sameContainer );
                }

                reference dereference( ) const
                {
                    return m_Container[ m_Index ];
                }

                Container& m_Container;
            };

            template< typename Container >
            class reverse_iterator_base: public boost::iterator_facade< reverse_iterator_base< Container >, value_type, std::random_access_iterator_tag, typename device_vector::reference, int >
            {
            public:

                //  Basic constructor requires a reference to the container and a positional element
                reverse_iterator_base( Container& lhs, size_type index ): m_Container( lhs ), m_Index( index-1 )
                {}

                //  This copy constructor allows an iterator to convert into a const_iterator, but not vica versa
                template< typename OtherContainer >
                reverse_iterator_base( const reverse_iterator_base< OtherContainer >& lhs ): m_Container( lhs.m_Container ), m_Index( lhs.m_Index-1 )
                {}

                //  This copy constructor allows an iterator to convert into a const_iterator, but not vica versa
                //template< typename Container >
                reverse_iterator_base< Container >& operator= ( const reverse_iterator_base< Container >& lhs )
                {
                    m_Container = lhs.m_Container;
                    m_Index = lhs.m_Index;
                    return *this;
                }

                reverse_iterator_base< Container >& operator+= ( const difference_type & n )
                {
                    advance( -n );
                    return *this;
                }

                const reverse_iterator_base< Container > operator+ ( const difference_type & n ) const
                {
                    reverse_iterator_base< Container > result(*this);
                    result.advance(-n);
                    return result;
                }
#if !defined(_WIN32) && defined(__x86_64__)
               const reverse_iterator_base< Container > operator+ ( const int & n ) const
                {
                    reverse_iterator_base< Container > result(*this);
                    result.advance(-n);
                    return result;
                }
#endif



                int getIndex() const
                {
                    return m_Index;
                }

                //iterator_base<Container> base()
                //{
                //    iterator_base<Container>(m_Container,m_Index-1);
                //}

                difference_type distance_to( const reverse_iterator_base< Container >& lhs ) const
                {
                    return static_cast< difference_type >( m_Index - lhs.m_Index );
                }

            private:
                //  Implementation detail of boost.iterator
                friend class boost::iterator_core_access;

                //  Handy for the device_vector erase methods
                friend class device_vector< value_type >;

                //  Used for templatized copy constructor and the templatized equal operator
                template < typename > friend class reverse_iterator_base;

                void advance( difference_type n )
                {
                    m_Index += n;
                }

                void increment( )
                {
                    advance( -1 );
                }

                void decrement( )
                {
                    advance( 1 );
                }


                template< typename OtherContainer >
                bool equal( const reverse_iterator_base< OtherContainer >& lhs ) const
                {
                    bool sameIndex = lhs.m_Index == m_Index;
                    bool sameContainer = (&m_Container == &lhs.m_Container );

                    return ( sameIndex && sameContainer );
                }

                reference dereference( ) const
                {
                    return m_Container[ m_Index ];
                }

                Container& m_Container;
                size_type m_Index;
            };

            typedef iterator_base< device_vector< value_type > > iterator;

            typedef iterator_base< const device_vector< value_type > > const_iterator;

            typedef reverse_iterator_base< device_vector< value_type > > reverse_iterator;

            typedef reverse_iterator_base< const device_vector< value_type > > const_reverse_iterator;


            device_vector( /* cl_mem_flags flags = CL_MEM_READ_WRITE,*/ const control& ctl = control::getDefault( ) ): m_Size( 0 ), m_commQueue( ctl.getCommandQueue( ) ), m_Flags( CL_MEM_READ_WRITE )
            {
                static_assert( !std::is_polymorphic< value_type >::value, "AMD C++ template extensions do not support the virtual keyword yet" );
                m_devMemory = NULL;
            }

            device_vector( size_type newSize, const value_type& value = value_type( ), cl_mem_flags flags = CL_MEM_READ_WRITE,
                bool init = true, const control& ctl = control::getDefault( ) ): m_Size( newSize ), m_commQueue( ctl.getCommandQueue( ) ), m_Flags( flags )
            {
                static_assert( !std::is_polymorphic< value_type >::value, "AMD C++ template extensions do not support the virtual keyword yet" );

                //  We want to use the context from the passed in commandqueue to initialize our buffer
                cl_int l_Error = CL_SUCCESS;
                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::CommandQueue object" );

                if( m_Size > 0 )
                {
                    m_devMemory = ::cl::Buffer( l_Context, m_Flags, m_Size * sizeof( value_type ) );

                    if( init )
                    {
                        std::vector< ::cl::Event > fillEvent( 1 );

                        //
                        // note: If the size of value is not a power of two, we fill serially. Another approach is to
                        //       launch a templatized fill kernel, but it leads to complications.

                        try
                        {
                           size_t sizeDS = sizeof(value_type);

                           if( !( sizeDS & (sizeDS - 1 ) ) )  // 2^n data types
                           {
                            V_OPENCL( m_commQueue.enqueueFillBuffer< value_type >( m_devMemory, value, 0,
                                newSize * sizeof( value_type ), NULL, &fillEvent.front( ) ),
                                "device_vector failed to fill the internal buffer with the requested pattern");
                           }
                           else // non 2^n data types
                           {
                              // Map the buffer to host
                              ::cl::Event fill_mapEvent;
                              value_type *host_buffer = ( value_type* )ctl.getCommandQueue( ).enqueueMapBuffer (
                                                                                          m_devMemory,
                                                                                          false,
                                                                                          CL_MAP_READ | CL_MAP_WRITE,
                                                                                          0,
                                                                                          sizeof( value_type )*newSize,
                                                                                          NULL,
                                                                                          &fill_mapEvent,
                                                                                          &l_Error );

                              V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                              bolt::cl::wait( ctl, fill_mapEvent );

                              // Use serial fill_n to fill the device_vector with value
#if defined(_WIN32)
                              std::fill_n( stdext::make_checked_array_iterator( host_buffer, newSize ),
                                           newSize,
                                           value );
#else
                              std::fill_n( host_buffer,
                                           newSize,
                                           value );
#endif


                              // Unmap the buffer
                              l_Error = ctl.getCommandQueue( ).enqueueUnmapMemObject( m_devMemory,
                                                                                      host_buffer,
                                                                                      NULL,
                                                                                      &fillEvent.front( ) );
                              V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );

                           }
                        }
                        catch( std::exception& e )
                        {
                            std::cout << "device_vector enqueueFillBuffer error condition reported:" << std::endl << e.what() << std::endl;
                            //return 1;
                        }

                        try
                        {
                            //  Not allowed to return until the fill operation is finished
                            V_OPENCL( m_commQueue.enqueueWaitForEvents( fillEvent ), "device_vector failed to wait for an event" );
                        }
                        catch( std::exception& e )
                        {
                            std::cout << "device_vector enqueueFillBuffer enqueueWaitForEvents error condition reported:" << std::endl << e.what() << std::endl;
                            //return 1;
                        }
                    }
                }
                else
                {
                    m_devMemory=NULL;
                }
            }

            template< typename InputIterator >
            device_vector( const InputIterator begin, size_type newSize, cl_mem_flags flags = CL_MEM_READ_WRITE,
                bool init = true, const control& ctl = control::getDefault( ),
                typename std::enable_if< !std::is_integral< InputIterator >::value >::type* = 0 ): m_Size( newSize ),
                m_commQueue( ctl.getCommandQueue( ) ), m_Flags( flags )
            {
                static_assert( std::is_convertible< value_type, typename std::iterator_traits< InputIterator >::value_type >::value,
                    "iterator value_type does not convert to device_vector value_type" );
                static_assert( !std::is_polymorphic< value_type >::value, "AMD C++ template extensions do not support the virtual keyword yet" );

                if ( m_Size == 0 )
                {
                    m_devMemory=NULL;
                    return;
                }
                //  We want to use the context from the passed in commandqueue to initialize our buffer
                cl_int l_Error = CL_SUCCESS;
                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::CommandQueue object" );

                if( m_Flags & CL_MEM_USE_HOST_PTR )
                {
                    m_devMemory = ::cl::Buffer( l_Context, m_Flags, m_Size * sizeof( value_type ),
                        reinterpret_cast< value_type* >( const_cast< value_type* >( &*begin ) ) );
                }
                else
                {
                    m_devMemory = ::cl::Buffer( l_Context, m_Flags, m_Size * sizeof( value_type ) );

                    if( init )
                    {
                        size_t byteSize = m_Size * sizeof( value_type );

                        //  Note:  The Copy API doesn't work because it uses the concept of a 'default' accelerator
                        // ::cl::copy( begin, begin+m_Size, m_devMemory );
                        naked_pointer pointer = static_cast< naked_pointer >( m_commQueue.enqueueMapBuffer(
                            m_devMemory, CL_TRUE, CL_MEM_WRITE_ONLY, 0, byteSize, 0, 0, &l_Error) );
                        V_OPENCL( l_Error, "enqueueMapBuffer failed in device_vector constructor" );
#if (_WIN32)
                        std::copy( begin, begin + m_Size,  stdext::checked_array_iterator< naked_pointer >( pointer, m_Size )  );
#else
                        std::copy( begin, begin + m_Size, pointer );
#endif
                        l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, pointer, 0, 0 );
                        V_OPENCL( l_Error, "enqueueUnmapMemObject failed in device_vector constructor" );
                    }
                }
            };

            template< typename InputIterator >
            device_vector( const InputIterator begin, const InputIterator end, cl_mem_flags flags = CL_MEM_READ_WRITE, const control& ctl = control::getDefault( ),
                typename std::enable_if< !std::is_integral< InputIterator >::value >::type* = 0 ): m_commQueue( ctl.getCommandQueue( ) ), m_Flags( flags )
            {
                static_assert( std::is_convertible< value_type, typename std::iterator_traits< InputIterator >::value_type >::value,
                    "iterator value_type does not convert to device_vector value_type" );
                static_assert( !std::is_polymorphic< value_type >::value, "AMD C++ template extensions do not support the virtual keyword yet" );

                //  We want to use the context from the passed in commandqueue to initialize our buffer
                cl_int l_Error = CL_SUCCESS;
                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::CommandQueue object" );

                m_Size = std::distance( begin, end );
                if ( m_Size == 0 )
                {
                    m_devMemory=NULL;
                    return;
                }
                size_t byteSize = m_Size * sizeof( value_type );

                if( m_Flags & CL_MEM_USE_HOST_PTR )
                {
                    m_devMemory = ::cl::Buffer( l_Context, m_Flags, byteSize,
                        reinterpret_cast< value_type* >( const_cast< value_type* >( &*begin ) ) );
                }
                else
                {
                    m_devMemory = ::cl::Buffer( l_Context, m_Flags, byteSize );

                    //  Note:  The Copy API doesn't work because it uses the concept of a 'default' accelerator
                    //::cl::copy( begin, end, m_devMemory );
                    naked_pointer pointer = static_cast< naked_pointer >( m_commQueue.enqueueMapBuffer(
                        m_devMemory, CL_TRUE, CL_MEM_WRITE_ONLY, 0, byteSize, 0, 0, &l_Error) );
                    V_OPENCL( l_Error, "enqueueMapBuffer failed in device_vector constructor" );
#if (_WIN32)
                    std::copy( begin, end,  stdext::checked_array_iterator< naked_pointer >( pointer, m_Size ) );
#else
                    std::copy( begin, end, pointer );
#endif
                    l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, pointer, 0, 0 );
                    V_OPENCL( l_Error, "enqueueUnmapMemObject failed in device_vector constructor" );
                }
            };

            device_vector( const ::cl::Buffer& rhs, const control& ctl = control::getDefault( ) ): m_devMemory( rhs ), m_commQueue( ctl.getCommandQueue( ) )
            {
                static_assert( !std::is_polymorphic< value_type >::value, "AMD C++ template extensions do not support the virtual keyword yet" );

                m_Size = capacity( );

                cl_int l_Error = CL_SUCCESS;
                m_Flags = m_devMemory.getInfo< CL_MEM_FLAGS >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the memory flags of the ::cl::Buffer object" );
            };

            //  Copying methods
            device_vector( const device_vector& rhs ): m_Flags( rhs.m_Flags ), m_Size( 0 ), m_commQueue( rhs.m_commQueue )
            {
                //  This method will set the m_Size member variable upon successful completion
                resize( rhs.m_Size );

                if( m_Size == 0 )
                    return;

                size_type l_srcSize = m_Size * sizeof( value_type );
                ::cl::Event copyEvent;

                cl_int l_Error = CL_SUCCESS;
                l_Error = m_commQueue.enqueueCopyBuffer( rhs.m_devMemory, m_devMemory, 0, 0, l_srcSize, NULL, &copyEvent );
                V_OPENCL( l_Error, "device_vector failed to copy data inside of operator=()" );
                V_OPENCL( copyEvent.wait( ), "device_vector failed to wait for copy event" );
            }

            device_vector& operator=( const device_vector& rhs )
            {
                if( this == &rhs )
                    return *this;

                m_Flags         = rhs.m_Flags;
                m_commQueue     = rhs.m_commQueue;
                m_Size        = capacity( );

                //  This method will set the m_Size member variable upon successful completion
                resize( rhs.m_Size );

                if( m_Size == 0 )
                    return *this;

                size_type l_srcSize = m_Size * sizeof( value_type );
                ::cl::Event copyEvent;

                cl_int l_Error = CL_SUCCESS;
                l_Error = m_commQueue.enqueueCopyBuffer( rhs.m_devMemory, m_devMemory, 0, 0, l_srcSize, NULL, &copyEvent );
                V_OPENCL( l_Error, "device_vector failed to copy data inside of operator=()" );
                V_OPENCL( copyEvent.wait( ), "device_vector failed to wait for copy event" );

                return *this;
            }

            //  Member functions

            void resize( size_type reqSize, const value_type& val = value_type( ) )
            {
                if( (m_Flags & CL_MEM_USE_HOST_PTR) != 0 )
                {
                    throw ::cl::Error( CL_MEM_OBJECT_ALLOCATION_FAILURE ,
                        "A device_vector can not resize() memory not under its direct control" );
                }

                size_type cap = capacity( );

                if( reqSize == cap )
                    return;

                if( reqSize > max_size( ) )
                    throw ::cl::Error( CL_MEM_OBJECT_ALLOCATION_FAILURE ,
                    "The amount of memory requested exceeds what is available" );

                cl_int l_Error = CL_SUCCESS;

                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::Buffer object" );

                size_type l_reqSize = reqSize * sizeof( value_type );
                ::cl::Buffer l_tmpBuffer( l_Context, m_Flags, l_reqSize, NULL, &l_Error );

                size_type l_srcSize = m_Size * sizeof( value_type );

                if( l_srcSize > 0 )
                {
                    //  If the new buffer size is greater than the old, the new elements must be initialized to the value specified on the
                    //  function parameter
                    if( l_reqSize > l_srcSize )
                    {
                        std::vector< ::cl::Event > copyEvent( 1 );
                        l_Error = m_commQueue.enqueueCopyBuffer( m_devMemory,
                                                                 l_tmpBuffer,
                                                                 0,
                                                                 0,
                                                                 l_srcSize,
                                                                 NULL,
                                                                 &copyEvent.front( ) );
                        V_OPENCL( l_Error, "device_vector failed to copy data to the new ::cl::Buffer object" );
                        ::cl::Event fillEvent;

                        size_t sizeDS = sizeof(value_type);
                        if( !( sizeDS & (sizeDS - 1 ) ) )  // 2^n data types
                        {
                        l_Error = m_commQueue.enqueueFillBuffer< value_type >( l_tmpBuffer,
                                                                               val,
                                                                               l_srcSize,
                                                                               (l_reqSize - l_srcSize),
                                                                               &copyEvent,
                                                                               &fillEvent );
                        V_OPENCL( l_Error, "device_vector failed to fill the new data with the provided pattern" );
                        //  Not allowed to return until the copy operation is finished
                        }
                        else // non 2^n data types
                        {
                          // Map the buffer to host
                          ::cl::Event fill_mapEvent;
                          value_type *host_buffer = ( value_type* )m_commQueue.enqueueMapBuffer (
                                                                      l_tmpBuffer,
                                                                      false,
                                                                      CL_MAP_READ | CL_MAP_WRITE,
                                                                      l_srcSize,
                                                                      (l_reqSize - l_srcSize),
                                                                      NULL,
                                                                      &fill_mapEvent,
                                                                      &l_Error );

                          V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                          fill_mapEvent.wait( );

                          // Use serial fill_n to fill the device_vector with value
#if defined(_WIN32)
                       std::fill_n( stdext::make_checked_array_iterator( host_buffer , reqSize ),
                                    reqSize,
                                    val );
#else
                          std::fill_n( host_buffer,
                                       (reqSize - m_Size),
                                       val );
#endif


                          // Unmap the buffer
                          l_Error = m_commQueue.enqueueUnmapMemObject( l_tmpBuffer,
                                                                       host_buffer,
                                                                       NULL,
                                                                       &fillEvent );
                          V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                        }

                        l_Error = fillEvent.wait( );
                        V_OPENCL( l_Error, "device_vector failed to wait for fill event" );
                    }
                    else
                    {
                        std::vector< ::cl::Event > copyEvent( 1 );
                        l_Error = m_commQueue.enqueueCopyBuffer( m_devMemory, l_tmpBuffer, 0, 0, l_reqSize, NULL, &copyEvent.front( ) );
                        V_OPENCL( l_Error, "device_vector failed to copy data to the new ::cl::Buffer object" );
                        //  Not allowed to return until the copy operation is finished
                        l_Error = m_commQueue.enqueueWaitForEvents( copyEvent );
                        V_OPENCL( l_Error, "device_vector failed to wait for copy event" );
                    }
                }
                else
                {
                    ::cl::Event fillEvent;
                    size_t sizeDS = sizeof(value_type);
                    if( !( sizeDS & (sizeDS - 1 ) ) )  // 2^n data types
                    {
                      l_Error = m_commQueue.enqueueFillBuffer< value_type >( l_tmpBuffer, val, 0, l_reqSize, NULL, &fillEvent );
                      V_OPENCL( l_Error, "device_vector failed to fill the new data with the provided pattern" );

                    }
                    else // non 2^n data types
                    {
                       // Map the buffer to host
                       ::cl::Event fill_mapEvent;
                       value_type *host_buffer = ( value_type* )m_commQueue.enqueueMapBuffer (
                                                                                 l_tmpBuffer,
                                                                                 false,
                                                                                 CL_MAP_READ | CL_MAP_WRITE,
                                                                                 0,
                                                                                 l_reqSize,
                                                                                 NULL,
                                                                                 &fill_mapEvent,
                                                                                 &l_Error );

                       V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                       fill_mapEvent.wait( );

                       // Use serial fill_n to fill the device_vector with value
#if defined(_WIN32)
                       std::fill_n( stdext::make_checked_array_iterator( host_buffer , reqSize ),
                                    reqSize,
                                    val );
#else
                       std::fill_n(  host_buffer,
                                    reqSize,
                                    val );
#endif

                       // Unmap the buffer
                       l_Error = m_commQueue.enqueueUnmapMemObject( l_tmpBuffer,
                                                                    host_buffer,
                                                                    NULL,
                                                                    &fillEvent );
                       V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                    }

                    //  Not allowed to return until the fill operation is finished
                    l_Error = fillEvent.wait( );
                    V_OPENCL( l_Error, "device_vector failed to wait for fill event" );
                }

                //  Remember the new size
                m_Size = reqSize;

                //  Operator= should call retain/release appropriately
                m_devMemory = l_tmpBuffer;
            }

            size_type size( void ) const
            {
                return m_Size;
            }

            size_type max_size( void ) const
            {
                cl_int l_Error = CL_SUCCESS;

                ::cl::Device l_Device = m_commQueue.getInfo< CL_QUEUE_DEVICE >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the device of the command queue" );

                cl_ulong l_MaxSize  = l_Device.getInfo< CL_DEVICE_MAX_MEM_ALLOC_SIZE >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query device for the maximum memory size" );

                return static_cast< size_type >( l_MaxSize / sizeof( value_type ) );
            }

            void reserve( size_type reqSize )
            {
                if( reqSize <= capacity( ) )
                    return;

                if( reqSize > max_size( ) )
                    throw ::cl::Error( CL_MEM_OBJECT_ALLOCATION_FAILURE , "The amount of memory requested exceeds what is available" );

                //  We want to use the context from the passed in commandqueue to initialize our buffer
                cl_int l_Error = CL_SUCCESS;
                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::CommandQueue object" );

                if( m_Size == 0 )
                {
                    ::cl::Buffer l_tmpBuffer( l_Context, m_Flags, reqSize * sizeof( value_type ) );
                    m_devMemory = l_tmpBuffer;
                    return;
                }

                size_type l_size = reqSize * sizeof( value_type );
                //  Can't user host_ptr because l_size is guranteed to be bigger
                ::cl::Buffer l_tmpBuffer( l_Context, m_Flags, l_size, NULL, &l_Error );
                V_OPENCL( l_Error, "device_vector can not create an temporary internal OpenCL buffer" );

                size_type l_srcSize = m_devMemory.getInfo< CL_MEM_SIZE >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to request the size of the ::cl::Buffer object" );

                ::cl::Event copyEvent;
                V_OPENCL( m_commQueue.enqueueCopyBuffer( m_devMemory, l_tmpBuffer, 0, 0, l_srcSize, NULL, &copyEvent ),
                    "device_vector failed to copy from buffer to buffer " );

                //  Not allowed to return until the copy operation is finished
                V_OPENCL( copyEvent.wait( ), "device_vector failed to wait on an event object" );

                //  Operator= should call retain/release appropriately
                m_devMemory = l_tmpBuffer;
            }

            size_type capacity( void ) const
            {
                size_t l_memSize  = 0;
                cl_int l_Error = CL_SUCCESS;

                // this seems like bug; what if i popped everything?
             //   if( m_Size == 0 )
             //       return m_Size;
                if(m_devMemory() == NULL)
                   return 0;

                    l_memSize = m_devMemory.getInfo< CL_MEM_SIZE >( &l_Error );
                    V_OPENCL( l_Error, "device_vector failed to request the size of the ::cl::Buffer object" );
                    return static_cast< size_type >( l_memSize / sizeof( value_type ) );
                
            }

            void shrink_to_fit( )
            {
                if( m_Size > capacity( ) )
                    throw ::cl::Error( CL_MEM_OBJECT_ALLOCATION_FAILURE , "device_vector size can not be greater than capacity( )" );

                if( m_Size == capacity( ) )
                    return;

                //  We want to use the context from the passed in commandqueue to initialize our buffer
                cl_int l_Error = CL_SUCCESS;
                ::cl::Context l_Context = m_commQueue.getInfo< CL_QUEUE_CONTEXT >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to query for the context of the ::cl::CommandQueue object" );

                size_type l_newSize = m_Size * sizeof( value_type );
                ::cl::Buffer l_tmpBuffer( l_Context, m_Flags, l_newSize, NULL, &l_Error );
                V_OPENCL( l_Error, "device_vector can not create an temporary internal OpenCL buffer" );

                //TODO - this is equal to the capacity()
                size_type l_srcSize = m_devMemory.getInfo< CL_MEM_SIZE >( &l_Error );
                V_OPENCL( l_Error, "device_vector failed to request the size of the ::cl::Buffer object" );

                std::vector< ::cl::Event > copyEvent( 1 );
                l_Error = m_commQueue.enqueueCopyBuffer( m_devMemory, l_tmpBuffer, 0, 0, l_newSize, NULL, &copyEvent.front( ) );
                V_OPENCL( l_Error, "device_vector failed to copy data to the new ::cl::Buffer object" );

                //  Not allowed to return until the copy operation is finished
                l_Error = m_commQueue.enqueueWaitForEvents( copyEvent );
                V_OPENCL( l_Error, "device_vector failed to wait for copy event" );

                //  Operator= should call retain/release appropriately
                m_devMemory = l_tmpBuffer;
            }

            reference operator[]( size_type n )
            {

                return reference( *this, n );
            }

            const_reference operator[]( size_type n ) const
            {
                cl_int l_Error = CL_SUCCESS;

                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ, n * sizeof( value_type), sizeof( value_type), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                const_reference tmpRef = *ptrBuff;

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                return tmpRef;
            }

            iterator begin( void )
            {
                return iterator( *this, 0 );
            }

            const_iterator begin( void ) const
            {
                return const_iterator( *this, 0 );
            }

            const_iterator cbegin( void ) const
            {
                return const_iterator( *this, 0 );
            }

            reverse_iterator rbegin( void )
            {
                //static_assert( false, "Reverse iterators are not yet implemented" );
                return reverse_iterator( *this, m_Size );
            }

            const_reverse_iterator rbegin( void ) const
            {
                //static_assert( false, "Reverse iterators are not yet implemented" );
                return const_reverse_iterator( *this, m_Size );
            }

            const_reverse_iterator crbegin( void ) const
            {
                //static_assert( false, "Reverse iterators are not yet implemented" );
                return const_reverse_iterator( *this, m_Size );
            }

            iterator end( void )
            {
            return iterator( *this, static_cast< typename iterator::difference_type >( m_Size ) );
            }

            const_iterator end( void ) const
            {
            return const_iterator( *this, static_cast< typename iterator::difference_type >( m_Size ) );
            }

            const_iterator cend( void ) const
            {
            return const_iterator( *this, static_cast< typename iterator::difference_type >( m_Size ) );
            }

            reverse_iterator rend( void )
            {
                return reverse_iterator( *this, 0 );
            }

            const_reverse_iterator rend( void ) const
            {
                //static_assert( false, "Reverse iterators are not yet implemented" );
                return const_reverse_iterator( *this, 0 );
            }

            const_reverse_iterator crend( void ) const
            {
                return const_reverse_iterator( *this, 0 );
            }

            reference front( void ) 
            {
                return (*begin());
            }

            const_reference front( void ) const
            {
                return (*begin());
            }

            reference back( void )
            {
                return ( *(end() - 1) );
            }

            const_reference back( void ) const
            {
                return ( *(end() - 1) );
            }

            pointer data( void )
            {
                if(0 == size())
                {
                    pointer sp;
                    return sp;
                }
                cl_int l_Error = CL_SUCCESS;

                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    0, capacity() * sizeof( value_type ), NULL, NULL, &l_Error ) );

                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                pointer sp( ptrBuff, UnMapBufferFunctor< device_vector< value_type > >( *this ) );

                return sp;
            }

            const_pointer data( void ) const
            {
                cl_int l_Error = CL_SUCCESS;

                const_naked_pointer ptrBuff = reinterpret_cast< const_naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ,
                    0, capacity() * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                const_pointer sp( ptrBuff, UnMapBufferFunctor< const device_vector< value_type > >( *this ) );
                return sp;
            }

            void clear( void )
            {
                //  Only way to release the Buffer resource is to explicitly call the destructor
                // m_devMemory.~Buffer( );

                //  Allocate a temp empty buffer on the stack, because of a double release problem with explicitly
                //  calling the Wrapper destructor with cl.hpp version 1.2.
                ::cl::Buffer tmp;
                m_devMemory = tmp;

                m_Size = 0;
            }

            bool empty( void ) const
            {
                return m_Size ? false: true;
            }

            void push_back( const value_type& value )
            {
                if( m_Size > capacity( ) )
                    throw ::cl::Error( CL_MEM_OBJECT_ALLOCATION_FAILURE , "device_vector size can not be greater than capacity( )" );

                //  Need to grow the vector to push new value.
                //  Vectors double their capacity on push_back if the array is not big enough.
                if( m_Size == capacity( ) )
                {
                    m_Size ? reserve( m_Size * 2 ) : reserve( 1 );
                }

                cl_int l_Error = CL_SUCCESS;

                naked_pointer result = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_WRITE_INVALIDATE_REGION,
                    m_Size * sizeof( value_type), sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for push_back" );
                *result = value;

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, result, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                ++m_Size;
            }

            void pop_back( void )
            {
                if( m_Size > 0 )
                {
                    --m_Size;
                }
            }

            void swap( device_vector& vec )
            {
                if( this == &vec )
                    return;

                ::cl::Buffer    swapBuffer( m_devMemory );
                m_devMemory = vec.m_devMemory;
                vec.m_devMemory = swapBuffer;

                ::cl::CommandQueue    swapQueue( m_commQueue );
                m_commQueue = vec.m_commQueue;
                vec.m_commQueue = swapQueue;

                size_type sizeTmp = m_Size;
                m_Size = vec.m_Size;
                vec.m_Size = sizeTmp;

                cl_mem_flags flagsTmp = m_Flags;
                m_Flags = vec.m_Flags;
                vec.m_Flags = flagsTmp;
            }

            iterator erase( const_iterator index )
            {
                if( &index.m_Container != this )
                    throw ::cl::Error( CL_INVALID_ARG_VALUE , "Iterator is not from this container" );

                iterator l_End = end( );
            if( index.m_Index >= l_End.m_Index )
                    throw ::cl::Error( CL_INVALID_ARG_INDEX , "Iterator is pointing past the end of this container" );

            size_type sizeRegion = l_End.m_Index - index.m_Index;

                cl_int l_Error = CL_SUCCESS;
                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    index.m_Index * sizeof( value_type ), sizeRegion * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                ::memmove( ptrBuff, ptrBuff + 1, (sizeRegion - 1)*sizeof( value_type ) );

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                --m_Size;

            size_type newIndex = (m_Size < index.m_Index) ? m_Size : index.m_Index;
                return iterator( *this, static_cast< difference_type >( newIndex ) );
            }

            iterator erase( const_iterator first, const_iterator last )
            {
                if(( &first.m_Container != this ) && ( &last.m_Container != this ) )
                    throw ::cl::Error( CL_INVALID_ARG_VALUE , "Iterator is not from this container" );

            if( last.m_Index > m_Size )
                    throw ::cl::Error( CL_INVALID_ARG_INDEX , "Iterator is pointing past the end of this container" );

                if( (first == begin( )) && (last == end( )) )
                {
                    clear( );
                    return iterator( *this, static_cast< typename iterator::difference_type >( m_Size ) );
                }

                iterator l_End = end( );
            size_type sizeMap = l_End.m_Index - first.m_Index;

                cl_int l_Error = CL_SUCCESS;
                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    first.m_Index * sizeof( value_type ), sizeMap * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

            size_type sizeErase = last.m_Index - first.m_Index;
                ::memmove( ptrBuff, ptrBuff + sizeErase, (sizeMap - sizeErase)*sizeof( value_type ) );

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                m_Size -= sizeErase;

            size_type newIndex = (m_Size < last.m_Index) ? m_Size : last.m_Index;
                return iterator( *this, static_cast< typename iterator::difference_type >( newIndex ) );
            }

            iterator insert( const_iterator index, const value_type& value )
            {
                if( &index.m_Container != this )
                    throw ::cl::Error( CL_INVALID_ARG_VALUE , "Iterator is not from this container" );

            if( index.m_Index > m_Size )
                    throw ::cl::Error( CL_INVALID_ARG_INDEX , "Iterator is pointing past the end of this container" );

            if( index.m_Index == m_Size )
                {
                    push_back( value );
                return iterator( *this, index.m_Index );
                }

                //  Need to grow the vector to insert a new value.
                //  TODO:  What is an appropriate growth strategy for GPU memory allocation?  Exponential growth does not seem
                //  right at first blush.
                if( m_Size == capacity( ) )
                {
                    reserve( m_Size + 10 );
                }

            size_type sizeMap = (m_Size - index.m_Index) + 1;

                cl_int l_Error = CL_SUCCESS;
                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    index.m_Index * sizeof( value_type ), sizeMap * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                //  Shuffle the old values 1 element down
                ::memmove( ptrBuff + 1, ptrBuff, (sizeMap - 1)*sizeof( value_type ) );

                //  Write the new value in its place
                *ptrBuff = value;

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                ++m_Size;

            return iterator( *this, index.m_Index );
            }

            void insert( const_iterator index, size_type n, const value_type& value )
            {
                if( &index.m_Container != this )
                    throw ::cl::Error( CL_INVALID_ARG_VALUE , "Iterator is not from this container" );

            if( index.m_Index > m_Size )
                    throw ::cl::Error( CL_INVALID_ARG_INDEX , "Iterator is pointing past the end of this container" );

                //  Need to grow the vector to insert a new value.
                //  TODO:  What is an appropriate growth strategy for GPU memory allocation?  Exponential growth does not seem
                //  right at first blush.
                if( ( m_Size + n ) > capacity( ) )
                {
                    reserve( m_Size + n );
                }

            size_type sizeMap = (m_Size - index.m_Index) + n;

                cl_int l_Error = CL_SUCCESS;
                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    index.m_Index * sizeof( value_type ), sizeMap * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for operator[]" );

                //  Shuffle the old values n element down.
                ::memmove( ptrBuff + n, ptrBuff, (sizeMap - n)*sizeof( value_type ) );

                //  Copy the new value n times in the buffer.
                for( size_type i = 0; i < n; ++i )
                {
                    ptrBuff[ i ] = value;
                }

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                m_Size += n;
            }

            template< typename InputIterator >
            void insert( const_iterator index, InputIterator begin, InputIterator end )
            {
                if( &index.m_Container != this )
                    throw ::cl::Error( CL_INVALID_ARG_VALUE , "Iterator is not from this container" );

            if( index.m_Index > m_Size )
                    throw ::cl::Error( CL_INVALID_ARG_INDEX , "Iterator is pointing past the end of this container" );

                //  Need to grow the vector to insert a new value.
                //  TODO:  What is an appropriate growth strategy for GPU memory allocation?  Exponential growth does not seem
                //  right at first blush.
                size_type n = std::distance( begin, end );
                if( ( m_Size + n ) > capacity( ) )
                {
                    reserve( m_Size + n );
                }
            size_type sizeMap = (m_Size - index.m_Index) + n;

                cl_int l_Error = CL_SUCCESS;
                naked_pointer ptrBuff = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, true, CL_MAP_READ | CL_MAP_WRITE,
                    index.m_Index * sizeof( value_type ), sizeMap * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for iterator insert" );

                //  Shuffle the old values n element down.
                ::memmove( ptrBuff + n, ptrBuff, (sizeMap - n)*sizeof( value_type ) );

#if( _WIN32 )
                std::copy( begin, end, stdext::checked_array_iterator< naked_pointer >( ptrBuff, n )  );
#else
                std::copy( begin, end, ptrBuff );
#endif

                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuff, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );

                m_Size += n;
            }

            void assign( size_type newSize, const value_type& value )
            {
                if( newSize > m_Size )
                {
                    reserve( newSize );
                }
                m_Size = newSize;

                cl_int l_Error = CL_SUCCESS;

                ::cl::Event fillEvent;
                size_t sizeDS = sizeof(value_type);

                if( !( sizeDS & (sizeDS - 1 ) ) )  // 2^n data types
                {
                  l_Error = m_commQueue.enqueueFillBuffer< value_type >( m_devMemory,
                                                                         value,
                                                                         0,
                                                                         m_Size * sizeof( value_type ),
                                                                         NULL,
                                                                         &fillEvent );
                  V_OPENCL( l_Error, "device_vector failed to fill the new data with the provided pattern" );
                }
                else
                {
                  // Map the buffer to host
                  ::cl::Event fill_mapEvent;
                  value_type *host_buffer = ( value_type* )m_commQueue.enqueueMapBuffer ( m_devMemory,
                                                                                          false,
                                                                                          CL_MAP_READ | CL_MAP_WRITE,
                                                                                          0,
                                                                                          sizeof( value_type )*newSize,
                                                                                          NULL,
                                                                                          &fill_mapEvent,
                                                                                          &l_Error );

                  V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                  fill_mapEvent.wait( );

                  // Use serial fill_n to fill the device_vector with value
                  std::fill_n(  host_buffer ,
                               newSize,
                               value );

                  // Unmap the buffer
                  l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory,
                                                               host_buffer,
                                                               NULL,
                                                               &fillEvent );
                  V_OPENCL( l_Error, "Error calling map on device_vector buffer. Fill device_vector" );
                }

                //  Not allowed to return until the copy operation is finished.
                l_Error = fillEvent.wait( );
                V_OPENCL( l_Error, "device_vector failed to wait for fill event" );
            }

#if _MSC_VER == 1700   
            template<typename InputIterator>
            typename std::enable_if< std::_Is_iterator<InputIterator>::value, void>::type
            assign( InputIterator begin, InputIterator end )
#else
            template<typename InputIterator>
            typename std::enable_if< !std::is_same< typename std::iterator_traits<InputIterator >::value_type,
                                       size_type >::value, void>::type
            assign( InputIterator begin, InputIterator end )
#endif
            {
                size_type l_Count = std::distance( begin, end );

                if( l_Count > m_Size )
                {
                    reserve( l_Count );
                }
                m_Size = l_Count;

                cl_int l_Error = CL_SUCCESS;

                naked_pointer ptrBuffer = reinterpret_cast< naked_pointer >( m_commQueue.enqueueMapBuffer( m_devMemory, CL_TRUE, CL_MAP_WRITE_INVALIDATE_REGION, 0 , m_Size * sizeof( value_type ), NULL, NULL, &l_Error ) );
                V_OPENCL( l_Error, "device_vector failed map device memory to host memory for push_back" );

#if( _WIN32 )
                std::copy( begin, end,  stdext::checked_array_iterator< naked_pointer >( ptrBuffer, m_Size ) );
#else
                std::copy( begin, end, ptrBuffer );
#endif
                ::cl::Event unmapEvent;
                l_Error = m_commQueue.enqueueUnmapMemObject( m_devMemory, ptrBuffer, NULL, &unmapEvent );
                V_OPENCL( l_Error, "device_vector failed to unmap host memory back to device memory" );
                V_OPENCL( unmapEvent.wait( ), "failed to wait for unmap event" );
            }


            const ::cl::Buffer& getBuffer( ) const
                {
                return m_devMemory;
                }

            ::cl::Buffer& getBuffer( )
            {
                return m_devMemory;
            }

        private:
            ::cl::Buffer m_devMemory;
            ::cl::CommandQueue m_commQueue;
            size_type m_Size;
            cl_mem_flags m_Flags;
        };

    //  This string represents the device side definition of the constant_iterator template
    static std::string deviceVectorIteratorTemplate = STRINGIFY_CODE(
        namespace bolt { namespace cl { \n
        template< typename T > \n
        class device_vector \n
        { \n
        public: \n
            class iterator \n
            { \n
            public:
                typedef int iterator_category;      // device code does not understand std:: tags  \n
                typedef T value_type; \n
                typedef int difference_type; \n
                typedef int size_type; \n
                typedef T* pointer; \n
                typedef T& reference; \n

                iterator( value_type init ): m_StartIndex( init ), m_Ptr( 0 ) \n
                {}; \n

                void init( global value_type* ptr )\n
                { \n
                    m_Ptr = ptr; \n
                }; \n

                global value_type& operator[]( size_type threadID ) const \n
                { \n
                    return m_Ptr[ m_StartIndex + threadID ]; \n
                } \n

                value_type operator*( ) const \n
                { \n
                    return m_Ptr[ m_StartIndex + threadID ]; \n
                } \n

                size_type m_StartIndex; \n
                global value_type* m_Ptr; \n
            }; \n
        }; \n
    } } \n
    );
}
}

BOLT_CREATE_TYPENAME( bolt::cl::device_vector< cl_int >::iterator );
BOLT_CREATE_CLCODE( bolt::cl::device_vector< cl_int >::iterator, bolt::cl::deviceVectorIteratorTemplate );
/*Now derive each of the OpenCL Application data types from cl_int data type.*/
//Visual Studio 2012 is not able to map char to cl_char. Hence this typename is added.
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, int, char );

BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_char );          
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_uchar );  
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_short );          
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_ushort );         
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_uint );           
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_long );           
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_ulong );          
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_float );          
BOLT_TEMPLATE_REGISTER_NEW_ITERATOR( bolt::cl::device_vector, cl_int, cl_double );         

#endif