projects
/
pdp10-muddle.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dbc9bcc
)
Make STINK ignore bad EXPUNGEs (with a warning).
author
Adam Sampson
<ats@offog.org>
Mon, 16 Apr 2018 10:52:07 +0000
(11:52 +0100)
committer
Adam Sampson
<ats@offog.org>
Mon, 16 Apr 2018 10:52:07 +0000
(11:52 +0100)
The same fix needs doing to the current version of STINK.
<mdl.int>/stink.2
patch
|
blob
|
history
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