From: keie <none@none>
Date: Mon, 1 Oct 1984 16:05:17 +0000 (+0000)
Subject: Nill pointers are not allowed in CSA descriptors any more.
X-Git-Tag: release-5-5~6085
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=083dccb29987784969ee99aa4f3bc84ebd577909;p=ack.git

Nill pointers are not allowed in CSA descriptors any more.
---

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;