ra_aux.h 887 B

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