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
16 #define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */
17 #define DT_FLAG_COMMITED 0x0002 /**< ready to be used for a send/recv operation */
18 #define DT_FLAG_CONTIGUOUS 0x0004 /**< contiguous datatype */
19 #define DT_FLAG_OVERLAP 0x0008 /**< datatype is unpropper for a recv operation */
20 #define DT_FLAG_USER_LB 0x0010 /**< has a user defined LB */
21 #define DT_FLAG_USER_UB 0x0020 /**< has a user defined UB */
22 #define DT_FLAG_PREDEFINED 0x0040 /**< cannot be removed: initial and predefined datatypes */
23 #define DT_FLAG_NO_GAPS 0x0080 /**< no gaps around the datatype */
24 #define DT_FLAG_DATA 0x0100 /**< data or control structure */
25 #define DT_FLAG_ONE_SIDED 0x0200 /**< datatype can be used for one sided operations */
26 #define DT_FLAG_UNAVAILABLE 0x0400 /**< datatypes unavailable on the build (OS or compiler dependant) */
27 #define DT_FLAG_VECTOR 0x0800 /**< valid only for loops. The loop contain only one element
28 **< without extent. It correspond to the vector type. */
30 * We should make the difference here between the predefined contiguous and non contiguous
31 * datatypes. The DT_FLAG_BASIC is held by all predefined contiguous datatypes.
33 #define DT_FLAG_BASIC (DT_FLAG_PREDEFINED | DT_FLAG_CONTIGUOUS | DT_FLAG_NO_GAPS | DT_FLAG_DATA | DT_FLAG_COMMITED)
35 extern const MPI_Datatype MPI_PTR;
38 //*****************************************************************************************
41 These are the structures that handle complex data type information,
42 used for serialization/unserialization of messages
45 typedef struct s_smpi_mpi_contiguous{
46 s_smpi_subtype_t base;
47 MPI_Datatype old_type;
51 } s_smpi_mpi_contiguous_t;
53 typedef struct s_smpi_mpi_vector{
54 s_smpi_subtype_t base;
55 MPI_Datatype old_type;
60 } s_smpi_mpi_vector_t;
62 typedef struct s_smpi_mpi_hvector{
63 s_smpi_subtype_t base;
64 MPI_Datatype old_type;
66 MPI_Aint block_stride;
69 } s_smpi_mpi_hvector_t;
71 typedef struct s_smpi_mpi_indexed{
72 s_smpi_subtype_t base;
73 MPI_Datatype old_type;
78 } s_smpi_mpi_indexed_t;
80 typedef struct s_smpi_mpi_hindexed{
81 s_smpi_subtype_t base;
82 MPI_Datatype old_type;
85 MPI_Aint* block_indices;
87 } s_smpi_mpi_hindexed_t;
89 typedef struct s_smpi_mpi_struct{
90 s_smpi_subtype_t base;
91 MPI_Datatype old_type;
94 MPI_Aint* block_indices;
96 MPI_Datatype* old_types;
97 } s_smpi_mpi_struct_t;
100 Functions to handle serialization/unserialization of messages, 3 for each type of MPI_Type
101 One for creating the substructure to handle, one for serialization, one for unserialization
103 XBT_PRIVATE void unserialize_contiguous( const void *contiguous_vector,
104 void *noncontiguous_vector,
109 XBT_PRIVATE void serialize_contiguous( const void *noncontiguous_vector,
110 void *contiguous_vector,
114 XBT_PRIVATE void free_contiguous(MPI_Datatype* type);
116 XBT_PRIVATE s_smpi_mpi_contiguous_t* smpi_datatype_contiguous_create( MPI_Aint lb,
118 MPI_Datatype old_type,
121 XBT_PRIVATE void unserialize_vector( const void *contiguous_vector,
122 void *noncontiguous_vector,
127 XBT_PRIVATE void serialize_vector( const void *noncontiguous_vector,
128 void *contiguous_vector,
132 XBT_PRIVATE void free_vector(MPI_Datatype* type);
134 XBT_PRIVATE s_smpi_mpi_vector_t* smpi_datatype_vector_create( int block_stride,
137 MPI_Datatype old_type,
140 XBT_PRIVATE void unserialize_hvector( const void *contiguous_vector,
141 void *noncontiguous_vector,
146 XBT_PRIVATE void serialize_hvector( const void *noncontiguous_vector,
147 void *contiguous_vector,
151 XBT_PRIVATE void free_hvector(MPI_Datatype* type);
153 XBT_PRIVATE s_smpi_mpi_hvector_t* smpi_datatype_hvector_create( MPI_Aint block_stride,
156 MPI_Datatype old_type,
160 XBT_PRIVATE void unserialize_indexed( const void *contiguous_indexed,
161 void *noncontiguous_indexed,
166 XBT_PRIVATE void serialize_indexed( const void *noncontiguous_vector,
167 void *contiguous_vector,
171 XBT_PRIVATE void free_indexed(MPI_Datatype* type);
173 XBT_PRIVATE s_smpi_mpi_indexed_t* smpi_datatype_indexed_create(int* block_lengths,
176 MPI_Datatype old_type,
179 XBT_PRIVATE void unserialize_hindexed( const void *contiguous_indexed,
180 void *noncontiguous_indexed,
185 XBT_PRIVATE void serialize_hindexed( const void *noncontiguous_vector,
186 void *contiguous_vector,
190 XBT_PRIVATE void free_hindexed(MPI_Datatype* type);
192 XBT_PRIVATE s_smpi_mpi_hindexed_t* smpi_datatype_hindexed_create(int* block_lengths,
193 MPI_Aint* block_indices,
195 MPI_Datatype old_type,
198 XBT_PRIVATE void unserialize_struct( const void *contiguous_indexed,
199 void *noncontiguous_indexed,
204 XBT_PRIVATE void serialize_struct( const void *noncontiguous_vector,
205 void *contiguous_vector,
209 XBT_PRIVATE void free_struct(MPI_Datatype* type);
211 XBT_PRIVATE s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths,
212 MPI_Aint* block_indices,
214 MPI_Datatype* old_types);