ack/util/ego/ra/ra_aux.c
1984-11-26 14:35:32 +00:00

41 lines
658 B
C

/* 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));
}