From 6a4633dcc01121e84a79dc6bd5ff3b92e73a6e3c Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Mon, 23 Apr 2018 16:53:44 +0100 Subject: [PATCH] Ignore EXPUNGE for nonexistant symbols in REL files. Most versions of MIDAS emit a 76 directive for each EXPUNGE, even if the symbol being EXPUNGEd didn't exist. However, STINK treated a 76 directive for a symbol it didn't know about as an error. Make it ignore the directive instead, skipping the next word to stay in sync. --- src/mudsys/stink.2 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mudsys/stink.2 b/src/mudsys/stink.2 index 7bdce956..e9c44503 100644 --- a/src/mudsys/stink.2 +++ b/src/mudsys/stink.2 @@ -527,7 +527,8 @@ 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,[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