39 lines
876 B
C
39 lines
876 B
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++;
|
|
}
|