12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485 |
- /*
- * Sources of the "POINTER ARITHMETIC" group instructions
- */
- /* $Header$ */
- #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);
- }
|