if (request == NULL || flag == NULL) {
retval = MPI_ERR_ARG;
} else if (*request == MPI_REQUEST_NULL) {
- *flag= TRUE;
+ *flag= true;
smpi_empty_status(status);
retval = MPI_SUCCESS;
} else {
} else if (comm == MPI_COMM_NULL) {
retval = MPI_ERR_COMM;
} else if (source == MPI_PROC_NULL) {
- *flag=TRUE;
+ *flag=true;
smpi_empty_status(status);
status->MPI_SOURCE = MPI_PROC_NULL;
retval = MPI_SUCCESS;
}
int PMPI_Info_get(MPI_Info info,char *key,int valuelen, char *value, int *flag){
- *flag=FALSE;
+ *flag=false;
if (info == NULL || key == NULL || valuelen <0)
return MPI_ERR_ARG;
if (value == NULL)
char* tmpvalue=(char*)xbt_dict_get_or_null(info->info_dict, key);
if(tmpvalue){
memcpy(value,tmpvalue, (strlen(tmpvalue) + 1 < static_cast<size_t>(valuelen)) ? strlen(tmpvalue) + 1 : valuelen);
- *flag=TRUE;
+ *flag=true;
}
return MPI_SUCCESS;
}
}
int PMPI_Info_get_valuelen( MPI_Info info, char *key, int *valuelen, int *flag){
- *flag=FALSE;
+ *flag=false;
if (info == NULL || key == NULL || valuelen==NULL || *valuelen <0)
return MPI_ERR_ARG;
char* tmpvalue=(char*)xbt_dict_get_or_null(info->info_dict, key);
if(tmpvalue){
*valuelen=strlen(tmpvalue);
- *flag=TRUE;
+ *flag=true;
}
return MPI_SUCCESS;
}