diff options
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/etex.ch1')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/etex.ch1 | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch1 b/Build/source/texk/web2c/eptexdir/etex.ch1 index a722016c77e..37c0c36c1d3 100644 --- a/Build/source/texk/web2c/eptexdir/etex.ch1 +++ b/Build/source/texk/web2c/eptexdir/etex.ch1 @@ -36,14 +36,16 @@ else begin q:=box(cur_val); while (q<>null)and(box_dir(q)<>abs(direction)) do q:=link(q); if q=null then - begin q:=new_dir_node(box(cur_val),abs(direction)); + begin r:=link(box(cur_val)); link(box(cur_val)):=null; + q:=new_dir_node(box(cur_val),abs(direction)); link(box(cur_val)):=r; @y if q=null then cur_val:=0 else begin qx:=q; while (q<>null)and(box_dir(q)<>abs(direction)) do q:=link(q); if q=null then - begin q:=new_dir_node(qx,abs(direction)); + begin r:=link(qx); link(qx):=null; + q:=new_dir_node(qx,abs(direction)); link(qx):=r; @z @x [27.468] @@ -113,12 +115,12 @@ hpack:=r; q:=prune_page_top(q); p:=list_ptr(v); if q=null then box(n):=null {the |eq_level| of the box stays the same} else begin - box(n):=vpack(q,natural); box_dir(box(n)):=box_dir(v); + box(n):=vpack(q,natural); set_box_dir(box(n))(box_dir(v)); end; @y q:=prune_page_top(q,saving_vdiscards>0); p:=list_ptr(v); if q<>null then begin - q:=vpack(q,natural); box_dir(q):=box_dir(v); + q:=vpack(q,natural); set_box_dir(q)(box_dir(v)); end; change_box(q); @z @@ -152,10 +154,10 @@ change_box(q); if type(tail)=cur_chr then @z @x [47.1105] - begin prev_node:=tail; prev_disp:=disp; tail_append(d) - end + begin prev_node:=tail; prev_disp:=disp; tail_append(d); + end; @y - begin prev_node:=tail; prev_disp:=disp; tail_append(d) + begin prev_node:=tail; prev_disp:=disp; tail_append(d); end; if LR_temp<>null then insert_end_M; end; @@ -192,9 +194,14 @@ if b<>null then begin q:=b; p:=link(q); @z @x [49.1247] - link(q):=link(box(b)); link(box(b)):=q; + begin p:=link(box(b)); link(box(b)):=null; +@y + begin p:=link(b); link(b):=null; +@z +@x [49.1247] + link(q):=p; link(box(b)):=q; @y - link(q):=link(b); link(b):=q; + link(q):=p; link(b):=q; @z @x [49.1291] |