From: Adam Sampson <ats@offog.org>
Date: Mon, 16 Apr 2018 10:52:07 +0000 (+0100)
Subject: Make STINK ignore bad EXPUNGEs (with a warning).
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;ds=inline;h=388e15d76f7b32d587f691a2523d2e2487a2ca11;p=pdp10-muddle.git

Make STINK ignore bad EXPUNGEs (with a warning).

The same fix needs doing to the current version of STINK.
---

diff --git a/<mdl.int>/stink.2 b/<mdl.int>/stink.2
index 7bdce95..c39c638 100644
--- a/<mdl.int>/stink.2
+++ b/<mdl.int>/stink.2
@@ -527,7 +527,9 @@ LOCGLO:	JUMPGE T,LG2	;JUMP FOR NORMAL LOCAL TO GLOBAL RECOVERY
 
 ;HERE TO EXPUNGE OR RENAME LOCAL IN LOADER TABLE
 
-	JUMPGE D,[JRST 4,.]	;NO SYMBOL THERE
+	JUMPGE D,[(5000+SIXBIT /ENS/)
+	          PUSHJ P,RPB	;Expunge for nonexistant symbol - ignore
+	          JRST DATABK]
 	HRRZM D,T2		;TABLE ENTRY TO DELETE
 	PUSHJ P,RPB		;SOAK UP ANOTHER WORD
 	JUMPGE T,LG1		;JUMP TO RENAME LOCAL