1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
* Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2017 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2006 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2006 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2009 Sun Microsystems, Inc. All rights reserved.
* Copyright (c) 2009 Oak Ridge National Labs. All rights reserved.
* Copyright (c) 2019 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "opal_config.h"
#include "opal/constants.h"
#include "opal/datatype/opal_datatype.h"
#include "opal/datatype/opal_datatype_internal.h"
/*
* As the new type has the same commit state as the old one, I have to copy the fake
* OPAL_DATATYPE_END_LOOP from the description (both normal and optimized).
*
* Clone all the values from oldType into newType without allocating a new datatype.
*/
int32_t opal_datatype_clone(const opal_datatype_t *src_type, opal_datatype_t *dest_type)
{
int32_t desc_length = src_type->desc.used
+ 1; /* +1 because of the fake OPAL_DATATYPE_END_LOOP entry */
dt_elem_desc_t *temp = dest_type->desc.desc; /* temporary copy of the desc pointer */
/* copy _excluding_ the super object, we want to keep the cls_destruct_array */
memcpy((char *) dest_type + sizeof(opal_object_t), (char *) src_type + sizeof(opal_object_t),
sizeof(opal_datatype_t) - sizeof(opal_object_t));
dest_type->flags &= (~OPAL_DATATYPE_FLAG_PREDEFINED);
dest_type->ptypes = NULL;
dest_type->desc.desc = temp;
/**
* Allow duplication of MPI_UB and MPI_LB.
*/
if (0 != src_type->desc.used) {
memcpy(dest_type->desc.desc, src_type->desc.desc, sizeof(dt_elem_desc_t) * desc_length);
if (0 != src_type->opt_desc.used) {
if (src_type->opt_desc.desc == src_type->desc.desc) {
dest_type->opt_desc = dest_type->desc;
} else {
desc_length = dest_type->opt_desc.used + 1;
dest_type->opt_desc.desc = (dt_elem_desc_t *) malloc(desc_length
* sizeof(dt_elem_desc_t));
/*
* Yes, the dest_type->opt_desc.length is just the opt_desc.used of the old Type.
*/
dest_type->opt_desc.length = src_type->opt_desc.used;
dest_type->opt_desc.used = src_type->opt_desc.used;
memcpy(dest_type->opt_desc.desc, src_type->opt_desc.desc,
desc_length * sizeof(dt_elem_desc_t));
}
} else {
assert(NULL == dest_type->opt_desc.desc);
assert(0 == dest_type->opt_desc.length);
}
}
dest_type->id = src_type->id; /* preserve the default id. This allow us to
* copy predefined types. */
return OPAL_SUCCESS;
}
|
