github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-26 04:02:06 +00:00
Code Issues Releases Wiki Activity

Avoid race condition after :TCTYP LA36.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-11-01 10:21:09 +01:00
parent ecc5edecfa
commit b0eed4699a
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
build/emacs.tcl
View File

@@ -106,7 +106,13 @@ respond "*" "info\033\023"
respond "*" ":emacs\r"
expect "INFO Dumped"
expect ":KILL"
respond "*" ":tctyp la36\r"
respond "*" ":tctyp la36"
# Race condition here. Since the terminal type is set to AAA, the CR
# character is stored as %TDCRL in the output buffer. But if TCTYP
# changes the terminal type to LA36 before the %TDCRL is processed,
# the code outputs nothing since that is the behavior on a printing
# terminal.
send "\r"
expect ":KILL"
# The previous file version was 62, dated 1982-01-05.
respond "*" ":rename emacs; tsinfo >, tsinfo 63\r"
@@ -134,7 +140,9 @@ respond "*" ":cwd kmp\r"
respond "*" "kmp\033\023"
respond "*" ":dumpt \033turnip;view\r"
expect "Dumped to"
respond "*" ":tctyp la36\r"
respond "*" ":tctyp la36"
# Race condition. See previous :tctyp la36.
send "\r"
respond "*" ":move turnip; ts view, sys3;\r"
# VDIR