d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Improved CSA some more

Browse source
This commit is contained in:
ceriel 1993-11-24 12:39:19 +00:00
parent 0b7ae7a629
commit 67c750a70c
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
util/int/do_misc.c
View file

@ -432,15 +432,12 @@ PRIVATE index_jump(nbytes)
register ptr cdp = dppop(); /* Case Descriptor Pointer */
register long t_index = /* Table INDEX */
spop(nbytes) - mem_lds(cdp + psize, nbytes);
register ptr nPC; /* New Program Counter */
register ptr nPC = 0; /* New Program Counter */
if (t_index >= 0 && t_index <= mem_lds(cdp + nbytes + psize, nbytes)) {
nPC = mem_ldip(cdp + (2 * nbytes) + ((t_index + 1) * psize));
if (nPC == 0) {
trap(ECASE);
}
}
else if ((nPC = mem_ldip(cdp)) == 0) {
if (nPC == 0 && (nPC = mem_ldip(cdp)) == 0) {
trap(ECASE);
}
newPC(nPC);