1987-03-10 11:49:39 +00:00
|
|
|
/* $Header$ */
|
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 13:43:22 +00:00
|
|
|
extern avail_p avails; /* The set of available expressions. */
|
|
|
|
|
|
|
|
|
|
extern avail_p av_enter(); /* (avail_p avp, occur_p ocp, byte kind)
|
|
|
|
|
* Puts the available expression in avp
|
|
|
|
|
* in the list of available expressions,
|
|
|
|
|
* if it is not already there. Add ocp to set of
|
|
|
|
|
* occurrences of this expression.
|
|
|
|
|
* If we have a new expression, we test whether
|
|
|
|
|
* the result is saved. When this expression
|
|
|
|
|
* recurs,we test if we can still use the
|
|
|
|
|
* variable into which it was saved.
|
|
|
|
|
* (Kind is the kind of the expression.)
|
|
|
|
|
* Returns a pointer into the list.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
extern clr_avails(); /* Release all space occupied by the old list
|
|
|
|
|
* of available expressions.
|
|
|
|
|
*/
|
