Nill pointers are not allowed in CSA descriptors any more.
This commit is contained in:
parent
1bea1c6883
commit
083dccb299
1 changed files with 2 additions and 3 deletions
|
@ -1504,10 +1504,9 @@ begin
|
|||
end;
|
||||
CSA: begin k:=argw(k); if k<>wsize then trap(EILLINS);
|
||||
a:=popa;
|
||||
st:= popsw - signwd(memw(a+asize)); b:=0;
|
||||
st:= popsw - signwd(memw(a+asize));
|
||||
if (st>=0) and (st<=memw(a+wsize+asize)) then
|
||||
b:=mema(a+2*wsize+asize+asize*st);
|
||||
if b=0 then b:=mema(a);
|
||||
b:=mema(a+2*wsize+asize+asize*st) else b:=mema(a);
|
||||
if b=0 then trap(ECASE) else newpc(b)
|
||||
end;
|
||||
CSB: begin k:=argw(k); if k<>wsize then trap(EILLINS); a:=popa;
|
||||
|
|
Loading…
Reference in a new issue