ack/lang/m2/libm2/store.c

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

/*
  Module:	store values from stack, byte by byte
  Author:	Ceriel J.H. Jacobs
  Version:	$Id$
*/

#include "libm2.h"
#include <m2_traps.h>

#ifndef EM_WSIZE
#define EM_WSIZE _EM_WSIZE
#define EM_PSIZE _EM_PSIZE
#endif

void store(size_t siz, char* addr, int p)
{
	/*	Make sure, that a value with a size that could have been
	    handled by the LOI instruction is handled as if it was
	    loaded with the LOI instruction.
	*/
	register char* q = (char*)&p;
	char t[4];

	if (siz < EM_WSIZE && EM_WSIZE % siz == 0)
	{
		/* as long as EM_WSIZE <= 4 ... */
		if (siz != 2)
			TRP(M2_INTERNAL); /* internal error */
		*((unsigned short*)(&t[0])) = *((unsigned*)q);
		q = &t[0];
	}
	while (siz--)
		*addr++ = *q++;
}