#include "defs.h"
#include "observer.h"
#include "gdbcmd.h"
#include "target.h"
#include "ada-lang.h"
#include "gdbcore.h"
#include "inferior.h"
#include "gdbthread.h"
#include "progspace.h"
#include "objfiles.h"

Classes
struct	atcb_fieldnos

struct	ada_tasks_pspace_data

struct	ada_tasks_inferior_data

Macros
#define	KNOWN_TASKS_NAME "system__tasking__debug__known_tasks"

#define	KNOWN_TASKS_LIST "system__tasking__debug__first_task"

Typedefs
typedef struct ada_task_info	ada_task_info_s

Functions
	DEF_VEC_O (ada_task_info_s)

static struct ada_tasks_pspace_data *	get_ada_tasks_pspace_data (struct program_space *pspace)

static struct ada_tasks_inferior_data *	get_ada_tasks_inferior_data (struct inferior *inf)

int	ada_get_task_number (ptid_t ptid)

static int	get_task_number_from_id (CORE_ADDR task_id, struct inferior *inf)

int	valid_task_id (int task_num)

static int	ada_task_is_alive (struct ada_task_info *task_info)

struct ada_task_info *	ada_get_task_info_from_ptid (ptid_t ptid)

void	iterate_over_live_ada_tasks (ada_task_list_iterator_ftype *iterator)

static void	value_as_string (char dest, struct value val, int length)

static void	read_fat_string_value (char dest, struct value val, int max_len)

const char *	ada_get_tcb_types_info (void)

static ptid_t	ptid_from_atcb_common (struct value *common_value)

static void	read_atcb (CORE_ADDR task_id, struct ada_task_info *task_info)

static void	add_ada_task (CORE_ADDR task_id, struct inferior *inf)

static int	read_known_tasks_array (struct ada_tasks_inferior_data *data)

static int	read_known_tasks_list (struct ada_tasks_inferior_data *data)

static void	ada_tasks_inferior_data_sniffer (struct ada_tasks_inferior_data *data)

static int	read_known_tasks (void)

int	ada_build_task_list (void)

void	print_ada_task_info (struct ui_out uiout, char arg_str, struct inferior *inf)

static void	info_task (struct ui_out uiout, const char taskno_str, struct inferior *inf)

static void	info_tasks_command (const char *arg, int from_tty)

static void	display_current_task_id (void)

static void	task_command_1 (const char taskno_str, int from_tty, struct inferior inf)

static void	task_command (const char *taskno_str, int from_tty)

static void	ada_task_list_changed (struct inferior *inf)

static void	ada_tasks_invalidate_pspace_data (struct program_space *pspace)

static void	ada_tasks_invalidate_inferior_data (struct inferior *inf)

static void	ada_tasks_normal_stop_observer (struct bpstats *unused_args, int unused_args2)

static void	ada_tasks_new_objfile_observer (struct objfile *objfile)

void	_initialize_tasks (void)

Variables
static const int	MAX_NUMBER_OF_KNOWN_TASKS = 1000

static const char *	task_states []

static const char *	long_task_states []

static const struct program_space_data *	ada_tasks_pspace_data_handle

static const struct inferior_data *	ada_tasks_inferior_data_handle

Macro Definition Documentation

◆ KNOWN_TASKS_LIST

#define KNOWN_TASKS_LIST "system__tasking__debug__first_task"

Definition at line 39 of file ada-tasks.c.

Referenced by ada_tasks_inferior_data_sniffer().

◆ KNOWN_TASKS_NAME

#define KNOWN_TASKS_NAME "system__tasking__debug__known_tasks"

Definition at line 31 of file ada-tasks.c.

Referenced by ada_tasks_inferior_data_sniffer().

Typedef Documentation

◆ ada_task_info_s

typedef struct ada_task_info ada_task_info_s

Definition at line 164 of file ada-tasks.c.

Enumeration Type Documentation

◆ ada_known_tasks_kind

enum ada_known_tasks_kind

Enumerator
ADA_TASKS_UNKNOWN
ADA_TASKS_NOT_FOUND
ADA_TASKS_ARRAY
ADA_TASKS_LIST

Definition at line 170 of file ada-tasks.c.

◆ task_states

enum task_states

Enumerator
Unactivated
Runnable
Terminated
Activator_Sleep
Acceptor_Sleep
Entry_Caller_Sleep
Async_Select_Sleep
Delay_Sleep
Master_Completion_Sleep
Master_Phase_2_Sleep
Interrupt_Server_Idle_Sleep
Interrupt_Server_Blocked_Interrupt_Sleep
Timer_Server_Sleep
AST_Server_Sleep
Asynchronous_Hold
Interrupt_Server_Blocked_On_Event_Flag
Activating
Acceptor_Delay_Sleep

Definition at line 41 of file ada-tasks.c.

Function Documentation

◆ _initialize_tasks()

void _initialize_tasks ( void )

Definition at line 1441 of file ada-tasks.c.

References _, ada_tasks_inferior_data_handle, ada_tasks_new_objfile_observer(), ada_tasks_normal_stop_observer(), ada_tasks_pspace_data_handle, add_cmd(), add_info(), class_run, cmdlist, info_tasks_command(), observer_attach_new_objfile(), observer_attach_normal_stop(), and task_command().

◆ ada_build_task_list()

int ada_build_task_list ( void )

Definition at line 1011 of file ada-tasks.c.

References _, current_inferior(), error(), get_ada_tasks_inferior_data(), read_known_tasks(), target_has_stack, ada_tasks_inferior_data::task_list_valid_p, and VEC_length.

Referenced by ada_get_task_info_from_ptid(), info_task(), iterate_over_live_ada_tasks(), print_ada_task_info(), ravenscar_update_thread_list(), task_command(), and valid_task_id().

◆ ada_get_task_info_from_ptid()

struct ada_task_info* ada_get_task_info_from_ptid ( ptid_t ptid )

Definition at line 360 of file ada-tasks.c.

References ada_build_task_list(), current_inferior(), get_ada_tasks_inferior_data(), ada_task_info::ptid, ptid_equal(), VEC_index, and VEC_length.

Referenced by ravenscar_get_thread_base_cpu().

◆ ada_get_task_number()

int ada_get_task_number ( ptid_t ptid )

Definition at line 295 of file ada-tasks.c.

References find_inferior_ptid(), gdb_assert, get_ada_tasks_inferior_data(), ptid_equal(), VEC_index, and VEC_length.

Referenced by bpstat_check_breakpoint_conditions(), and display_current_task_id().

◆ ada_get_tcb_types_info()

const char* ada_get_tcb_types_info ( void )

Definition at line 479 of file ada-tasks.c.

References _, atcb_fieldnos::activation_link, ada_get_field_index(), ada_template_to_fixed_record_type_1(), atcb_fieldnos::atc_nesting_level, ada_tasks_pspace_data::atcb_call_type, ada_tasks_pspace_data::atcb_common_type, ada_tasks_pspace_data::atcb_fieldno, ada_tasks_pspace_data::atcb_ll_type, ada_tasks_pspace_data::atcb_type, atcb_fieldnos::base_cpu, atcb_fieldnos::call, atcb_fieldnos::call_self, atcb_fieldnos::common, current_program_space, atcb_fieldnos::entry_calls, get_ada_tasks_pspace_data(), atcb_fieldnos::image, atcb_fieldnos::image_len, ada_tasks_pspace_data::initialized_p, language_c, atcb_fieldnos::ll, atcb_fieldnos::ll_lwp, atcb_fieldnos::ll_thread, lookup_symbol_in_language(), atcb_fieldnos::parent, atcb_fieldnos::priority, atcb_fieldnos::state, STRUCT_DOMAIN, block_symbol::symbol, type, and symbol::type.

Referenced by ravenscar_inferior_created(), and read_atcb().

◆ ada_task_is_alive()

static int ada_task_is_alive ( struct ada_task_info * task_info )

static

Definition at line 351 of file ada-tasks.c.

References ada_task_info::state, and Terminated.

Referenced by iterate_over_live_ada_tasks(), read_atcb(), and task_command_1().

◆ ada_task_list_changed()

static void ada_task_list_changed ( struct inferior * inf )

static

Definition at line 1368 of file ada-tasks.c.

References get_ada_tasks_inferior_data(), and ada_tasks_inferior_data::task_list_valid_p.

Referenced by ada_tasks_normal_stop_observer().

◆ ada_tasks_inferior_data_sniffer()

static void ada_tasks_inferior_data_sniffer ( struct ada_tasks_inferior_data * data )

static

Definition at line 877 of file ada-tasks.c.

References ADA_TASKS_ARRAY, ADA_TASKS_LIST, ADA_TASKS_NOT_FOUND, ADA_TASKS_UNKNOWN, BMSYMBOL_VALUE_ADDRESS, builtin_type::builtin_data_ptr, builtin_type(), check_typedef(), ada_tasks_inferior_data::known_tasks_addr, ada_tasks_inferior_data::known_tasks_element, ada_tasks_inferior_data::known_tasks_kind, ada_tasks_inferior_data::known_tasks_length, KNOWN_TASKS_LIST, KNOWN_TASKS_NAME, language_c, lookup_minimal_symbol(), lookup_symbol_in_language(), MAX_NUMBER_OF_KNOWN_TASKS, bound_minimal_symbol::minsym, block_symbol::symbol, SYMBOL_TYPE, SYMBOL_VALUE_ADDRESS, target_gdbarch(), type, TYPE_CODE, TYPE_CODE_ARRAY, TYPE_CODE_PTR, TYPE_HIGH_BOUND, TYPE_HIGH_BOUND_UNDEFINED, TYPE_INDEX_TYPE, TYPE_LOW_BOUND, TYPE_LOW_BOUND_UNDEFINED, TYPE_TARGET_TYPE, and VAR_DOMAIN.

Referenced by read_known_tasks().

◆ ada_tasks_invalidate_inferior_data()

static void ada_tasks_invalidate_inferior_data ( struct inferior * inf )

static

Definition at line 1386 of file ada-tasks.c.

References ADA_TASKS_UNKNOWN, get_ada_tasks_inferior_data(), ada_tasks_inferior_data::known_tasks_kind, and ada_tasks_inferior_data::task_list_valid_p.

Referenced by ada_tasks_new_objfile_observer().

◆ ada_tasks_invalidate_pspace_data()

static void ada_tasks_invalidate_pspace_data ( struct program_space * pspace )

static

Definition at line 1378 of file ada-tasks.c.

References get_ada_tasks_pspace_data(), and ada_tasks_pspace_data::initialized_p.

Referenced by ada_tasks_new_objfile_observer().

◆ ada_tasks_new_objfile_observer()

static void ada_tasks_new_objfile_observer ( struct objfile * objfile )

static

Definition at line 1407 of file ada-tasks.c.

References ada_tasks_invalidate_inferior_data(), ada_tasks_invalidate_pspace_data(), arm-linux::inf, inferior_list, program_space::next, program_spaces, and objfile::pspace.

Referenced by _initialize_tasks().

◆ ada_tasks_normal_stop_observer()

static void ada_tasks_normal_stop_observer	(	struct bpstats *	unused_args,
		int	unused_args2
	)

static

Definition at line 1397 of file ada-tasks.c.

References ada_task_list_changed(), and current_inferior().

Referenced by _initialize_tasks().

◆ add_ada_task()

static void add_ada_task	(	CORE_ADDR	task_id,
		struct inferior *	inf
	)

static

Definition at line 799 of file ada-tasks.c.

References get_ada_tasks_inferior_data(), read_atcb(), and VEC_safe_push.

Referenced by read_known_tasks_array(), and read_known_tasks_list().

◆ DEF_VEC_O()

DEF_VEC_O ( ada_task_info_s )

◆ display_current_task_id()

static void display_current_task_id ( void )

static

Definition at line 1285 of file ada-tasks.c.

References _, ada_get_task_number(), inferior_ptid, and printf_filtered().

Referenced by task_command().

◆ get_ada_tasks_inferior_data()

static struct ada_tasks_inferior_data* get_ada_tasks_inferior_data ( struct inferior * inf )

static

Definition at line 276 of file ada-tasks.c.

References ada_tasks_inferior_data_handle, and XCNEW.

Referenced by ada_build_task_list(), ada_get_task_info_from_ptid(), ada_get_task_number(), ada_task_list_changed(), ada_tasks_invalidate_inferior_data(), add_ada_task(), get_task_number_from_id(), info_task(), iterate_over_live_ada_tasks(), print_ada_task_info(), read_known_tasks(), task_command_1(), and valid_task_id().

◆ get_ada_tasks_pspace_data()

static struct ada_tasks_pspace_data* get_ada_tasks_pspace_data ( struct program_space * pspace )

static

Definition at line 248 of file ada-tasks.c.

References ada_tasks_pspace_data_handle, and XCNEW.

Referenced by ada_get_tcb_types_info(), ada_tasks_invalidate_pspace_data(), ptid_from_atcb_common(), read_atcb(), and read_known_tasks_list().

◆ get_task_number_from_id()

static int get_task_number_from_id	(	CORE_ADDR	task_id,
		struct inferior *	inf
	)

static

Definition at line 316 of file ada-tasks.c.

References get_ada_tasks_inferior_data(), ada_task_info::task_id, VEC_index, and VEC_length.

Referenced by info_task(), and print_ada_task_info().

◆ info_task()

static void info_task	(	struct ui_out *	uiout,
		const char *	taskno_str,
		struct inferior *	inf
	)

static

◆ info_tasks_command()

static void info_tasks_command	(	const char *	arg,
		int	from_tty
	)

static

Definition at line 1271 of file ada-tasks.c.

References current_inferior(), current_uiout, info_task(), and print_ada_task_info().

Referenced by _initialize_tasks().

◆ iterate_over_live_ada_tasks()

void iterate_over_live_ada_tasks ( ada_task_list_iterator_ftype * iterator )

Definition at line 384 of file ada-tasks.c.

References ada_build_task_list(), ada_task_is_alive(), current_inferior(), get_ada_tasks_inferior_data(), VEC_index, and VEC_length.

Referenced by ravenscar_update_thread_list().

◆ print_ada_task_info()

void print_ada_task_info	(	struct ui_out *	uiout,
		char *	arg_str,
		struct inferior *	inf
	)

◆ ptid_from_atcb_common()

static ptid_t ptid_from_atcb_common ( struct value * common_value )

static

Definition at line 593 of file ada-tasks.c.

References ada_tasks_pspace_data::atcb_fieldno, current_program_space, get_ada_tasks_pspace_data(), atcb_fieldnos::ll, atcb_fieldnos::ll_lwp, atcb_fieldnos::ll_thread, selftests::ptid::lwp, target_get_ada_task_ptid, value_as_address(), value_as_long(), and value_field().

Referenced by read_atcb().

◆ read_atcb()

static void read_atcb	(	CORE_ADDR	task_id,
		struct ada_task_info *	task_info
	)

static

Definition at line 620 of file ada-tasks.c.

References _, ada_coerce_to_simple_array_ptr(), ada_get_field_index(), ada_get_tcb_types_info(), ada_task_is_alive(), atcb_fieldnos::atc_nesting_level, ada_tasks_pspace_data::atcb_call_type, ada_tasks_pspace_data::atcb_fieldno, ada_tasks_pspace_data::atcb_type, atcb_fieldnos::base_cpu, ada_task_info::base_cpu, atcb_fieldnos::call, atcb_fieldnos::call_self, ada_task_info::called_task, ada_task_info::caller_task, atcb_fieldnos::common, current_program_space, atcb_fieldnos::entry_calls, error(), get_ada_tasks_pspace_data(), atcb_fieldnos::image, atcb_fieldnos::image_len, ada_tasks_pspace_data::initialized_p, lookup_minimal_symbol_by_pc(), MSYMBOL_LINKAGE_NAME, ada_task_info::name, null_ptid, atcb_fieldnos::parent, ada_task_info::parent, atcb_fieldnos::priority, ada_task_info::priority, ada_task_info::ptid, ptid_from_atcb_common(), read_fat_string_value(), atcb_fieldnos::state, ada_task_info::state, ada_task_info::task_id, value_as_address(), value_as_long(), value_as_string(), value_field(), value_from_contents_and_address(), value_subscript(), and value_type().

Referenced by add_ada_task().

◆ read_fat_string_value()

static void read_fat_string_value	(	char *	dest,
		struct value *	val,
		int	max_len
	)

static

Definition at line 419 of file ada-tasks.c.

References _, ada_get_field_index(), error(), read_memory(), TYPE_CODE, TYPE_CODE_PTR, TYPE_CODE_STRUCT, TYPE_FIELD_TYPE, TYPE_TARGET_TYPE, value_address(), value_as_long(), value_field(), value_ind(), and value_type().

Referenced by read_atcb().

◆ read_known_tasks()

static int read_known_tasks ( void )

static

Definition at line 972 of file ada-tasks.c.

References ADA_TASKS_ARRAY, ada_tasks_inferior_data_sniffer(), ADA_TASKS_LIST, ADA_TASKS_NOT_FOUND, ADA_TASKS_UNKNOWN, current_inferior(), gdb_assert, get_ada_tasks_inferior_data(), ada_tasks_inferior_data::known_tasks_kind, read_known_tasks_array(), read_known_tasks_list(), ada_tasks_inferior_data::task_list_valid_p, and VEC_truncate.

Referenced by ada_build_task_list().

◆ read_known_tasks_array()

static int read_known_tasks_array ( struct ada_tasks_inferior_data * data )

static

Definition at line 812 of file ada-tasks.c.

References add_ada_task(), current_inferior(), extract_typed_address(), ada_tasks_inferior_data::known_tasks_addr, ada_tasks_inferior_data::known_tasks_element, ada_tasks_inferior_data::known_tasks_length, read_memory(), and TYPE_LENGTH.

Referenced by read_known_tasks().

◆ read_known_tasks_list()

static int read_known_tasks_list ( struct ada_tasks_inferior_data * data )

static

Definition at line 839 of file ada-tasks.c.

References atcb_fieldnos::activation_link, add_ada_task(), ada_tasks_pspace_data::atcb_fieldno, ada_tasks_pspace_data::atcb_type, atcb_fieldnos::common, current_inferior(), current_program_space, extract_typed_address(), get_ada_tasks_pspace_data(), ada_tasks_inferior_data::known_tasks_addr, ada_tasks_inferior_data::known_tasks_element, read_memory(), TYPE_LENGTH, value_as_address(), value_field(), and value_from_contents_and_address().

Referenced by read_known_tasks().

◆ task_command()

static void task_command	(	const char *	taskno_str,
		int	from_tty
	)

static

Definition at line 1348 of file ada-tasks.c.

References _, ada_build_task_list(), current_inferior(), current_uiout, display_current_task_id(), ui_out::message(), and task_command_1().

Referenced by _initialize_tasks().

◆ task_command_1()

static void task_command_1	(	const char *	taskno_str,
		int	from_tty,
		struct inferior *	inf
	)

static

Definition at line 1299 of file ada-tasks.c.

References _, ada_find_printable_frame(), ada_task_is_alive(), error(), find_thread_ptid(), frame_relative_level(), get_ada_tasks_inferior_data(), get_selected_frame(), parse_and_eval(), print_stack_frame(), printf_filtered(), ada_task_info::ptid, SRC_AND_LOC, switch_to_thread(), target_update_thread_list(), value_as_long(), VEC_index, and VEC_length.

Referenced by task_command().

◆ valid_task_id()

int valid_task_id ( int task_num )

Definition at line 337 of file ada-tasks.c.

References ada_build_task_list(), current_inferior(), get_ada_tasks_inferior_data(), and VEC_length.

Referenced by bppy_set_task(), find_condition_and_thread(), and gdbscm_set_breakpoint_task_x().

◆ value_as_string()

static void value_as_string	(	char *	dest,
		struct value *	val,
		int	length
	)

static

Definition at line 407 of file ada-tasks.c.

References value_contents().

Referenced by read_atcb().

Variable Documentation

◆ ada_tasks_inferior_data_handle

const struct inferior_data* ada_tasks_inferior_data_handle

static

Definition at line 240 of file ada-tasks.c.

Referenced by _initialize_tasks(), and get_ada_tasks_inferior_data().

◆ ada_tasks_pspace_data_handle

const struct program_space_data* ada_tasks_pspace_data_handle

static

Definition at line 162 of file ada-tasks.c.

Referenced by _initialize_tasks(), and get_ada_tasks_pspace_data().

◆ long_task_states

const char* long_task_states[]

static

Initial value:

= {
  N_("Unactivated"),
  N_("Runnable"),
  N_("Terminated"),
  N_("Waiting for child activation"),
  N_("Blocked in accept or select with terminate"),
  N_("Waiting on entry call"),
  N_("Asynchronous Selective Wait"),
  N_("Delay Sleep"),
  N_("Waiting for children termination"),
  N_("Waiting for children in terminate alternative"),
  "",
  "",
  "",
  "",
  N_("Asynchronous Hold"),
  "",
  N_("Activating"),
}

Definition at line 86 of file ada-tasks.c.

Referenced by info_task().

◆ MAX_NUMBER_OF_KNOWN_TASKS

const int MAX_NUMBER_OF_KNOWN_TASKS = 1000

static

Definition at line 34 of file ada-tasks.c.

Referenced by ada_tasks_inferior_data_sniffer().

◆ task_states

const char* task_states[]

static

Initial value:

= {
  N_("Unactivated"),
  N_("Runnable"),
  N_("Terminated"),
  N_("Child Activation Wait"),
  N_("Accept or Select Term"),
  N_("Waiting on entry call"),
  N_("Async Select Wait"),
  N_("Delay Sleep"),
  N_("Child Termination Wait"),
  N_("Wait Child in Term Alt"),
  "",
  "",
  "",
  "",
  N_("Asynchronous Hold"),
  "",
  N_("Activating"),
}

Definition at line 64 of file ada-tasks.c.

Enumerations
enum	task_states { Unactivated, Runnable, Terminated, Activator_Sleep, Acceptor_Sleep, Entry_Caller_Sleep, Async_Select_Sleep, Delay_Sleep, Master_Completion_Sleep, Master_Phase_2_Sleep, Interrupt_Server_Idle_Sleep, Interrupt_Server_Blocked_Interrupt_Sleep, Timer_Server_Sleep, AST_Server_Sleep, Asynchronous_Hold, Interrupt_Server_Blocked_On_Event_Flag, Activating, Acceptor_Delay_Sleep }

enum	ada_known_tasks_kind { ADA_TASKS_UNKNOWN = 0, ADA_TASKS_NOT_FOUND, ADA_TASKS_ARRAY, ADA_TASKS_LIST }

Classes

Macros

Typedefs

Enumerations

Functions

Variables

Macro Definition Documentation

◆ KNOWN_TASKS_LIST

◆ KNOWN_TASKS_NAME

Typedef Documentation

◆ ada_task_info_s

Enumeration Type Documentation

◆ ada_known_tasks_kind

◆ task_states

Function Documentation

◆ _initialize_tasks()

◆ ada_build_task_list()

◆ ada_get_task_info_from_ptid()

◆ ada_get_task_number()

◆ ada_get_tcb_types_info()

◆ ada_task_is_alive()

◆ ada_task_list_changed()

◆ ada_tasks_inferior_data_sniffer()

◆ ada_tasks_invalidate_inferior_data()

◆ ada_tasks_invalidate_pspace_data()

◆ ada_tasks_new_objfile_observer()

◆ ada_tasks_normal_stop_observer()

◆ add_ada_task()

◆ DEF_VEC_O()

◆ display_current_task_id()

◆ get_ada_tasks_inferior_data()

◆ get_ada_tasks_pspace_data()

◆ get_task_number_from_id()

◆ info_task()

◆ info_tasks_command()

◆ iterate_over_live_ada_tasks()

◆ print_ada_task_info()

◆ ptid_from_atcb_common()

◆ read_atcb()

◆ read_fat_string_value()

◆ read_known_tasks()

◆ read_known_tasks_array()

◆ read_known_tasks_list()

◆ task_command()

◆ task_command_1()

◆ valid_task_id()

◆ value_as_string()

Variable Documentation

◆ ada_tasks_inferior_data_handle

◆ ada_tasks_pspace_data_handle

◆ long_task_states

◆ MAX_NUMBER_OF_KNOWN_TASKS

◆ task_states