xref: /llvm-project/openmp/libompd/src/omp-state.cpp (revision b0277bef9739d5e3a3feb89ff9c1aaa90a801ee0)

/*
 * omp-state.cpp -- OMPD states
 */

//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//

#include "omp-debug.h"
#include "ompd-private.h"
#include <cstring>

void __ompd_init_states(const ompd_callbacks_t *table) { callbacks = table; }

static const char *get_ompd_state_name(ompd_word_t state) {
  switch (state) {
#define ompd_state_macro(state, code)                                          \
  case code:                                                                   \
    return #state;
    FOREACH_OMPD_STATE(ompd_state_macro)
#undef ompd_state_macro
  default:
    return NULL;
  }
}

ompd_rc_t
ompd_enumerate_states(ompd_address_space_handle_t *address_space_handle,
                      ompd_word_t current_state, ompd_word_t *next_state,
                      const char **next_state_name, ompd_word_t *more_enums) {
  ompd_rc_t ret;
  if (current_state > ompt_state_undefined &&
      current_state >= OMPD_LAST_OMP_STATE) {
    return ompd_rc_bad_input;
  }
  const char *find_next_state_name;
  *next_state = (current_state == ompt_state_undefined ? ompt_state_work_serial
                                                       : current_state + 1);
  while (!(find_next_state_name = get_ompd_state_name(*next_state))) {
    ++(*next_state);
  }

  char *next_state_name_cpy;
  ret = callbacks->alloc_memory(strlen(find_next_state_name) + 1,
                                (void **)&next_state_name_cpy);
  if (ret != ompd_rc_ok) {
    return ret;
  }
  strcpy(next_state_name_cpy, find_next_state_name);

  *next_state_name = next_state_name_cpy;

  if (*next_state == OMPD_LAST_OMP_STATE) {
    *more_enums = 0;
  } else {
    *more_enums = 1;
  }

  return ompd_rc_ok;
}