1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
1984-11-26 14:35:32 +00:00
|
|
|
/* 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
|
|
|
|
*/
|
|
|
|
|
|
|
|
#define regv_size(off) regv_arg(off,2)
|
|
|
|
/* Fetch the size argument of the
|
|
|
|
* register message of the local with
|
|
|
|
* the given offset.
|
|
|
|
*/
|
|
|
|
#define regv_type(off) regv_arg(off,3)
|
|
|
|
/* Fetch the type argument of the
|
|
|
|
* register message of the local with
|
|
|
|
* the given offset.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
time_p cons_time(line_p l, bblock_p b); /*
|
1984-11-26 14:35:32 +00:00
|
|
|
* Construct a 'time' record with
|
|
|
|
* fields 'l' and 'b'.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
short loop_scale(short lev); /*
|
1984-11-26 14:35:32 +00:00
|
|
|
* Estimate how many times an item
|
|
|
|
* appearing in a loop of nesting
|
|
|
|
* level 'lev' will be used dynamically.
|
|
|
|
*/
|