1 /*  START OF:       dm_lock_list_strucs_.incl.pl1 June 1982  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* DESCRIPTION:
 4    fast_lock_data.free_list_head is lock_list_head. fast_lock_data.list is the
 5    first two words of lock_list_block.  Other lock_list_block's are threaded
 6    to make a list.  block_data is large enough to contain
 7    fast_lock_wakeup_block (largest fast lock block type).
 8 */
 9 
10 /* HISTORY:
11 Written by John Bongiovanni, 06/15/82.
12 Modified:
13 10/12/84 by Stanford S. Cox:  Added version constants.
14 11/14/84 by Stanford S. Cox:  Removed lock_list_head.version as fast_lock_data
15    has a version.
16 */
17 
18 /* format: style2,^inddcls,ifthenstmt,ifthendo,^indnoniterdo,^inditerdo,ind3,idind32 */
19 dcl     lock_list_head_ptr              ptr;
20 dcl     lock_list_block_ptr             ptr;
21 dcl     lock_list_meters_ptr            ptr;
22 
23 dcl     lock_list_block_words           fixed bin;
24 
25 dcl     LOCK_LIST_METERS_VERSION_1      char (8) aligned init ("lklsmt 1") int static options (constant);
26 
27 dcl     1 lock_list_head                aligned based (lock_list_head_ptr),
28           2 firstp                      bit (18) unal,
29           2 mbz                         bit (18) unal;
30 
31 dcl     1 lock_list_block               aligned based (lock_list_block_ptr),
32           2 nextp                       bit (18) unal,
33           2 mbz                         bit (18) unal,
34           2 block_words                 fixed bin (17) unal,
35           2 pad                         bit (18) unal,
36           2 block_data                  (lock_list_block_words refer (lock_list_block.block_words)) bit (36) aligned;
37 
38 dcl     1 lock_list_meters              aligned based (lock_list_meters_ptr),
39           2 version                     char (8) aligned,
40           2 thrdout_calls               fixed bin (35),
41           2 thrdin_calls                fixed bin (35),
42           2 thrdout_steps               fixed bin (35),
43           2 thrdin_steps                fixed bin (35);
44 
45 
46 /*  END OF:         dm_lock_list_strucs_.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */