1 /* Begin include file dm_lm_per_process_data_.incl.pl1 */
 2 
 3 /* DESCRIPTION:
 4 
 5     Hash table for per-process control interval locks.
 6 */
 7 
 8 /* HISTORY:
 9 Written by Benson Margulies, 4/15/83.
10 Modified:
11 12/04/84 by Stanford S. Cox: Added description.
12 */
13 /* format: style3,idind25 */
14 
15 declare   lock_per_process_ptr     pointer;
16 
17 declare   1 lock_per_process       aligned based (lock_per_process_ptr),
18             2 n_ht_entries         fixed bin,               /* Number of hash table entries */
19             2 ht_mask              bit (36) aligned,        /* Mask for hash table */
20             2 area_size            fixed bin,
21             2 area_ptr             pointer,
22             2 hash_table           (0:n_hash_table_entries - 1 refer (lock_per_process.n_ht_entries))
23                                    offset (lm_per_process_area);
24                                                             /* Hash Table  */
25 
26 declare   n_hash_table_entries     fixed bin;
27 
28 declare   lm_per_process_area      area (lock_per_process.area_size) based (lock_per_process.area_ptr);
29 
30 declare   per_process_file_lock_ptr
31                                    pointer;
32 declare   1 per_process_file_lock  aligned based (per_process_file_lock_ptr),
33             2 f_uid                bit (36) aligned,
34             2 mode                 fixed bin,
35             2 ht_fp                offset (lm_per_process_area);
36 
37 /* End include file dm_lm_per_process_data_.incl.pl1 */