From 083dccb29987784969ee99aa4f3bc84ebd577909 Mon Sep 17 00:00:00 2001 From: keie Date: Mon, 1 Oct 1984 16:05:17 +0000 Subject: [PATCH] Nill pointers are not allowed in CSA descriptors any more. --- doc/em/em.i | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/doc/em/em.i b/doc/em/em.i index d2f98cec1..560c4bfd5 100644 --- a/doc/em/em.i +++ b/doc/em/em.i @@ -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; -- 2.34.1