1 /* BEGIN INCLUDE FILE ... cpm_internal_data.incl.pl1 */ 2 3 /****^ HISTORY COMMENTS: 4 1) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 5 audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206): 6 Written to support control point management in March 1985 by G. Palter. 7 END HISTORY COMMENTS */ 8 9 /* format: style3,linecom */ 10 11 /* NOTE: This include file references structures contained in the following independent include files -- 12 cpm_control_point_data.incl.pl1 cpm_ctrl_pt_meters.incl.pl1 13 process_usage.incl.pl1 */ 14 15 16 /* Constants defined by the Control Point Manager for internal use only */ 17 18 dcl cpm_data_$subsystem_name /* our name for use in error messages, etc. */ 19 character (32) external; 20 21 22 /* Static data defined by the Control Point Manager for internal use only */ 23 24 dcl 1 cpm_data_$root_control_point_data /* definition of the root control point */ 25 like control_point_data aligned external; 26 27 dcl cpm_data_$gc_control_points /* ON => there are destroyed control points to ... */ 28 bit (1) aligned external; /* ... be garbage collected */ 29 30 dcl cpm_data_$saved_cl_intermediary /* the process' original CL intermediary */ 31 entry (bit (36) aligned) variable external; 32 33 dcl cpm_data_$preferred_control_point /* -> definition of the preferred control point */ 34 pointer external; 35 36 dcl 1 cpm_data_$preferred_control_point_stack /* preferred control points stacked by ... */ 37 aligned external, /* ... event calls and timers */ 38 2 stack_depth fixed binary, /* ... # of entries in the stack at present */ 39 2 pad bit (36) aligned, 40 2 cpd_ptr_stack (16) pointer; /* ... the actual stack */ 41 42 dcl 1 cpm_data_$ready_queue /* ordered list of ready control points in the process */ 43 aligned external, 44 2 first pointer, 45 2 last pointer; 46 47 dcl cpm_data_$previous_control_point /* -> definition of control point which ran before current */ 48 pointer external; 49 50 dcl 1 cpm_data_$valid_control_points /* maps stack segment numbers into an indication of ... */ 51 aligned external, /* ... whether there is a live control point there */ 52 2 map (0:4095) bit (1) unaligned; 53 54 dcl 1 cpm_data_$global_meters /* global meters kept by the control point manager */ 55 aligned external, 56 2 overhead like control_point_meters, /* ... scheduling overhead */ 57 2 last_meters like control_point_meters; /* ... used to compute meters (not really a meter) */ 58 59 /* END INCLUDE FILE ... cpm_internal_data.incl.pl1 */