SHA256
1
0
forked from pool/texlive
Dr. Werner Fink 2012-04-16 08:37:30 +00:00 committed by Git OBS Bridge
parent 2a331cf426
commit 545878169d

View File

@ -1,19 +1,13 @@
--- texk/web2c/eptexdir/eptex.ech
+++ texk/web2c/eptexdir/eptex.ech 2012-04-13 17:22:36.025657059 +0200
@@ -295,15 +295,14 @@ othercases goto next_p
@x e-pTeX: just_copy
+++ texk/web2c/eptexdir/eptex.ech 2012-04-16 08:31:14.564665420 +0000
@@ -300,10 +300,13 @@ othercases goto next_p
hlist_node,vlist_node: begin r:=get_node(box_node_size);
-@y
- dir_node,
- hlist_node,vlist_node: begin r:=get_node(box_node_size);
-@z
-@x e-pTeX: just_copy
@z
@x e-pTeX: just_copy
+ mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last two words}
words:=5; list_ptr(r):=null; {this affects |mem[r+5]|}
@y
- words:=5; list_ptr(r):=null; {this affects |mem[r+5]|}
+ dir_node, hlist_node,vlist_node: begin r:=get_node(box_node_size);
+ mem[r+7]:=mem[p+7]; mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5];
+ {copy the last three words}
add_glue_ref(space_ptr(r)); add_glue_ref(xspace_ptr(r));