/*																				*/
/*																				*/
/*				File:		  	setval.c										*/
/*				Returns:	  	void											*/
/*				Parameters:	i - int - ref no. of item to be set	*/
/*								j - int - value to be set into i		*/
/*																				*/

#include "stdio.h"

#include "advm.h"
#include "values.h"

#include "object.h"
#include "var.h"


void setval (i,j)
int i;
int j;

	{
	if (object(i))
		{
		array(objval,i-1000);
		objval[i-1000] = j;
		}
	else if (var(i))
		{
		array(varval,i-7000);
		varval[i-7000] = j;
		}
	else
		printf("Glitch!  Bad SETVAL - key = %d on record %d.%03d after loc %d\n",
					i,rec2,rec1,bp);
	}