1234567891011121314151617181920212223242526272829 |
- /* $Id$ */
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* 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.
- */
- extern time_p cons_time(); /* (line_p l; bblock_p b)
- * Construct a 'time' record with
- * fields 'l' and 'b'.
- */
- extern short loop_scale(); /* (short lev)
- * Estimate how many times an item
- * appearing in a loop of nesting
- * level 'lev' will be used dynamically.
- */
|