util/ego/ra/ra_aux.c

   1 /* $Id: ra_aux.c,v 1.6 1994/06/24 10:27:33 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 /*  R E G I S T E R   A L L O C A T I O N
   7  *
   8  *  A U X I L I A R Y   R O U T I N E S
   9  */
  10
  11 #include <em_mnem.h>
  12 #include <em_spec.h>
  13 #include <em_pseu.h>
  14 #include <em_reg.h>
  15 #include "../share/types.h"
  16 #include "../share/debug.h"
  17 #include "../share/def.h"
  18 #include "../share/global.h"
  19 #include "../share/lset.h"
  20 #include "../share/alloc.h"
  21 #include "ra.h"
  22 #include "ra_aux.h"
  23
  24
  25 time_p cons_time(l,b)
  26         line_p l;
  27         bblock_p b;
  28 {
  29         /* Construct a time */
  30
  31         time_p t = newtime();
  32
  33         t->t_line = l;
  34         t->t_bblock = b;
  35         return t;
  36 }
  37
  38
  39
  40
  41 short loop_scale(lev)
  42         short lev;
  43 {
  44         return (lev == 0 ? 1 : (lev > 3 ? 32 : 8 * lev));
  45 }