X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/dbfe89d3374d21b871e1114e7650717fd6b826d4..617d14f39e028a3bf39fc8e0ce691ed2e709bc8e:/src/smpi/include/smpi_op.hpp diff --git a/src/smpi/include/smpi_op.hpp b/src/smpi/include/smpi_op.hpp index bfb1e7d8c9..66a561d013 100644 --- a/src/smpi/include/smpi_op.hpp +++ b/src/smpi/include/smpi_op.hpp @@ -1,4 +1,4 @@ -/* Copyright (c) 2009-2021. The SimGrid Team. +/* Copyright (c) 2009-2022. The SimGrid Team. * All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it @@ -19,13 +19,20 @@ class Op : public F2C{ int refcount_ = 1; bool is_predefined_; int types_; //bitmask of the allowed datatypes flags + std::string name_; public: - Op(MPI_User_function* function, bool commutative, bool predefined=false, int types=0) : func_(function), is_commutative_(commutative), is_predefined_(predefined), types_(types) {if(not predefined) this->add_f();} + Op(MPI_User_function* function, bool commutative, bool predefined = false, int types = 0, std::string name = "MPI_Op") + : func_(function), is_commutative_(commutative), is_predefined_(predefined), types_(types), name_(std::move(name)) + { + if (not predefined) + this->add_f(); + } bool is_commutative() const { return is_commutative_; } bool is_predefined() const { return is_predefined_; } bool is_fortran_op() const { return is_fortran_op_; } int allowed_types() const { return types_; } + std::string name() const override {return name_;} // tell that we were created from fortran, so we need to translate the type to fortran when called void set_fortran_op() { is_fortran_op_ = true; } void apply(const void* invec, void* inoutvec, const int* len, MPI_Datatype datatype) const;