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:	$Header$
*/

#include <m2_traps.h>

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

#if EM_WSIZE==EM_PSIZE
typedef unsigned pcnt;
#else
typedef long pcnt;
#endif

store(siz, addr, p)
	register char *addr;
	register pcnt siz;
{
	/*	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++;
}