src/smpi/mpi/smpi_errhandler.cpp

   1 /* Copyright (c) 2007-2020. The SimGrid Team. All rights reserved.          */
   2
   3 /* This program is free software; you can redistribute it and/or modify it
   4  * under the terms of the license (GNU LGPL) which comes with this package. */
   5
   6 #include "smpi_errhandler.hpp"
   7 #include "private.hpp"
   8
   9 #include <cstdio>
  10
  11 simgrid::smpi::Errhandler mpi_MPI_ERRORS_RETURN;
  12 MPI_Errhandler MPI_ERRORS_RETURN=&mpi_MPI_ERRORS_RETURN;
  13 simgrid::smpi::Errhandler mpi_MPI_ERRORS_ARE_FATAL;
  14 MPI_Errhandler MPI_ERRORS_ARE_FATAL=&mpi_MPI_ERRORS_ARE_FATAL;
  15
  16 namespace simgrid{
  17 namespace smpi{
  18
  19 MPI_Errhandler Errhandler::f2c(int id) {
  20   if(F2C::f2c_lookup() != nullptr && id >= 0) {
  21     char key[KEY_SIZE];
  22     return static_cast<MPI_Errhandler>(F2C::f2c_lookup()->at(get_key(key, id)));
  23   } else {
  24     return MPI_ERRHANDLER_NULL;
  25   }
  26 }
  27
  28 void Errhandler::call(MPI_Comm comm, int errorcode) const
  29 {
  30   comm_func_(&comm, &errorcode);
  31 }
  32
  33 void Errhandler::call(MPI_Win win, int errorcode) const
  34 {
  35   win_func_(&win, &errorcode);
  36 }
  37
  38 void Errhandler::call(MPI_File file, int errorcode) const
  39 {
  40   file_func_(&file, &errorcode);
  41 }
  42
  43 void Errhandler::ref()
  44 {
  45   refcount_++;
  46 }
  47
  48 void Errhandler::unref(Errhandler* errhandler){
  49   errhandler->refcount_--;
  50   if(errhandler->refcount_==0){
  51     delete errhandler;
  52   }
  53 }
  54
  55 }
  56 }