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".
|
|
|
|
*/
|
2018-02-05 21:09:30 +00:00
|
|
|
extern offset array_elemsize(valnum vm);
|
|
|
|
/*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Returns the size of array-elements,
|
|
|
|
* if vn is the valuenumber of the
|
|
|
|
* address of an array-descriptor.
|
|
|
|
*/
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern occur_p occ_elem(Lindex i); /*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Returns a pointer to the occurrence
|
|
|
|
* of which i is an index in a set.
|
|
|
|
*/
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern entity_p en_elem(Lindex i); /*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Returns a pointer to the entity
|
|
|
|
* of which i is an index in a set.
|
|
|
|
*/
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern valnum newvalnum(void); /*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Returns a completely new
|
|
|
|
* value number.
|
|
|
|
*/
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern void start_valnum(void); /*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Restart value numbering.
|
|
|
|
*/
|