util/ego/ra/ra_aux.h

   1 /* $Id: ra_aux.h,v 1.4 1994/06/24 10:27:36 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 #define regv_size(off)          regv_arg(off,2)
  12                                         /* Fetch the size argument of the
  13                                          * register message of the local with
  14                                          * the given offset.
  15                                          */
  16 #define regv_type(off)          regv_arg(off,3)
  17                                         /* Fetch the type argument of the
  18                                          * register message of the local with
  19                                          * the given offset.
  20                                          */
  21 extern time_p   cons_time();            /* (line_p l; bblock_p b)
  22                                          * Construct a 'time' record with
  23                                          * fields 'l' and 'b'.
  24                                          */
  25 extern short loop_scale();              /* (short lev)
  26                                          * Estimate how many times an item
  27                                          * appearing in a loop of nesting
  28                                          * level 'lev' will be used dynamically.
  29                                          */