/* $Id$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */

/*  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.
			 */