1 /* smpi_mpi_dt_private.h -- functions of smpi_mpi_dt.c that are exported to other SMPI modules. */
3 /* Copyright (c) 2009-2010, 2012-2014. The SimGrid Team.
4 * All rights reserved. */
6 /* This program is free software; you can redistribute it and/or modify it
7 * under the terms of the license (GNU LGPL) which comes with this package. */
9 #ifndef SMPI_DT_PRIVATE_H
10 #define SMPI_DT_PRIVATE_H
18 #define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */
19 #define DT_FLAG_COMMITED 0x0002 /**< ready to be used for a send/recv operation */
20 #define DT_FLAG_CONTIGUOUS 0x0004 /**< contiguous datatype */
21 #define DT_FLAG_OVERLAP 0x0008 /**< datatype is unpropper for a recv operation */
22 #define DT_FLAG_USER_LB 0x0010 /**< has a user defined LB */
23 #define DT_FLAG_USER_UB 0x0020 /**< has a user defined UB */
24 #define DT_FLAG_PREDEFINED 0x0040 /**< cannot be removed: initial and predefined datatypes */
25 #define DT_FLAG_NO_GAPS 0x0080 /**< no gaps around the datatype */
26 #define DT_FLAG_DATA 0x0100 /**< data or control structure */
27 #define DT_FLAG_ONE_SIDED 0x0200 /**< datatype can be used for one sided operations */
28 #define DT_FLAG_UNAVAILABLE 0x0400 /**< datatypes unavailable on the build (OS or compiler dependant) */
29 #define DT_FLAG_VECTOR 0x0800 /**< valid only for loops. The loop contain only one element
30 **< without extent. It correspond to the vector type. */
32 * We should make the difference here between the predefined contiguous and non contiguous
33 * datatypes. The DT_FLAG_BASIC is held by all predefined contiguous datatypes.
35 #define DT_FLAG_BASIC (DT_FLAG_PREDEFINED | DT_FLAG_CONTIGUOUS | DT_FLAG_NO_GAPS | DT_FLAG_DATA | DT_FLAG_COMMITED)
37 extern const MPI_Datatype MPI_PTR;
40 //*****************************************************************************************
43 These are the structures that handle complex data type information,
44 used for serialization/unserialization of messages
47 typedef struct s_smpi_mpi_contiguous{
48 s_smpi_subtype_t base;
49 MPI_Datatype old_type;
53 } s_smpi_mpi_contiguous_t;
55 typedef struct s_smpi_mpi_vector{
56 s_smpi_subtype_t base;
57 MPI_Datatype old_type;
62 } s_smpi_mpi_vector_t;
64 typedef struct s_smpi_mpi_hvector{
65 s_smpi_subtype_t base;
66 MPI_Datatype old_type;
68 MPI_Aint block_stride;
71 } s_smpi_mpi_hvector_t;
73 typedef struct s_smpi_mpi_indexed{
74 s_smpi_subtype_t base;
75 MPI_Datatype old_type;
80 } s_smpi_mpi_indexed_t;
82 typedef struct s_smpi_mpi_hindexed{
83 s_smpi_subtype_t base;
84 MPI_Datatype old_type;
87 MPI_Aint* block_indices;
89 } s_smpi_mpi_hindexed_t;
91 typedef struct s_smpi_mpi_struct{
92 s_smpi_subtype_t base;
93 MPI_Datatype old_type;
96 MPI_Aint* block_indices;
98 MPI_Datatype* old_types;
99 } s_smpi_mpi_struct_t;
102 Functions to handle serialization/unserialization of messages, 3 for each type of MPI_Type
103 One for creating the substructure to handle, one for serialization, one for unserialization
105 XBT_PRIVATE void unserialize_contiguous( const void *contiguous_vector,
106 void *noncontiguous_vector,
111 XBT_PRIVATE void serialize_contiguous( const void *noncontiguous_vector,
112 void *contiguous_vector,
116 XBT_PRIVATE void free_contiguous(MPI_Datatype* type);
118 XBT_PRIVATE s_smpi_mpi_contiguous_t* smpi_datatype_contiguous_create( MPI_Aint lb,
120 MPI_Datatype old_type,
123 XBT_PRIVATE void unserialize_vector( const void *contiguous_vector,
124 void *noncontiguous_vector,
129 XBT_PRIVATE void serialize_vector( const void *noncontiguous_vector,
130 void *contiguous_vector,
134 XBT_PRIVATE void free_vector(MPI_Datatype* type);
136 XBT_PRIVATE s_smpi_mpi_vector_t* smpi_datatype_vector_create( int block_stride,
139 MPI_Datatype old_type,
142 XBT_PRIVATE void unserialize_hvector( const void *contiguous_vector,
143 void *noncontiguous_vector,
148 XBT_PRIVATE void serialize_hvector( const void *noncontiguous_vector,
149 void *contiguous_vector,
153 XBT_PRIVATE void free_hvector(MPI_Datatype* type);
155 XBT_PRIVATE s_smpi_mpi_hvector_t* smpi_datatype_hvector_create( MPI_Aint block_stride,
158 MPI_Datatype old_type,
162 XBT_PRIVATE void unserialize_indexed( const void *contiguous_indexed,
163 void *noncontiguous_indexed,
168 XBT_PRIVATE void serialize_indexed( const void *noncontiguous_vector,
169 void *contiguous_vector,
173 XBT_PRIVATE void free_indexed(MPI_Datatype* type);
175 XBT_PRIVATE s_smpi_mpi_indexed_t* smpi_datatype_indexed_create(int* block_lengths,
178 MPI_Datatype old_type,
181 XBT_PRIVATE void unserialize_hindexed( const void *contiguous_indexed,
182 void *noncontiguous_indexed,
187 XBT_PRIVATE void serialize_hindexed( const void *noncontiguous_vector,
188 void *contiguous_vector,
192 XBT_PRIVATE void free_hindexed(MPI_Datatype* type);
194 XBT_PRIVATE s_smpi_mpi_hindexed_t* smpi_datatype_hindexed_create(int* block_lengths,
195 MPI_Aint* block_indices,
197 MPI_Datatype old_type,
200 XBT_PRIVATE void unserialize_struct( const void *contiguous_indexed,
201 void *noncontiguous_indexed,
206 XBT_PRIVATE void serialize_struct( const void *noncontiguous_vector,
207 void *contiguous_vector,
211 XBT_PRIVATE void free_struct(MPI_Datatype* type);
213 XBT_PRIVATE s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths,
214 MPI_Aint* block_indices,
216 MPI_Datatype* old_types);