rocm-systems/projects/rocprofiler-systems/source/lib/rocprof-sys/library/causal/sampling.cpp

// 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.

#include "library/causal/sampling.hpp"
#include "binary/analysis.hpp"
#include "core/common.hpp"
#include "core/concepts.hpp"
#include "core/config.hpp"
#include "core/locking.hpp"
#include "core/state.hpp"
#include "core/utility.hpp"
#include "library/causal/components/backtrace.hpp"
#include "library/causal/data.hpp"
#include "library/causal/sample_data.hpp"
#include "library/perf.hpp"
#include "library/ptl.hpp"
#include "library/runtime.hpp"
#include "library/sampling.hpp"
#include "library/thread_data.hpp"
#include "library/thread_info.hpp"

#include <timemory/macros.hpp>
#include <timemory/mpl/types.hpp>
#include <timemory/sampling/allocator.hpp>
#include <timemory/sampling/overflow.hpp>
#include <timemory/sampling/sampler.hpp>
#include <timemory/sampling/timer.hpp>
#include <timemory/units.hpp>
#include <timemory/utility/backtrace.hpp>
#include <timemory/variadic.hpp>

#include "logger/debug.hpp"

#include <csignal>
#include <cstring>
#include <ctime>
#include <memory>
#include <mutex>
#include <sstream>
#include <string>
#include <type_traits>

namespace rocprofsys
{
namespace causal
{
namespace sampling
{
using ::tim::sampling::dynamic;
using ::tim::sampling::overflow;
using ::tim::sampling::timer;

using causal_bundle_t =
    tim::lightweight_tuple<causal::component::overflow, causal::component::backtrace>;
using causal_sampler_t  = tim::sampling::sampler<causal_bundle_t, dynamic>;
using backtrace_enabled = trait::runtime_enabled<component::backtrace>;
using overflow_enabled  = trait::runtime_enabled<component::overflow>;
}  // namespace sampling
}  // namespace causal
}  // namespace rocprofsys

ROCPROFSYS_DEFINE_CONCRETE_TRAIT(prevent_reentry, causal::sampling::causal_sampler_t,
                                 std::true_type)

ROCPROFSYS_DEFINE_CONCRETE_TRAIT(provide_backtrace, causal::sampling::causal_sampler_t,
                                 std::false_type)

ROCPROFSYS_DEFINE_CONCRETE_TRAIT(buffer_size, causal::sampling::causal_sampler_t,
                                 TIMEMORY_ESC(std::integral_constant<size_t, 4096>))

namespace rocprofsys
{
namespace causal
{
namespace sampling
{
namespace
{
using causal_sampler_allocator_t = typename causal_sampler_t::allocator_t;
using causal_sampler_bundle_t    = typename causal_sampler_t::bundle_type;
using causal_sampler_buffer_t = tim::data_storage::ring_buffer<causal_sampler_bundle_t>;

struct causal_sampling
{};

std::set<int>
configure(bool _setup, int64_t _tid = threading::get_id());

std::shared_ptr<causal_sampler_allocator_t>&
get_causal_sampler_allocator(bool _construct)
{
    static auto _v = std::shared_ptr<causal_sampler_allocator_t>{};
    if(!_v && _construct) _v = std::make_shared<causal_sampler_allocator_t>();
    return _v;
}

auto&
get_causal_sampler_signals()
{
    using thread_data_t = thread_data<identity<std::set<int>>, causal_sampling>;
    static auto& _v     = thread_data_t::instance(construct_on_init{});
    return _v;
}

auto&
get_causal_sampler_running()
{
    using thread_data_t = thread_data<identity<bool>, causal_sampling>;
    static auto& _v     = thread_data_t::instance(construct_on_init{});
    return _v;
}

auto&
get_causal_samplers()
{
    using thread_data_t =
        thread_data<identity<std::unique_ptr<causal_sampler_t>>, causal_sampling>;
    static auto& _v = thread_data_t::instance(construct_on_init{});
    return _v;
}

std::set<int>&
get_causal_sampler_signals(int64_t _tid)
{
    auto& _data = get_causal_sampler_signals();
    if(static_cast<size_t>(_tid) >= _data->size())
        _data->resize(_tid + 1, std::set<int>{});
    return _data->at(_tid);
}

bool&
get_causal_sampler_running(int64_t _tid)
{
    auto& _data = get_causal_sampler_running();
    if(static_cast<size_t>(_tid) >= _data->size()) _data->resize(_tid + 1, false);
    return _data->at(_tid);
}

auto&
get_causal_sampler(int64_t _tid)
{
    auto& _data = get_causal_samplers();
    if(static_cast<size_t>(_tid) >= _data->size()) _data->resize(_tid + 1);
    return _data->at(_tid);
}

void
causal_offload_buffer(int64_t, causal_sampler_buffer_t&& _buf)
{
    auto _data      = std::move(_buf);
    auto _processed = std::map<uint32_t, std::map<uintptr_t, uint64_t>>{};
    while(!_data.is_empty())
    {
        auto _bundle = causal_sampler_bundle_t{};
        _data.read(&_bundle);

        const auto* _bt_causal = _bundle.get<causal::component::backtrace>();
        if(_bt_causal)
        {
            auto _stack = _bt_causal->get_stack();

            for(auto itr : _stack)
            {
                if(itr > 0) _processed[_bt_causal->get_index()][itr] += 1;
            }
        }

        const auto* _of_causal = _bundle.get<causal::component::overflow>();
        if(_of_causal)
        {
            const auto& _stack = _of_causal->get_stack();

            for(const auto& ditr : _stack)
            {
                for(auto aitr : ditr)
                {
                    if(aitr > 0) _processed[_of_causal->get_index()][aitr] += 1;
                }
            }
        }
    }
    _data.destroy();

    if(!_processed.empty())
    {
        static auto _mutex = locking::atomic_mutex{};
        auto        _lk    = locking::atomic_lock{ _mutex };
        for(const auto& itr : _processed)
        {
            add_samples(itr.first, itr.second);
        }
    }
}

std::set<int>
configure(bool _setup, int64_t _tid)
{
    const auto& _info         = thread_info::get(_tid, SequentTID);
    auto&       _causal       = get_causal_sampler(_tid);
    auto&       _causal_perf  = perf::get_instance(_tid);
    auto&       _running      = get_causal_sampler_running(_tid);
    auto&       _signal_types = get_causal_sampler_signals(_tid);

    if(get_use_sampling())
    {
        throw std::runtime_error("Internal error! configuring causal profiling not "
                                 "permitted when sampling is enabled");
    }

    ROCPROFSYS_SCOPED_SAMPLING_ON_CHILD_THREADS(false);

    if(_setup && _signal_types.empty()) _signal_types = get_sampling_signals(_tid);

    // initialize
    if(_setup)
    {
        using global_init_mode = operation::mode_constant<operation::init_mode::global>;
        using thread_init_mode = operation::mode_constant<operation::init_mode::thread>;
        // initialize backtrace
        operation::init<component::backtrace>{}(global_init_mode{});
        operation::init<component::backtrace>{}(thread_init_mode{});
        // initialize overflow
        operation::init<component::overflow>{}(global_init_mode{});
        operation::init<component::overflow>{}(thread_init_mode{});
    }

    if(_setup && !_causal && !_running && !_signal_types.empty())
    {
        auto _verbose = std::min<int>(get_verbose() - 2, 2);
        if(get_debug_sampling()) _verbose = 2;

        // if this thread has an offset ID, that means it was created internally
        // and is probably here bc it called a function which was instrumented.
        // thus we should not start a sampler for it
        if(_tid > 0 && _info && _info->is_offset) return std::set<int>{};
        // if the thread state is disabled or completed, return
        if(_info && _info->index_data->sequent_value == _tid &&
           get_thread_state() == ThreadState::Disabled)
            return std::set<int>{};

        (void) get_debug_sampling();  // make sure query in sampler does not allocate
        assert(_tid == threading::get_id());

        auto _causal_alloc = get_causal_sampler_allocator(true);
        _causal = std::make_unique<causal_sampler_t>(_causal_alloc, "rocprofsys", _tid,
                                                     _verbose);

        auto _activate_perf_backend = [&_causal, &_causal_perf, &_info, &_tid]() {
            _causal_perf = std::make_unique<perf::perf_event>();
            auto _open_error =
                _causal_perf->open(1000.0, 10, _info->index_data->system_value);
            if(_open_error)
            {
                _causal_perf.reset();
            }
            else
            {
                overflow_enabled::set(true);
                overflow_enabled::set(scope::thread_scope{}, true);
                backtrace_enabled::set(false);
                backtrace_enabled::set(scope::thread_scope{}, false);
                _causal->configure(overflow{ get_sampling_overflow_signal(),
                                             [](int, pid_t, long, int64_t) {
                                                 // perf::get_instance(_idx)->set_ready_signal(_sig);
                                                 return true;
                                             },
                                             [](int, pid_t, long, int64_t _idx) {
                                                 return perf::get_instance(_idx)->start();
                                             },
                                             [](int, pid_t, long, int64_t _idx) {
                                                 return perf::get_instance(_idx)->stop();
                                             },
                                             _tid, threading::get_sys_tid() });
                if(_tid == 0) LOG_DEBUG("Causal profiling backend: perf");
            }

            return _open_error;
        };

        auto _activate_timer_backend = [&_causal, &_tid]() {
            backtrace_enabled::set(true);
            backtrace_enabled::set(scope::thread_scope{}, true);
            overflow_enabled::set(false);
            overflow_enabled::set(scope::thread_scope{}, false);
            _causal->configure(timer{ get_sampling_realtime_signal(), CLOCK_REALTIME,
                                      SIGEV_THREAD_ID, 1000.0, 1.0e-6, _tid,
                                      threading::get_sys_tid() });
            if(_tid == 0) LOG_DEBUG("Causal profiling backend: timer");
            return true;
        };

        if(!_causal)
        {
            LOG_CRITICAL("nullptr to causal profiling instance");
            ::rocprofsys::set_state(::rocprofsys::State::Finalized);
            std::abort();
        }

        _causal->set_flags(SA_RESTART);
        _causal->set_verbose(_verbose);
        _causal->set_offload(&causal_offload_buffer);

        if(get_causal_backend() == CausalBackend::Perf)
        {
            auto _perf_error = _activate_perf_backend();
            if(_perf_error)
            {
                LOG_ERROR("Perf backend for causal profiling failed to activate: {}",
                          *_perf_error);
                std::exit(1);
            }
        }
        else if(get_causal_backend() == CausalBackend::Timer)
        {
            if(!_activate_timer_backend())
            {
                LOG_ERROR("Timer backend for causal profiling failed to activate");
                std::exit(1);
            }
        }
        else if(get_causal_backend() == CausalBackend::Auto)
        {
            auto _perf_error = _activate_perf_backend();
            if(!_perf_error)
            {
                config::set_setting_value("ROCPROFSYS_CAUSAL_BACKEND",
                                          std::string{ "perf" });
            }
            else
            {
                LOG_WARNING("Perf backend for causal profiling failed to activate: {}",
                            _perf_error->c_str());

                if(!_activate_timer_backend())
                {
                    LOG_ERROR("Timer backend for causal profiling failed to activate");
                    std::exit(1);
                }

                config::set_setting_value("ROCPROFSYS_CAUSAL_BACKEND",
                                          std::string{ "timer" });
            }
        }

        _causal->configure(timer{ get_sampling_cputime_signal(), CLOCK_THREAD_CPUTIME_ID,
                                  SIGEV_THREAD_ID, 1000.0, 1.0e-6, _tid,
                                  threading::get_sys_tid() });

        _running = true;
        _causal->start();
    }
    else if(!_setup && _causal && _running)
    {
        LOG_DEBUG("Destroying causal sampler for thread {}...", _tid);
        _running = false;

        if(_tid == threading::get_id() && !_signal_types.empty())
            block_signals(_signal_types);

        if(_tid == 0)
        {
            block_samples();

            // this propagates to all threads
            _causal->ignore(_signal_types);

            for(int64_t i = 1; i < ROCPROFSYS_MAX_THREADS; ++i)
            {
                if(get_causal_sampler(i))
                {
                    get_causal_sampler(i)->stop();
                    get_causal_sampler(i)->reset();
                }

                if(perf::get_instance(i))
                {
                    perf::get_instance(i).reset();
                }
            }
        }

        _causal->stop();
        _causal->reset();

        if(_causal_perf)
        {
            _causal_perf.reset();
        }

        LOG_DEBUG("Causal sampler destroyed for thread {}...", _tid);
    }

    return _signal_types;
}

void
post_process_causal(int64_t _tid, const std::vector<causal_bundle_t>& _data);
}  // namespace

std::set<int>
get_signal_types(int64_t _tid)
{
    return (get_causal_sampler_signals()) ? get_causal_sampler_signals(_tid)
                                          : std::set<int>{};
}

std::set<int>
setup()
{
    if(!get_use_causal()) return std::set<int>{};
    return configure(true);
}

std::set<int>
shutdown()
{
    auto _v = configure(false);
    return _v;
}

void
block_samples()
{
    trait::runtime_enabled<causal_sampler_t>::set(false);
    trait::runtime_enabled<causal::component::backtrace>::set(false);
}

void
unblock_samples()
{
    trait::runtime_enabled<causal::component::backtrace>::set(true);
    trait::runtime_enabled<causal_sampler_t>::set(true);
}

void
block_backtrace_samples()
{
    pause(scope::thread_scope{});
}

void
unblock_backtrace_samples()
{
    resume(scope::thread_scope{});
}

namespace
{
std::optional<bool>              _process_paused = {};
thread_local std::optional<bool> _thread_paused  = {};
namespace signals                                = ::tim::signals;

const auto&
sampling_signals()
{
    static thread_local auto _v = get_signal_types(threading::get_id());
    return _v;
}
}  // namespace

template <typename ScopeT>
void
pause(ScopeT)
{
    static_assert(
        tim::is_one_of<ScopeT,
                       type_list<scope::thread_scope, scope::process_scope>>::value,
        "Unsupported scope");

    if constexpr(std::is_same<ScopeT, scope::thread_scope>::value)
    {
        if(!_thread_paused) _thread_paused = false;

        bool _paused_v = *_thread_paused;
        if(!_paused_v)
        {
            auto& _causal_perf = perf::get_instance(threading::get_id());
            if(_causal_perf) _causal_perf->stop();
            signals::block_signals(sampling_signals(), signals::sigmask_scope::thread);
            _thread_paused = true;
        }
    }
    else
    {
        if(!_process_paused) _process_paused = false;

        bool _paused_v = *_process_paused;
        if(!_paused_v)
        {
            for(auto i = 0; i < ROCPROFSYS_MAX_THREADS; ++i)
            {
                auto& _causal_perf = perf::get_instance(i);
                if(_causal_perf) _causal_perf->stop();
            }
            signals::block_signals(sampling_signals(), signals::sigmask_scope::process);
            _process_paused = true;
        }
    }
}

template <typename ScopeT>
void
resume(ScopeT)
{
    static_assert(
        tim::is_one_of<ScopeT,
                       type_list<scope::thread_scope, scope::process_scope>>::value,
        "Unsupported scope");

    if constexpr(std::is_same<ScopeT, scope::thread_scope>::value)
    {
        if(!_thread_paused) _thread_paused = true;

        bool _paused_v = *_thread_paused;
        if(_paused_v)
        {
            auto& _causal_perf = perf::get_instance(threading::get_id());
            if(_causal_perf) _causal_perf->start();
            signals::unblock_signals(sampling_signals(), signals::sigmask_scope::thread);
            _thread_paused = false;
        }
    }
    else
    {
        if(!_process_paused) _process_paused = true;

        bool _paused_v = *_process_paused;
        if(_paused_v)
        {
            for(auto i = 0; i < ROCPROFSYS_MAX_THREADS; ++i)
            {
                auto& _causal_perf = perf::get_instance(i);
                if(_causal_perf) _causal_perf->start();
            }
            signals::unblock_signals(sampling_signals(), signals::sigmask_scope::process);
            _process_paused = false;
        }
    }
}

template void pause<scope::thread_scope>(scope::thread_scope);
template void pause<scope::process_scope>(scope::process_scope);

template void resume<scope::thread_scope>(scope::thread_scope);
template void resume<scope::process_scope>(scope::process_scope);

void
block_signals(std::set<int> _signals)
{
    if(_signals.empty()) _signals = get_signal_types(threading::get_id());
    if(_signals.empty()) return;

    ::rocprofsys::sampling::block_signals(_signals);
}

void
unblock_signals(std::set<int> _signals)
{
    if(_signals.empty()) _signals = get_signal_types(threading::get_id());
    if(_signals.empty()) return;

    ::rocprofsys::sampling::unblock_signals(_signals);
}

void
post_process()
{
    ROCPROFSYS_SCOPED_THREAD_STATE(ThreadState::Internal);

    if(get_debug_sampling())
    {
        LOG_DEBUG("Stopping causal sampling components...");
    }

    block_samples();

    for(size_t i = 0; i < thread_info::get_peak_num_threads(); ++i)
    {
        auto& _causal = get_causal_sampler(i);
        if(_causal) _causal->stop();
        auto& _causal_perf = perf::get_instance(i);
        if(_causal_perf) _causal_perf->stop();
    }

    configure(false, 0);

    auto _allocator = get_causal_sampler_allocator(false);
    if(_allocator) _allocator->flush();

    for(size_t i = 0; i < thread_info::get_peak_num_threads(); ++i)
    {
        auto& _causal = get_causal_sampler(i);
        auto  _causal_data =
            (_causal) ? _causal->get_data() : std::vector<sampling::causal_bundle_t>{};

        if(!_causal_data.empty()) post_process_causal(i, _causal_data);
    }

    for(size_t i = 0; i < thread_info::get_peak_num_threads(); ++i)
    {
        get_causal_sampler(i).reset();

        auto& _causal_perf = perf::get_instance(i);
        if(_causal_perf)
        {
            _causal_perf.reset();
        }
    }

    if(_allocator) _allocator.reset();
}

namespace
{
void
post_process_causal(int64_t, const std::vector<causal_bundle_t>& _data)
{
    for(const auto& itr : _data)
    {
        const auto* _bt_causal = itr.get<causal::component::backtrace>();
        if(_bt_causal)
        {
            auto _stack = _bt_causal->get_stack();
            for(auto&& ditr : _stack)
            {
                if(ditr > 0) add_sample(_bt_causal->get_index(), ditr);
            }
        }

        const auto* _of_causal = itr.get<causal::component::overflow>();
        if(_of_causal)
        {
            const auto& _stack = _of_causal->get_stack();

            for(const auto& ditr : _stack)
            {
                for(auto aitr : ditr)
                {
                    if(aitr > 0) add_sample(_of_causal->get_index(), aitr);
                }
            }
        }
    }
}
}  // namespace
}  // namespace sampling
}  // namespace causal
}  // namespace rocprofsys