1 /*        BEGIN INCLUDE FILE  ...  db_common_auto.incl.pl1
 2 *
 3 *         Written  Dec 72  for the  6180  by  Bill Silver.
 4 *         Modified Dec 73 to add dummy_arg array by RObert S. Coren.
 5 *
 6 *         This include file is used to reference the common data that is passed from the
 7 *         main debug procedure  "debug"  to other debug procedures.  This data is kept in
 8 *         "debug's"  automatic storage.
 9 */
10 
11 
12 
13 dcl       com_auto_ptr        ptr;      /* The default pointer to the structure which contains
14                                         *  common automatic data.  */
15 
16 
17 
18 /*        The following declaration is an overlay of  data  found in the automatic storage
19 *         of the main debug procedure.  This data is re-initialixed each time the  "debug"  procedure
20 *         is entered - either called by a user  or  via  a  mme2 fault.
21 */
22 
23 
24 dcl    1  com_auto_data       based( com_auto_ptr )         aligned,
25 
26 
27           2 db_mc_ptr         ptr,                /* Pointer to the current copy of the machine
28                                                   *  conditions.  They are found in the stack. */
29 
30           2 snt_ptr           ptr,                /* Pointer to the area in automatic storage
31                                                   *  where  "debug"  keeps its segment name table. */
32 
33           2 max_sp_x          fixed bin,          /* Index of the last entry in the stack pointer
34                                                   *  array which can be used in a stack trace. */
35 
36           2 first_call_flag   fixed bin,          /* This flag is used by procedures called by  "debug"
37                                                   *  to tell if this is the first time they have
38                                                   *  been called since "debug" was entered.
39                                                   *  0 => this is the first call out from "debug".
40                                                   *  1 => procedure returned to db and was called again. */
41 
42           2 db_action_code    fixed bin,          /* This code tells "debug" what it should do
43                                                   *  after it is returned to by a parsing procedure.
44                                                   *  0 => Read next command line - then parse it.
45                                                   *  1 => Wipe out read ahead and then read the next
46                                                   *       line  - then parse it.
47                                                   *  2 => Quit debug, return to command level.
48                                                   *  3 => Restart the procedure that was interrupted
49                                                   *       by the mme2 break fault.  */
50 
51           2 num_skips         fixed bin,          /* Number of times to skip the current break.  */
52 
53           2 dummy_arg (10)    aligned,            /* Space for "%" arguments */
54               3 (p1, p2, p3, p4)  ptr;
55 
56 
57 
58 /*        END OF INCLUDE FILE  ...  db_common_auto.incl.pl1         */