1 /* BEGIN INCLUDE FILE gtss_ptr_check.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  07/14/78 1907.0 mst Fri
 4 */
 5 
 6 /**       The following used to (attempt) to guard
 7           against improper pointer values, i.e.,
 8 
 9           if (addr(ptr_var)->bit72&get_ptr_bits)=ptr_constant then
10           ptr_var may be OK;
11           else
12           ptr_var NOT OK;
13  **/
14 dcl  bit72        bit(72)aligned based;
15 dcl  get_ptr_bits bit(72)aligned static int options(constant)init("000000000077000000600077"b3);
16 dcl  ptr_constant bit(72)aligned static int options(constant)init("000000000043"b3);
17 
18 /*   END INCLUDE FILE gtss_ptr_check.incl.pl1 */