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:14:55 +00:00
|
|
|
/* I N L I N E S U B S T I T U T I O N
|
|
|
|
*
|
|
|
|
* I L 1 _ A U X . H
|
|
|
|
*/
|
|
|
|
|
2019-10-31 22:05:22 +00:00
|
|
|
bool same_size(int t1, int t2); /*
|
1984-11-26 14:14:55 +00:00
|
|
|
* See if the two types t1 and t2 have
|
|
|
|
* the same size.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
void rem_actuals(actual_p acts);/*
|
1984-11-26 14:14:55 +00:00
|
|
|
* remove an actual-list from core.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
void remov_formals(proc_p p); /*
|
1984-11-26 14:14:55 +00:00
|
|
|
* Remove the formals-list of p from core.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
void rem_indir_acc(proc_p p); /*
|
1984-11-26 14:14:55 +00:00
|
|
|
* Remove formal that may be accessed
|
|
|
|
* indirectly from formal lists of p
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
bool par_overlap(offset off1, int t1, offset off2, int t2);
|
|
|
|
/*
|
1984-11-26 14:14:55 +00:00
|
|
|
* See if the formal at offset off1 and type t1
|
|
|
|
* overlaps the formal at offset off2
|
|
|
|
* and type t2.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
short looplevel(bblock_p b); /*
|
1984-11-26 14:14:55 +00:00
|
|
|
* Determine the loop nesting level of b.
|
|
|
|
*/
|
2019-10-31 22:05:22 +00:00
|
|
|
int proclength(proc_p p); /*
|
1984-11-26 14:14:55 +00:00
|
|
|
* Determine the number of EM instructions
|
|
|
|
* in p. Do not count pseudos.
|
|
|
|
*/
|
|
|
|
|
2019-10-31 22:05:22 +00:00
|
|
|
line_p copy_code(line_p l1, line_p l2);
|
|
|
|
/*
|
1984-11-26 14:14:55 +00:00
|
|
|
* copy the code between l1 and l2.
|
|
|
|
* Pseudos may not be contained in
|
|
|
|
* the list of instructions. If l1==l2
|
|
|
|
* the result is only one instruction.
|
|
|
|
*/
|