1 /* BEGIN INCLUDE FILE mdbm_seg_area.incl.pl1 - - Jim Gray 2/19/79 */
 2 
 3 /* these structures provide a standard for
 4    1) using an entire segment as an area, managed by the area manager
 5    2) a constant header, that has an offset to the major common structure in the area
 6    the pointer to that structure is obtained via pointer(model_seg_ptr, model_seg.offset)
 7    the model_area_ptr is obtained via pointer(model_seg_ptr, size(model_seg)) */
 8 
 9 declare 1 model_seg aligned based (model_seg_ptr),          /* segment header, not to be changed */
10         2 struct_offset bit (18),                           /* offset to major structure allocated in area */
11         2 padding (3) fixed bin ;                           /* to set up four word boundary */
12 
13 declare  model_seg_ptr ptr int automatic init (null ());
14 
15 
16 declare  model_area area (sys_info$max_seg_size - size (model_seg)) based (model_area_ptr) ; /* segment area */
17 
18 declare  model_area_ptr ptr int automatic init (null ());
19 
20 dcl size builtin;
21 
22 /* END INCLUDE FILE mdbm_seg_area.incl.pl1 */
23