summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/etex.ch1
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/etex.ch1')
-rw-r--r--Build/source/texk/web2c/eptexdir/etex.ch125
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]