/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */

/*  S H A R E D   F I L E
 *
 *  I N I T _ G L O B L S
 *
 */

#include "../share/types.h"
#include "../share/debug.h"
#include "../share/global.h"
#include "../share/alloc.h"
#include "../share/map.h"


extern short nrglobals;

init_globals()
{
	/* Assign a 'global variable number (o_globnr) to
	 * every global variable for which we want to
	 * maintain ud-info. We do not maintain ud-info
	 * for a global variable if:
	 *  - it is part of a ROM data block (so it will never be changed)
	 *  - it's size is not known
	 *  - it overlaps another variable (e.g. LOE X+2 ; LDE X)
	 */

	dblock_p d;
	obj_p obj, prev;
	short nr = 1;
	offset ill_zone, x;

	for (d = fdblock; d != (dblock_p) 0; d = d->d_next) {
		ill_zone = (offset) 0;
		for (obj = d->d_objlist; obj != (obj_p) 0; obj = obj->o_next) {
			if (d->d_pseudo == DROM ||
			    obj->o_size == UNKNOWN_SIZE) {
				obj->o_globnr = 0; /* var. not considered */
				continue;
			}
			if (obj->o_off < ill_zone) {
				obj->o_globnr = 0; /* var. not considered */
				if (prev != (obj_p) 0 && prev->o_globnr != 0) {
					prev->o_globnr = 0;
					nr--;
				}
			} else {
				obj->o_globnr = nr++;
			}
			if ((x = obj->o_off + obj->o_size) > ill_zone) {
				ill_zone = x;
			}
			prev = obj;
		}
	}
	nrglobals = nr -1;
}