From d3077d7fb1891b74ba54dfd39d2cdd6044cb92c0 Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Mon, 19 Jul 2021 12:08:15 +0000 Subject: tex.ch: initialize the variable limit (H. Kitagawa) alephdir/com16bit.ch: sync with tex.ch git-svn-id: svn://tug.org/texlive/trunk@59986 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/alephdir/ChangeLog | 5 +++++ Build/source/texk/web2c/alephdir/com16bit.ch | 17 +++++++++++++++++ 2 files changed, 22 insertions(+) (limited to 'Build/source/texk/web2c/alephdir') diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog index 991646529a0..9a243b00dc8 100644 --- a/Build/source/texk/web2c/alephdir/ChangeLog +++ b/Build/source/texk/web2c/alephdir/ChangeLog @@ -1,3 +1,8 @@ +2021-07-19 Hironobu Yamashita + + * com16bit.ch: Sync with tex.ch to initialize limit. + https://tug.org/pipermail/tex-k/2021-July/003630.html + 2021-05-08 Akira Kakuto * com16bit.ch: Sync sup_param_size and sup_save_size with tex.ch. diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch index 8e737ed59ea..817f1d5098e 100644 --- a/Build/source/texk/web2c/alephdir/com16bit.ch +++ b/Build/source/texk/web2c/alephdir/com16bit.ch @@ -679,6 +679,14 @@ else begin slow_print(format_ident); print_ln; end; @z +@x [5.??] term_input: set limit when fatal_error (patch to omtrans.ch) +if not new_input_ln(term_in,term_in_mode,term_in_translation,true) +then fatal_error("End of file on the terminal!"); +@y +if not new_input_ln(term_in,term_in_mode,term_in_translation,true) +then begin limit:=0; fatal_error("End of file on the terminal!"); end; +@z + @x [6.73] l.1732 - Add unspecified_mode. @d error_stop_mode=3 {stops at every opportunity to interact} @y @@ -1031,6 +1039,15 @@ begin input_ptr:=0; max_in_stack:=0; source_filename_stack[0]:=0;full_source_filename_stack[0]:=0; @z +@x [27.???] +else fatal_error("*** (cannot \read from terminal in nonstop modes)") +@y +else begin + limit:=0; + fatal_error("*** (cannot \read from terminal in nonstop modes)"); + end +@z + @x [28.501] l.9747 - \eof18 if_eof_code: begin scan_four_bit_int; b:=(read_open[cur_val]=closed); end; -- cgit v1.2.3