1 /* BEGIN INCLUDE FILE ... db_common_static.incl.pl1 2 * 3 * Written Dec 72 for the 6180 by Bill Silver. 4 * 5 * This include file is used to reference the common data that is passed from the 6 * main debug procedure "debug" to other debug procedures. This data is kept 7 * in internal static storage. 8 */ 9 10 11 12 dcl com_stat_ptr ptr; /* The default pointer to the common internal static 13 * structure. */ 14 15 16 17 /* The following declaration is an overlay of data found in static storage. 18 * It is initialized by "debug" the first time it is called in a process. A pointer 19 * to this data is found in the external variable "debug$common_static_ptr". 20 */ 21 22 23 dcl 1 com_static_data based ( com_stat_ptr ) aligned, 24 25 26 2 lotp ptr, /* Pointer to the base of the combined 27 * linkage segment. */ 28 29 2 hcs_count fixed bin, /* Highest hard core segment number. */ 30 31 2 print_mode fixed bin, /* This word is a flag which specifies the 32 * volume of information to be printed. 33 * 0 => SHORT MODE: Only error messages 34 * and essential data will be printed. 35 * 1 => LONG MODE: As much information as 36 * possible will be printed. */ 37 38 2 stack_ptr_array (0:511) ptr, /* Pointers to the stack frames which make up 39 * the stack history of the process. */ 40 41 2 temp_comd_len fixed bin, /* Length of temporary global break command line. 42 * 0 => there is no command line. */ 43 44 2 temp_comd_line char(132), /* The temporary global break command line. 45 * This debug command will be executed each time 46 * a break occurs. It is temporary since it is 47 * maintained in static storage and thus goes 48 * away when the process terminates. */ 49 50 2 temp_break_mode fixed bin; /* This is a flag which indicates whether or 51 * not we are in temporary break mode. 52 * 0 => regular break mode. 53 * 1 => temporary break mode. */ 54 55 56 57 /* END OF INCLUDE FILE ... db_common_static.incl.pl1 */