github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Let BUGHST default to local host

Browse Source 
Change default value of BUGHST to 0, and let that mean the same as if it is set to (one of) the address(es) of the local host.
This commit is contained in:
Björn Victor 2024-09-04 10:27:04 +02:00 committed by Lars Brinkhoff
parent 23a27a5345
commit 5b51b6d673
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/sysnet/comsat.584 → src/sysnet/comsat.585
View File

@ -8418,6 +8418,7 @@ RXPBUG: PUSHAE P,[C,D,L]
JRST [SETZ B, ? JRST RXPB90] ; Yikes, recursing! Just ignore...
MOVE L,$ARLOC+EQVAR ; All stuff must be CONSed in EQVAR.
MOVE D,BUGHST ; Are we the magic host on which most program
JUMPE D,RXPB50 ; or is it unspecified?
CAME D,OWNHS2
CAMN D,OWNHST ; maintainers reside?
JRST RXPB50 ; Yes, send to (BUG RANDOM-PROGRAM)
@ -8439,7 +8440,7 @@ RXPB90: AOS -3(P)
RET
;; Kludge -- magic host address which can deal with BUG-RANDOM-PROGRAM
BUGHST: HN$MC ; MC.LCS.MIT.EDU this week...
BUGHST: 0 ; If zero, use local host
SUBTTL RXPERR - send error message after expansion/header.