Support \tracingstacklevels in [e][u]pTeX (H. Kitagawa)

git-svn-id: svn://tug.org/texlive/trunk@57726 c570f23f-e606-0410-a88d-b1316a301751

10 files changed, 26 insertions, 8 deletions

diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index f61bcd6c3ee..af6f0a2c4ba 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,11 @@
+2021-02-13  Hironori Kitagawa  <h_kitagawa2001@yahoo.co.jp>
+
+	* eptexdir/am/eptex.am, eptexdir/etex.ch1,
+	euptexdir/am/euptex.am, ptexdir/am/ptex.am,
+	ptexdir/ptex-base.ch, synctexdir/synctex-ep-mem.ch1,
+	synctexdir/synctex-p-mem.ch1, and uptexdir/am/uptex.am:
+	Support \tracingstacklevels in [e][u]pTeX.
+
 2021-02-13  Akira Kakuto  <kakuto@w32tex.org>
 
 	* enctex.ch: Recover the original enctex.ch in order to be
diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index 369c3f0b281..fc0fb3d0997 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -4302,6 +4302,7 @@ ptex_prereq = ptexd.h ptexdir/ptex_version.h $(am__append_135)
 ptex_web_srcs = \
 	tex.web \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch
 
 ptex_ch_srcs = \
@@ -4361,6 +4362,7 @@ eptex_web_srcs = \
 	etexdir/etex.ch \
 	etexdir/tex.ch0 \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch \
 	etexdir/tex.ech
 
@@ -4405,6 +4407,7 @@ uptex_prereq = uptexd.h ptexdir/ptex_version.h \
 uptex_web_srcs = \
 	tex.web \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch
 
 uptex_ch_srcs = \
@@ -4469,6 +4472,7 @@ euptex_web_srcs = \
 	etexdir/etex.ch \
 	etexdir/tex.ch0 \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch \
 	etexdir/tex.ech
 
diff --git a/Build/source/texk/web2c/eptexdir/am/eptex.am b/Build/source/texk/web2c/eptexdir/am/eptex.am
index 596d7a42d7e..7a99872b062 100644
--- a/Build/source/texk/web2c/eptexdir/am/eptex.am
+++ b/Build/source/texk/web2c/eptexdir/am/eptex.am
@@ -54,6 +54,7 @@ eptex_web_srcs = \
 	etexdir/etex.ch \
 	etexdir/tex.ch0 \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch \
 	etexdir/tex.ech
 
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch1 b/Build/source/texk/web2c/eptexdir/etex.ch1
index 14b10a2925e..5ead28f9859 100644
--- a/Build/source/texk/web2c/eptexdir/etex.ch1
+++ b/Build/source/texk/web2c/eptexdir/etex.ch1
@@ -16,10 +16,10 @@ last_node_type:=-1; last_node_subtype:=-1;
 @z
 
 @x [17.236]
-@d int_pars=63 {total number of integer parameters}
+@d int_pars=64 {total number of integer parameters}
 @d count_base=int_base+int_pars {256 user \.{\\count} registers}
 @y
-@d tex_int_pars=63 {total number of \TeX's integer parameters}
+@d tex_int_pars=64 {total number of \TeX's integer parameters}
 @#
 @d etex_int_base=tex_int_pars {base for \eTeX's integer parameters}
 @z
diff --git a/Build/source/texk/web2c/euptexdir/am/euptex.am b/Build/source/texk/web2c/euptexdir/am/euptex.am
index cd65b7c618c..077af91a7aa 100644
--- a/Build/source/texk/web2c/euptexdir/am/euptex.am
+++ b/Build/source/texk/web2c/euptexdir/am/euptex.am
@@ -50,6 +50,7 @@ euptex_web_srcs = \
 	etexdir/etex.ch \
 	etexdir/tex.ch0 \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch \
 	etexdir/tex.ech
 
diff --git a/Build/source/texk/web2c/ptexdir/am/ptex.am b/Build/source/texk/web2c/ptexdir/am/ptex.am
index 3de571c7cbe..043acb701b4 100644
--- a/Build/source/texk/web2c/ptexdir/am/ptex.am
+++ b/Build/source/texk/web2c/ptexdir/am/ptex.am
@@ -74,6 +74,7 @@ ptex.web: tie$(EXEEXT) $(ptex_web_srcs)
 ptex_web_srcs = \
 	tex.web \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch
 
 # Generate ptex.ch
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index c50d70db518..780e840a414 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -1275,7 +1275,8 @@ if n<math_code_base then
 @d char_sub_def_min_code=web2c_int_base {smallest value in the charsubdef list}
 @d char_sub_def_max_code=web2c_int_base+1 {largest value in the charsubdef list}
 @d tracing_char_sub_def_code=web2c_int_base+2 {traces changes to a charsubdef def}
-@d web2c_int_pars=web2c_int_base+3 {total number of web2c's integer parameters}
+@d tracing_stack_levels_code=web2c_int_base+3 {tracing input_stack level if tracingmacros positive}
+@d web2c_int_pars=web2c_int_base+4 {total number of web2c's integer parameters}
 @#
 @d int_pars=web2c_int_pars {total number of integer parameters}
 @d count_base=int_base+int_pars {256 user \.{\\count} registers}
@@ -1300,7 +1301,8 @@ if n<math_code_base then
 @d char_sub_def_min_code=60 {smallest value in the charsubdef list}
 @d char_sub_def_max_code=61 {largest value in the charsubdef list}
 @d tracing_char_sub_def_code=62 {traces changes to a charsubdef def}
-@d int_pars=63 {total number of integer parameters}
+@d tracing_stack_levels_code=63
+@d int_pars=64 {total number of integer parameters}
 @d count_base=int_base+int_pars {256 user \.{\\count} registers}
 @z
 
diff --git a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1
index 5fe21d9789e..653d1645abb 100644
--- a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1
+++ b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1
@@ -10,9 +10,9 @@
 @z
 
 @x tex.web l.4960 + tex.ch
-@d tex_int_pars=63 {total number of \TeX's integer parameters}
+@d tex_int_pars=64 {total number of \TeX's integer parameters}
 @y
-@d synctex_code=63
+@d synctex_code=64
 @d tex_int_pars=synctex_code+1 {total number of \TeX's integer parameters}
 @z
 
diff --git a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1
index 67e7a2fa660..17a9846f32d 100644
--- a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1
+++ b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1
@@ -10,9 +10,9 @@
 @z
 
 @x tex.web l.4960 + tex.ch
-@d int_pars=63 {total number of integer parameters}
+@d int_pars=64 {total number of integer parameters}
 @y
-@d synctex_code=63
+@d synctex_code=64
 @d int_pars=synctex_code+1 {total number of integer parameters}
 @z
 
diff --git a/Build/source/texk/web2c/uptexdir/am/uptex.am b/Build/source/texk/web2c/uptexdir/am/uptex.am
index 941ec617d5a..feb551304d6 100644
--- a/Build/source/texk/web2c/uptexdir/am/uptex.am
+++ b/Build/source/texk/web2c/uptexdir/am/uptex.am
@@ -67,6 +67,7 @@ uptex.web: tie$(EXEEXT) $(uptex_web_srcs)
 uptex_web_srcs = \
 	tex.web \
 	tex.ch \
+	tracingstacklevels.ch \
 	zlib-fmt.ch
 
 # Generate uptex.ch