164 lines
5 KiB
C
164 lines
5 KiB
C
/*
|
|
* (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
|