/*  R E G I S T E R   A L L O C A T I O N
 *
 *  A U X I L I A R Y   R O U T I N E S
 */

#include "../share/types.h"
#include "../share/debug.h"
#include "../share/def.h"
#include "../share/global.h"
#include "../share/lset.h"
#include "../share/alloc.h"
#include "../../../h/em_mnem.h"
#include "../../../h/em_spec.h"
#include "../../../h/em_pseu.h"
#include "../../../h/em_reg.h"
#include "ra.h"
#include "ra_aux.h"


time_p cons_time(l,b)
	line_p l;
	bblock_p b;
{
	/* Construct a time */

	time_p t = newtime();

	t->t_line = l;
	t->t_bblock = b;
	return t;
}




short loop_scale(lev)
	short lev;
{
	return (lev == 0 ? 1 : (lev > 3 ? 20 : 5 * lev));
}