github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-17 08:43:21 +00:00
Code Issues Releases Wiki Activity

Ignore EXPUNGE for nonexistant symbols in REL files.

Browse Source 
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.
This commit is contained in:
Adam Sampson 2018-04-23 16:53:44 +01:00 committed by Adam Sampson
parent f5dfd38f16
commit 6a4633dcc0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mudsys/stink.2
View File

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