44 lines
954 B
C
44 lines
954 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: $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++;
|
||
|
|
}
|