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 7bdce956647516f44c48f8797c0b880d02a0db1f..c39c6386ef62e6e3c5e718bc693dee1cfed3a883 100644 (file)
--- 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