summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-03-08 14:08:14 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-03-08 14:08:14 +0000
commitdd7800396fbf08c2385608316ffa46f096ae12f6 (patch)
treea54daff2af0df9280f1ce4434c70236b3cfeb027 /Build/source/texk/web2c/uptexdir
parenta4e2778e724aedb8554d8280674d675591d7386f (diff)
fix a long-remained bug in show_context
git-svn-id: svn://tug.org/texlive/trunk@25581 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir')
-rw-r--r--Build/source/texk/web2c/uptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/uptexdir/uptex-m.ch4
2 files changed, 6 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog
index 1159939ece7..bb21264fef2 100644
--- a/Build/source/texk/web2c/uptexdir/ChangeLog
+++ b/Build/source/texk/web2c/uptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-08 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
+
+ * uptex-m.ch: fix a long-remained bug in show_context.
+
2012-03-04 Peter Breitenlohner <peb@mppmu.mpg.de>
Avoid 'differ in signedness' warnings.
diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch
index 5ff0d91e6df..4c68f806fcf 100644
--- a/Build/source/texk/web2c/uptexdir/uptex-m.ch
+++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch
@@ -352,11 +352,11 @@ if ((kcp mod @'10)>0)and(nrestmultichr(kcp)>0) then p:=p-(kcp mod @'10);
@x
begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|}
begin cur_input:=input_stack[base_ptr-1];
- s:=get_avail; info(s):=Lo(buffer[loc]);
+ s:=get_avail; info(s):=Lo(info(loc));
@y
begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|}
begin cur_input:=input_stack[base_ptr-1];
- s:=get_avail; info(s):=(buffer[loc] mod max_char_val);
+ s:=get_avail; info(s):=(info(loc) mod max_char_val);
@z
@x