gdb/osf-share/cma_deb_core.h

   1 /*
   2  * (c) Copyright 1990-1996 OPEN SOFTWARE FOUNDATION, INC.
   3  * (c) Copyright 1990-1996 HEWLETT-PACKARD COMPANY
   4  * (c) Copyright 1990-1996 DIGITAL EQUIPMENT CORPORATION
   5  * (c) Copyright 1991, 1992 Siemens-Nixdorf Information Systems
   6  * To anyone who acknowledges that this file is provided "AS IS" without
   7  * any express or implied warranty: permission to use, copy, modify, and
   8  * distribute this file for any purpose is hereby granted without fee,
   9  * provided that the above copyright notices and this notice appears in
  10  * all source code copies, and that none of the names listed above be used
  11  * in advertising or publicity pertaining to distribution of the software
  12  * without specific, written prior permission.  None of these organizations
  13  * makes any representations about the suitability of this software for
  14  * any purpose.
  15  */
  16 /*
  17  *      This file defines the internal interface to the core of CMA
  18  *      debugging services. (The client interface to debugging services
  19  *      is provided by cma_debug_client.h).
  20  */
  21
  22 #ifndef CMA_DEB_CORE
  23 #define CMA_DEB_CORE
  24
  25 /*
  26  *  INCLUDE FILES
  27  */
  28 #include <cma.h>
  29 #include <cma_mutex.h>
  30 #include <cma_queue.h>
  31 #include <cma_tcb_defs.h>
  32 #include <cma_util.h>
  33
  34 /*
  35  * CONSTANTS AND MACROS
  36  */
  37
  38
  39 /*
  40  * TYPEDEFS
  41  */
  42
  43 /*FIX-ME* Need to use sizes that are platform specific */
  44 typedef long int cma___t_debug_ctx[17];
  45
  46 /*
  47  * Type defing the format of known object lists
  48  */
  49 typedef struct CMA__T_KNOWN_OBJECT {
  50     cma__t_queue        queue;          /* Queue header for known objects */
  51     cma__t_int_mutex    *mutex;         /* Mutex to control access to queue */
  52     } cma__t_known_object;
  53
  54
  55 /*
  56  * Type defining the registration for one debug client (e.g. Ada)
  57  */
  58 typedef struct CMA__T_DEB_REGISTRY {
  59     cma_t_address       entry;          /* Client's debug entry point */
  60     cma_t_key           key;            /* Client's context key */
  61     cma_t_integer       fac;            /* Client's debug facility number */
  62     cma_t_boolean       has_prolog;     /* Client's TCBs have std prolog */
  63     } cma__t_deb_registry;
  64
  65 #define cma__c_deb_max_clients  10
  66
  67 /*
  68  * Type defining the global debugging state for all threads.
  69  */
  70 typedef struct CMA__T_DEBUG_STATE {
  71     /*
  72      * The following flag is set if changes were made while in the
  73      * debugger that may make the ready lists inconsistent.  For
  74      * example, if a thread priority is changed in the debugger, the
  75      * thread is not moved between queues.  Making things consistent
  76      * is deferred to when the dispatcher is next invoked -- which we
  77      * try to make very soon.
  78      */
  79     cma_t_boolean       is_inconsistency;   /* Ready lists are inconsistent */
  80
  81
  82     cma_t_boolean       events_enabled;     /* Set if _any_ event is enabled */
  83     cma_t_boolean       flags[cma__c_debevt__dim];
  84                                             /* Which events are enabled */
  85     cma__t_int_tcb      *next_to_run;       /* TCB of thread to run next */
  86
  87     cma__t_int_mutex    *mutex;             /* Mutex for registering clients */
  88     cma_t_integer       client_count;       /* Count of debug clients */
  89     cma__t_deb_registry clients[cma__c_deb_max_clients+1];
  90                                             /* Array of current debug clients */
  91     } cma__t_debug_state;
  92
  93
  94 /*
  95  * Routine that will symbolize and address and print it.
  96  */
  97 typedef void    (*cma__t_print_symbol) (cma_t_address);
  98
  99
 100 /*
 101  *  GLOBAL DATA
 102  */
 103
 104 /*
 105  * Variable holding the global debugging state
 106  *
 107  * (This is primarily written by the debugger interface and read
 108  * by the thread dispatcher).
 109  */
 110 extern cma__t_debug_state       cma__g_debug_state;
 111
 112 /*
 113  * Known object queues
 114  */
 115 extern cma__t_known_object      cma__g_known_atts;
 116 extern cma__t_known_object      cma__g_known_cvs;
 117 extern cma__t_known_object      cma__g_known_mutexes;
 118 extern cma__t_known_object      cma__g_known_threads;
 119
 120 /*
 121  * INTERNAL INTERFACES
 122  */
 123
 124 /* Get information while in debugger context */
 125 extern void cma__deb_get
 126            (cma__t_int_tcb *,cma_t_debug_get,cma_t_address,cma_t_integer,cma_t_integer);
 127
 128 /* Set information while in debugger context */
 129 extern void cma__deb_set (cma__t_int_tcb *,cma_t_debug_set,cma_t_address,cma_t_integer);
 130
 131 extern void cma__init_debug (void);
 132
 133 extern void cma__reinit_debug (cma_t_integer);
 134
 135 extern void cma__deb_anytcb_to_tcb (cma_t_tcb_header *,cma__t_int_tcb **);
 136
 137 extern void cma__deb_fac_to_client (cma_t_integer,cma_t_key *);
 138
 139 extern void cma__deb_get_client_info (cma_t_key,cma_t_address *,cma_t_boolean *);
 140
 141 extern void cma__deb_get_context (cma__t_int_tcb *,cma_t_key,cma_t_address *);
 142
 143 extern cma__t_int_tcb *cma__deb_get_self_tcb (void);
 144
 145 extern void cma__deb_get_time_slice (cma_t_interval *);
 146
 147 extern cma__t_int_tcb *cma__deb_next_tcb
 148             (cma__t_int_tcb *,cma_t_integer *,cma_t_integer *,cma_t_boolean *);
 149
 150 extern cma_t_boolean cma__deb_set_alert (cma__t_int_tcb *);
 151
 152 extern void cma__deb_set_next_thread (cma__t_int_tcb *);
 153
 154 extern void cma__deb_set_force_dispatch (cma_t_address );
 155
 156 extern void cma__deb_set_time_slice (cma_t_interval);
 157
 158 extern void cma__deb_show_thread
 159      (cma__t_int_tcb *,cma_t_boolean,cma_t_boolean,cma___t_debug_ctx,cma__t_eol_routine,
 160                 cma__t_eol_routine,cma__t_print_symbol);
 161
 162 extern void
 163 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);
 164 #endif