59 lines
1.2 KiB
C
59 lines
1.2 KiB
C
/* $Id$ */
|
|
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
*/
|
|
|
|
/* Author: J.W. Stevenson */
|
|
|
|
#include "pc.h"
|
|
|
|
#define assert(x) /* nothing */
|
|
|
|
#ifndef EM_WSIZE
|
|
#define EM_WSIZE _EM_WSIZE
|
|
#endif
|
|
|
|
void _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap)
|
|
{
|
|
|
|
if (zd->diff > ad->diff || (i -= ad->low) < 0 || (i + zd->diff) > ad->diff)
|
|
_trp(EPACK);
|
|
ap += (i * ad->size);
|
|
i = (zd->diff + 1) * zd->size;
|
|
if (zd->size == 1)
|
|
{
|
|
int* aptmp = (int*)ap;
|
|
assert(ad->size == EM_WSIZE);
|
|
while (--i >= 0)
|
|
*zp++ = *aptmp++;
|
|
#if EM_WSIZE > 2
|
|
}
|
|
else if (zd->size == 2)
|
|
{
|
|
int* aptmp = (int*)ap;
|
|
short* zptmp = (short*)zp;
|
|
assert(ad->size == EM_WSIZE);
|
|
while (--i >= 0)
|
|
*zptmp++ = *aptmp++;
|
|
#endif
|
|
}
|
|
else
|
|
{
|
|
assert(ad->size == zd->size);
|
|
while (--i >= 0)
|
|
*zp++ = *ap++;
|
|
}
|
|
}
|