summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/uptex-m.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2012-05-12 12:40:41 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2012-05-12 12:40:41 +0000
commit65f11c0ce41fc14ab77041de84529039b07a98ac (patch)
tree0a6d03adc78745b74d0132a6c0c9d5ebb6c74d3a /Build/source/texk/web2c/uptexdir/uptex-m.ch
parent4316da8a1a925fe8a60061f34dac1b15932cb3ed (diff)
(e-)(u)pTeX: Restore the 'unnecessary and seemingly wrong' changes
they are required to show the error context (revert r25602) Update (e)(u)ptrip.diffs git-svn-id: svn://tug.org/texlive/trunk@26311 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/uptex-m.ch')
-rw-r--r--Build/source/texk/web2c/uptexdir/uptex-m.ch6
1 files changed, 6 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch
index 77e607cd6f5..6fbe1ac7e6e 100644
--- a/Build/source/texk/web2c/uptexdir/uptex-m.ch
+++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch
@@ -351,6 +351,12 @@ if ((kcp mod @'10)>0)and(nrestmultichr(kcp)>0) then p:=p-(kcp mod @'10);
@z
@x
+ s:=get_avail; info(s):=Lo(info(loc));
+@y
+ s:=get_avail; info(s):=(info(loc) mod max_char_val);
+@z
+
+@x
begin cur_chr:=buffer[loc]; incr(loc);
if multistrlen(ustringcast(buffer), limit+1, loc-1)=2 then
begin cur_chr:=fromBUFF(ustringcast(buffer), limit+1, loc-1);