108 lines
2 KiB
C
108 lines
2 KiB
C
/* $Header$ */
|
|
|
|
/* The Return Status Block contains, in push order:
|
|
FIL, LIN, LB, PC, PI, rsbcode
|
|
*/
|
|
|
|
#include "logging.h"
|
|
#include "global.h"
|
|
#include "mem.h"
|
|
#include "rsb.h"
|
|
#include "proctab.h"
|
|
#include "linfil.h"
|
|
#include "shadow.h"
|
|
#include "warn.h"
|
|
|
|
/* offsets to be added to a local base */
|
|
int rsb_rsbcode;
|
|
int rsb_PI;
|
|
int rsb_PC;
|
|
int rsb_LB;
|
|
int rsb_LIN;
|
|
int rsb_FIL;
|
|
int rsbsize;
|
|
|
|
init_rsb()
|
|
{
|
|
rsb_rsbcode = 0;
|
|
rsb_PI = wsize;
|
|
rsb_PC = rsb_PI + psize;
|
|
rsb_LB = rsb_PC + psize;
|
|
rsb_LIN = rsb_LB + psize;
|
|
rsb_FIL = rsb_LIN + LINSIZE;
|
|
rsbsize = rsb_FIL + psize;
|
|
}
|
|
|
|
pushrsb(rsbcode)
|
|
int rsbcode;
|
|
{
|
|
/* fill Return Status Block */
|
|
st_inc(rsbsize);
|
|
|
|
st_stdp(SP + rsb_FIL, getFIL());
|
|
st_prot(SP + rsb_FIL, psize);
|
|
|
|
st_stn(SP + rsb_LIN, (long)getLIN(), LINSIZE);
|
|
st_prot(SP + rsb_LIN, LINSIZE);
|
|
|
|
st_stdp(SP + rsb_LB, LB);
|
|
st_prot(SP + rsb_LB, psize);
|
|
|
|
st_stip(SP + rsb_PC, PC);
|
|
st_prot(SP + rsb_PC, psize);
|
|
|
|
st_stn(SP + rsb_PI, PI, psize);
|
|
st_prot(SP + rsb_PI, psize);
|
|
|
|
st_stn(SP + rsb_rsbcode, (long)rsbcode, wsize);
|
|
st_prot(SP + rsb_rsbcode, wsize);
|
|
|
|
newLB(SP);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
int poprsb(rtt)
|
|
int rtt; /* set to 1 if working for RTT */
|
|
{
|
|
/* pops the RSB and returns the rsbcode, for further testing */
|
|
register int rsbcode;
|
|
|
|
#ifdef LOGGING
|
|
{
|
|
/* check SP */
|
|
register ptr properSP = LB - proctab[PI].pr_nloc;
|
|
|
|
if (SP < properSP)
|
|
warning(rtt ? WRTTSTL : WRETSTL);
|
|
if (SP > properSP)
|
|
warning(rtt ? WRTTSTS : WRETSTS);
|
|
}
|
|
#endif LOGGING
|
|
|
|
/* discard stack up to RSB */
|
|
newSP(LB);
|
|
|
|
/* get RSB code and test it for applicability */
|
|
rsbcode = st_ldu(SP + rsb_rsbcode, wsize);
|
|
if ((rsbcode & RSBMASK) != RSBCODE) /* no RSB at all */
|
|
return rsbcode;
|
|
|
|
if (rsbcode != RSB_STP) {
|
|
/* Restore registers PI, PC, LB, LIN and FIL
|
|
from Return Status Block
|
|
*/
|
|
PI = st_lds(SP + rsb_PI, psize);
|
|
newPC(st_ldip(SP + rsb_PC));
|
|
newLB(st_lddp(SP + rsb_LB));
|
|
putLIN((long) st_ldu(SP + rsb_LIN, LINSIZE));
|
|
putFIL(st_lddp(SP + rsb_FIL));
|
|
|
|
/* remove RSB */
|
|
st_dec(rsbsize);
|
|
|
|
pop_frames();
|
|
}
|
|
|
|
return rsbcode;
|
|
}
|
|
|