| /* |
| * (c) Copyright 1990-1996 OPEN SOFTWARE FOUNDATION, INC. |
| * (c) Copyright 1990-1996 HEWLETT-PACKARD COMPANY |
| * (c) Copyright 1990-1996 DIGITAL EQUIPMENT CORPORATION |
| * (c) Copyright 1991, 1992 Siemens-Nixdorf Information Systems |
| * To anyone who acknowledges that this file is provided "AS IS" without |
| * any express or implied warranty: permission to use, copy, modify, and |
| * distribute this file for any purpose is hereby granted without fee, |
| * provided that the above copyright notices and this notice appears in |
| * all source code copies, and that none of the names listed above be used |
| * in advertising or publicity pertaining to distribution of the software |
| * without specific, written prior permission. None of these organizations |
| * makes any representations about the suitability of this software for |
| * any purpose. |
| */ |
| /* |
| * This file defines the internal interface to the core of CMA |
| * debugging services. (The client interface to debugging services |
| * is provided by cma_debug_client.h). |
| */ |
| |
| #ifndef CMA_DEB_CORE |
| #define CMA_DEB_CORE |
| |
| /* |
| * INCLUDE FILES |
| */ |
| #include <cma.h> |
| #include <cma_mutex.h> |
| #include <cma_queue.h> |
| #include <cma_tcb_defs.h> |
| #include <cma_util.h> |
| |
| /* |
| * CONSTANTS AND MACROS |
| */ |
| |
| |
| /* |
| * TYPEDEFS |
| */ |
| |
| /*FIX-ME* Need to use sizes that are platform specific */ |
| typedef long int cma___t_debug_ctx[17]; |
| |
| /* |
| * Type defing the format of known object lists |
| */ |
| typedef struct CMA__T_KNOWN_OBJECT { |
| cma__t_queue queue; /* Queue header for known objects */ |
| cma__t_int_mutex *mutex; /* Mutex to control access to queue */ |
| } cma__t_known_object; |
| |
| |
| /* |
| * Type defining the registration for one debug client (e.g. Ada) |
| */ |
| typedef struct CMA__T_DEB_REGISTRY { |
| cma_t_address entry; /* Client's debug entry point */ |
| cma_t_key key; /* Client's context key */ |
| cma_t_integer fac; /* Client's debug facility number */ |
| cma_t_boolean has_prolog; /* Client's TCBs have std prolog */ |
| } cma__t_deb_registry; |
| |
| #define cma__c_deb_max_clients 10 |
| |
| /* |
| * Type defining the global debugging state for all threads. |
| */ |
| typedef struct CMA__T_DEBUG_STATE { |
| /* |
| * The following flag is set if changes were made while in the |
| * debugger that may make the ready lists inconsistent. For |
| * example, if a thread priority is changed in the debugger, the |
| * thread is not moved between queues. Making things consistent |
| * is deferred to when the dispatcher is next invoked -- which we |
| * try to make very soon. |
| */ |
| cma_t_boolean is_inconsistency; /* Ready lists are inconsistent */ |
| |
| |
| cma_t_boolean events_enabled; /* Set if _any_ event is enabled */ |
| cma_t_boolean flags[cma__c_debevt__dim]; |
| /* Which events are enabled */ |
| cma__t_int_tcb *next_to_run; /* TCB of thread to run next */ |
| |
| cma__t_int_mutex *mutex; /* Mutex for registering clients */ |
| cma_t_integer client_count; /* Count of debug clients */ |
| cma__t_deb_registry clients[cma__c_deb_max_clients+1]; |
| /* Array of current debug |
| clients */ |
| } cma__t_debug_state; |
| |
| |
| /* |
| * Routine that will symbolize and address and print it. |
| */ |
| typedef void (*cma__t_print_symbol) (cma_t_address); |
| |
| |
| /* |
| * GLOBAL DATA |
| */ |
| |
| /* |
| * Variable holding the global debugging state |
| * |
| * (This is primarily written by the debugger interface and read |
| * by the thread dispatcher). |
| */ |
| extern cma__t_debug_state cma__g_debug_state; |
| |
| /* |
| * Known object queues |
| */ |
| extern cma__t_known_object cma__g_known_atts; |
| extern cma__t_known_object cma__g_known_cvs; |
| extern cma__t_known_object cma__g_known_mutexes; |
| extern cma__t_known_object cma__g_known_threads; |
| |
| /* |
| * INTERNAL INTERFACES |
| */ |
| |
| /* Get information while in debugger context */ |
| extern void cma__deb_get (cma__t_int_tcb *, |
| cma_t_debug_get, |
| cma_t_address, |
| cma_t_integer,cma_t_integer); |
| |
| /* Set information while in debugger context */ |
| extern void cma__deb_set (cma__t_int_tcb *, cma_t_debug_set, |
| cma_t_address, cma_t_integer); |
| |
| extern void cma__init_debug (void); |
| |
| extern void cma__reinit_debug (cma_t_integer); |
| |
| extern void cma__deb_anytcb_to_tcb (cma_t_tcb_header *, cma__t_int_tcb **); |
| |
| extern void cma__deb_fac_to_client (cma_t_integer, cma_t_key *); |
| |
| extern void cma__deb_get_client_info (cma_t_key, cma_t_address *, |
| cma_t_boolean *); |
| |
| extern void cma__deb_get_context (cma__t_int_tcb *, cma_t_key,cma_t_address *); |
| |
| extern cma__t_int_tcb *cma__deb_get_self_tcb (void); |
| |
| extern void cma__deb_get_time_slice (cma_t_interval *); |
| |
| extern cma__t_int_tcb *cma__deb_next_tcb (cma__t_int_tcb *, |
| cma_t_integer *, |
| cma_t_integer *, |
| cma_t_boolean *); |
| |
| extern cma_t_boolean cma__deb_set_alert (cma__t_int_tcb *); |
| |
| extern void cma__deb_set_next_thread (cma__t_int_tcb *); |
| |
| extern void cma__deb_set_force_dispatch (cma_t_address ); |
| |
| extern void cma__deb_set_time_slice (cma_t_interval); |
| |
| extern void cma__deb_show_thread (cma__t_int_tcb *, cma_t_boolean, |
| cma_t_boolean, cma___t_debug_ctx, |
| cma__t_eol_routine, |
| cma__t_eol_routine, cma__t_print_symbol); |
| |
| extern void |
| cma__deb_show_stats (cma__t_int_tcb *, cma_t_boolean, |
| cma_t_boolean, cma__t_eol_routine, |
| cma__t_eol_routine, cma__t_print_symbol); |
| #endif |
