summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch25
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex_version.h2
3 files changed, 30 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 0b6cbfba7ae..4d81bf887ad 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2015-09-10 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * ptex-base.ch: Fix a bug in flushing choice node.
+ * ptex_version.h: pTeX version p3.7.
+
2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de>
* ptriptest (removed): Renamed ...
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 78704286d85..21875f8666e 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -9,7 +9,7 @@
% Yoichi Kawabata (kawabata@canon.co.jp),
% Makoto Kobayashi (makoto@lloem.fujidenki.co.jp),
% Yoshihiro Aoki (aoki@tokyo-shoseki-ptg.co.jp),
-% Akira Kakuto (kakuto@fsci.fuk.kindai.ac.jp).
+% Akira Kakuto (kakuto@fuk.kindai.ac.jp).
% Koich Inoue (inoue@ma.ns.musashi-tech.ac.jp).
%
% (??/??/87) RKS jTeX 2.9 -- j1.0
@@ -51,6 +51,7 @@
% (2013-04-09) PB pTeX p3.4 (TL 2013)
% (2014-04-17) KB pTeX p3.5 (TL 2014)
% (2014-03-15) KB pTeX p3.6 (TL 2015)
+% (2015-09-10) AK pTeX p3.7 Bug fix by Hironori Kitagawa in flushing choice node.
%
@x [1.2] l.200 - pTeX:
@d banner==TeX_banner
@@ -3418,6 +3419,28 @@ accent_noad: begin print_esc("accent");
print_fam_and_char(accent_chr(p),math_char);
@z
+@x pTeX: flush choice_node
+ begin if math_type(nucleus(p))>=sub_box then
+ flush_node_list(info(nucleus(p)));
+ if math_type(supscr(p))>=sub_box then
+ flush_node_list(info(supscr(p)));
+ if math_type(subscr(p))>=sub_box then
+ flush_node_list(info(subscr(p)));
+@y
+ begin if (math_type(nucleus(p))>=sub_box)
+ and (math_type(nucleus(p))<>math_jchar)
+ and (math_type(nucleus(p))<>math_text_jchar) then
+ flush_node_list(info(nucleus(p)));
+ if math_type(supscr(p))>=sub_box
+ and (math_type(supscr(p))<>math_jchar)
+ and (math_type(supscr(p))<>math_text_jchar) then
+ flush_node_list(info(supscr(p)));
+ if math_type(subscr(p))>=sub_box
+ and (math_type(subscr(p))<>math_jchar)
+ and (math_type(subscr(p))<>math_text_jchar) then
+ flush_node_list(info(subscr(p)));
+@z
+
@x [35.715] l.14687 - pTeX: rebox
begin if type(b)=vlist_node then b:=hpack(b,natural);
p:=list_ptr(b);
diff --git a/Build/source/texk/web2c/ptexdir/ptex_version.h b/Build/source/texk/web2c/ptexdir/ptex_version.h
index 47e49d1a876..edc2cafb029 100644
--- a/Build/source/texk/web2c/ptexdir/ptex_version.h
+++ b/Build/source/texk/web2c/ptexdir/ptex_version.h
@@ -1 +1 @@
-#define PTEX_VERSION "p3.6"
+#define PTEX_VERSION "p3.7"