86 lines
1.5 KiB
C
86 lines
1.5 KiB
C
/*
|
|
* Sources of the "POINTER ARITHMETIC" group instructions
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include <em_abs.h>
|
|
#include "segcheck.h"
|
|
#include "global.h"
|
|
#include "log.h"
|
|
#include "mem.h"
|
|
#include "trap.h"
|
|
#include "warn.h"
|
|
#include "text.h"
|
|
#include "fra.h"
|
|
|
|
#define adp(p,w) ((p) + (w))
|
|
#define sbs(t,s) ((s) - (t))
|
|
|
|
#ifdef SEGCHECK
|
|
|
|
#define check_seg(s1,s2,w) if (s1 != s2) { warning(w); }
|
|
|
|
#else
|
|
|
|
#define check_seg(s1,s2,w)
|
|
|
|
#endif /* SEGCHECK */
|
|
|
|
DoADP(l)
|
|
register long l;
|
|
{
|
|
/* ADP f: Add f to pointer on top of stack */
|
|
register ptr p, t = st_lddp(SP);
|
|
|
|
LOG(("@R6 DoADP(%ld)", l));
|
|
spoilFRA();
|
|
if (t == 0) {
|
|
warning(WNULLPA);
|
|
}
|
|
l = arg_f(l);
|
|
p = adp(t, l);
|
|
check_seg(ptr2seg(t), ptr2seg(p), WSEGADP);
|
|
st_stdp(SP, p);
|
|
}
|
|
|
|
DoADS(l)
|
|
register size l;
|
|
{
|
|
/* ADS w: Add w-byte value and pointer */
|
|
register long t = spop(arg_wi(l));
|
|
register ptr p, s = st_lddp(SP);
|
|
|
|
LOG(("@R6 DoADS(%ld)", l));
|
|
spoilFRA();
|
|
t = arg_f(t);
|
|
if (s == 0) {
|
|
warning(WNULLPA);
|
|
}
|
|
p = adp(s, t);
|
|
check_seg(ptr2seg(s), ptr2seg(p), WSEGADP);
|
|
st_stdp(SP, p);
|
|
}
|
|
|
|
DoSBS(l)
|
|
register size l;
|
|
{
|
|
/* SBS w: Subtract pointers in same fragment and push diff as size w integer */
|
|
register ptr t = st_lddp(SP);
|
|
register ptr s = st_lddp(SP + psize);
|
|
register long w;
|
|
|
|
LOG(("@R6 DoSBS(%ld)", l));
|
|
spoilFRA();
|
|
l = arg_wi(l);
|
|
check_seg(ptr2seg(t), ptr2seg(s), WSEGSBS);
|
|
w = sbs(t, s);
|
|
if (must_test && !(IgnMask&BIT(EIOVFL))) {
|
|
if (l == 2 && (w < I_MINS2 || w > I_MAXS2))
|
|
trap(EIOVFL);
|
|
}
|
|
dppop();
|
|
dppop();
|
|
npush(w, l);
|
|
}
|