Sajina PK
916aac1e92
- Move the MPI gotcha functionality from Timemory to the repo.
- Add the PMPI Fortran MPI functions to the existing mpi gotcha handle.
[ROCm/rocprofiler-systems commit: 4fcd8cc78d]
87 строки
3.1 KiB
C++
87 строки
3.1 KiB
C++
// MIT License
|
|
//
|
|
// Copyright (c) 2022-2025 Advanced Micro Devices, Inc. All Rights Reserved.
|
|
//
|
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
// of this software and associated documentation files (the "Software"), to deal
|
|
// in the Software without restriction, including without limitation the rights
|
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
// copies of the Software, and to permit persons to whom the Software is
|
|
// furnished to do so, subject to the following conditions:
|
|
//
|
|
// The above copyright notice and this permission notice shall be included in all
|
|
// copies or substantial portions of the Software.
|
|
//
|
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
// SOFTWARE.
|
|
|
|
#pragma once
|
|
|
|
#include "core/common.hpp"
|
|
#include "core/defines.hpp"
|
|
#include "core/mpi.hpp"
|
|
#include "core/timemory.hpp"
|
|
|
|
#include <cstdint>
|
|
|
|
namespace rocprofsys
|
|
{
|
|
namespace component
|
|
{
|
|
// this is used to wrap MPI_Init and MPI_Init_thread
|
|
struct mpi_gotcha : comp::base<mpi_gotcha, void>
|
|
{
|
|
using comm_t = rocprofsys::mpi::comm_t;
|
|
using gotcha_data_t = comp::gotcha_data;
|
|
|
|
ROCPROFSYS_DEFAULT_OBJECT(mpi_gotcha)
|
|
|
|
// string id for component
|
|
static std::string label() { return "mpi_gotcha"; }
|
|
|
|
// generate the gotcha wrappers
|
|
static void configure();
|
|
static void shutdown();
|
|
|
|
// called right before MPI_Init with that functions arguments
|
|
static void audit(const gotcha_data_t& _data, audit::incoming, int*, char***);
|
|
|
|
// called right before MPI_Init_thread with that functions arguments
|
|
static void audit(const gotcha_data_t& _data, audit::incoming, int*, char***, int,
|
|
int*);
|
|
|
|
// called right before MPI_Finalize
|
|
static void audit(const gotcha_data_t& _data, audit::incoming);
|
|
|
|
// called right before MPI_Comm_{rank,size} with that functions arguments
|
|
void audit(const gotcha_data_t& _data, audit::incoming, comm_t, int*);
|
|
|
|
// called right after MPI_{Init,Init_thread,Comm_rank,Comm_size} with the return value
|
|
void audit(const gotcha_data_t& _data, audit::outgoing, int _retval);
|
|
|
|
// without these you will get a verbosity level 1 warning
|
|
static void start() {}
|
|
static void stop() {}
|
|
|
|
static bool update();
|
|
static uintptr_t null_comm() { return std::numeric_limits<uintptr_t>::max(); }
|
|
static void disable_comm_intercept();
|
|
|
|
private:
|
|
int m_rank = 0;
|
|
int m_size = 1;
|
|
int* m_rank_ptr = nullptr;
|
|
int* m_size_ptr = nullptr;
|
|
uintptr_t m_comm_val = null_comm();
|
|
};
|
|
} // namespace component
|
|
|
|
using mpi_gotcha_t =
|
|
comp::gotcha<10, tim::component_tuple<component::mpi_gotcha>, project::rocprofsys>;
|
|
} // namespace rocprofsys
|