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

Nill pointers are not allowed in CSA descriptors any more.

Browse source
This commit is contained in:
keie 1984-10-01 16:05:17 +00:00
parent 1bea1c6883
commit 083dccb299
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/em/em.i
View file

@ -1504,10 +1504,9 @@ begin
end; end;
CSA: begin k:=argw(k); if k<>wsize then trap(EILLINS); CSA: begin k:=argw(k); if k<>wsize then trap(EILLINS);
a:=popa; 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 if (st>=0) and (st<=memw(a+wsize+asize)) then
b:=mema(a+2*wsize+asize+asize*st); b:=mema(a+2*wsize+asize+asize*st) else b:=mema(a);
if b=0 then b:=mema(a);
if b=0 then trap(ECASE) else newpc(b) if b=0 then trap(ECASE) else newpc(b)
end; end;
CSB: begin k:=argw(k); if k<>wsize then trap(EILLINS); a:=popa; CSB: begin k:=argw(k); if k<>wsize then trap(EILLINS); a:=popa;