diff options
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/uptex-m.ch')
| -rw-r--r-- | Build/source/texk/web2c/uptexdir/uptex-m.ch | 6 |
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); |