diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-03-08 14:08:14 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2012-03-08 14:08:14 +0000 |
commit | dd7800396fbf08c2385608316ffa46f096ae12f6 (patch) | |
tree | a54daff2af0df9280f1ce4434c70236b3cfeb027 /Build/source/texk/web2c | |
parent | a4e2778e724aedb8554d8280674d675591d7386f (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')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/uptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/uptexdir/uptex-m.ch | 4 |
4 files changed, 11 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 734a649903d..d6b086c7b7a 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2012-03-08 Akira Kakuto <kakuto@fuk.kindai.ac.jp> + + * ptex-base.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/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index c62b9ac59c3..215fc411648 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -1549,7 +1549,7 @@ if token_type<macro then begin if (token_type=backed_up)and(loc<>null) then 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)); cur_input:=input_stack[base_ptr]; link(start):=s; show_token_list(start,loc,100000); 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 |