/*  R E G I S T E R   A L L O C A T I O N
 *
 *  R A _ P A C K . H
 */

extern pack();		/* ( alloc_p alloclist, *packed_out,*not_packed_out;
			 *   bool time_opt; proc_p p)
			 * This is the packing system. It decides which 
			 * allations  to grant a register.
			 */