From ea26873494f3bf668ccda46899c29d06cce51b5b Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Mon, 18 Sep 2017 13:13:05 +0000 Subject: ptex-base.ch: improved adjust_hlist, etc (H. Kitagawa) git-svn-id: svn://tug.org/texlive/trunk@45329 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/ChangeLog | 6 ++++++ Build/source/texk/web2c/ptexdir/ptex-base.ch | 20 ++++++++++++++------ 2 files changed, 20 insertions(+), 6 deletions(-) (limited to 'Build/source') diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index b5e7b63c6ba..5c665d79988 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,9 @@ +2017-09-09 Hironori Kitagawa + + * ptex-base.ch: Remove JFM glue after kinsoku penalty at the top + of list in adjust_hlist. Do not insert kinsoku penalty when it is + set to zero. + 2017-09-09 Hironobu Yamashita * ptftopl.ch: Check for fifth byte (= upper byte of lf) of input JFM. diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 3ff28c1b914..3a2afb8b0fa 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -6401,7 +6401,7 @@ end @= begin kp:=get_kinsoku_pos(cx,cur_pos); -if kp<>no_entry then +if kp<>no_entry then if kinsoku_penalty(kp)<>0 then begin if kinsoku_type(kp)=pre_break_penalty_code then begin if not is_char_node(cur_q)and(type(cur_q)=penalty_node) then penalty(cur_q):=penalty(cur_q)+kinsoku_penalty(kp) @@ -6419,7 +6419,7 @@ end; @ @= begin kp:=get_kinsoku_pos(cur_chr,cur_pos); -if kp<>no_entry then +if kp<>no_entry then if kinsoku_penalty(kp)<>0 then begin if kinsoku_type(kp)=pre_break_penalty_code then if not is_char_node(tail)and(type(tail)=penalty_node) then penalty(tail):=penalty(tail)+kinsoku_penalty(kp) @@ -6432,7 +6432,7 @@ end; @ @= begin kp:=get_kinsoku_pos(cx,cur_pos); -if kp<>no_entry then +if kp<>no_entry then if kinsoku_penalty(kp)<>0 then begin if kinsoku_type(kp)=post_break_penalty_code then begin tail_append(new_penalty(kinsoku_penalty(kp))); subtype(tail):=kinsoku_pena; @@ -6608,11 +6608,19 @@ if auto_xspacing>0 then end; u:=space_ptr(p); add_glue_ref(u); s:=xspace_ptr(p); add_glue_ref(s); -if not is_char_node(link(p)) {p1.0.9d} - and(type(link(p))=glue_node)and(subtype(link(p))=jfm_skip+1) then +if not is_char_node(link(p)) then + if (type(link(p))=glue_node)and(subtype(link(p))=jfm_skip+1) then begin v:=link(p); link(p):=link(v); fast_delete_glue_ref(glue_ptr(v)); free_node(v,small_node_size); - end; + end + else if (type(link(p))=penalty_node)and(subtype(link(p))=kinsoku_pena) then + begin v:=link(link(p)); + if (not is_char_node(v)) and (type(v)=glue_node)and(subtype(v)=jfm_skip+1) then + begin link(link(p)):=link(v); + fast_delete_glue_ref(glue_ptr(v)); free_node(v,small_node_size); + end + end; + i:=0; insert_skip:=no_skip; p:=link(p); v:=p; q:=p; while p<>null do begin if is_char_node(p) then -- cgit v1.2.3