64 lines
1.3 KiB
C
64 lines
1.3 KiB
C
|
/* $Header$ */
|
||
|
|
/*
|
||
|
|
* (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_err.h>
|
||
|
|
|
||
|
|
extern _trp();
|
||
|
|
|
||
|
|
#define assert(x) /* nothing */
|
||
|
|
|
||
|
|
#ifndef EM_WSIZE
|
||
|
|
#define EM_WSIZE _EM_WSIZE
|
||
|
|
#endif
|
||
|
|
|
||
|
|
struct descr {
|
||
|
|
int low;
|
||
|
|
int diff;
|
||
|
|
int size;
|
||
|
|
};
|
||
|
|
|
||
|
|
_pac(ad,zd,zp,i,ap) int i; struct descr *ad,*zd; char *zp,*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++;
|
||
|
|
}
|
||
|
|
}
|