From 388e15d76f7b32d587f691a2523d2e2487a2ca11 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Mon, 16 Apr 2018 11:52:07 +0100
Subject: [PATCH] Make STINK ignore bad EXPUNGEs (with a warning).

The same fix needs doing to the current version of STINK.
---
 <mdl.int>/stink.2 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.31.1