-/* Copyright (c) 2007-2020. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-2021. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
#include "smpi_info.hpp"
+#include "smpi_comm.hpp"
#include "simgrid/Exception.hpp"
namespace simgrid {
void Info::unref(Info* info){
info->refcount_--;
if(info->refcount_==0){
+ F2C::free_f(info->f2c_id());
delete info;
}
}
-int Info::get(const char *key, int valuelen, char *value, int *flag){
+int Info::get(const char* key, int valuelen, char* value, int* flag) const
+{
*flag=false;
auto val = map_.find(key);
if (val != map_.end()) {
return MPI_SUCCESS;
}
-int Info::get_nkeys(int *nkeys){
+int Info::get_nkeys(int* nkeys) const
+{
*nkeys = map_.size();
return MPI_SUCCESS;
}
-int Info::get_nthkey(int n, char *key){
+int Info::get_nthkey(int n, char* key) const
+{
int num=0;
for (auto const& elm : map_) {
if (num == n) {
return MPI_ERR_ARG;
}
-int Info::get_valuelen(const char *key, int *valuelen, int *flag){
+int Info::get_valuelen(const char* key, int* valuelen, int* flag) const
+{
*flag=false;
auto val = map_.find(key);
if (val != map_.end()) {