Taking care of the source pointer.

This commit was SVN r6691.

ompi/datatype/dt_pack.c

@@ -780,6 +780,7 @@ ompi_convertor_prepare_for_send( ompi_convertor_t* convertor,
         else
             convertor->fAdvance = ompi_convertor_pack_no_conv_contig_with_gaps;
     }
+
     return OMPI_SUCCESS;
 }
 

ompi/datatype/new_pack.c

@@ -145,6 +145,7 @@ int ompi_convertor_generic_simple_pack( ompi_convertor_t* pConvertor,
     pConvertor->stack_pos--;
     pElem = &(description[pos_desc]); 
     source_base = pConvertor->pBaseBuf + pStack->disp;
+    source = source_base + disp_desc;
 
     for( iov_count = 0; iov_count < (*out_size); iov_count++ ) {
         if( pConvertor->bConverted == (pData->size * pConvertor->count) )
@@ -187,6 +188,7 @@ int ompi_convertor_generic_simple_pack( ompi_convertor_t* pConvertor,
             }
             if( DT_LOOP == pElem->elem.common.type ) {
                 if( pElem->loop.common.flags & DT_FLAG_CONTIGUOUS ) {
+                    source = source_base + disp_desc;
                     PACK_CONTIGUOUS_LOOP( pConvertor, pElem, count_desc, 
                                           source, destination, iov_len_local );
                     if( 0 == count_desc ) {  /* completed */