diff options
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch')
-rw-r--r-- | Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch index 939ccb12a74..16752d25b5f 100644 --- a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch +++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch @@ -1,4 +1,15 @@ @x + cur_tok := (cur_cmd*@'400)+cur_chr; +@y + cur_tok := (cur_cmd*max_char_val)+cur_chr; +@z +@x + cur_tok := (cur_cmd*@'400)+cur_chr; +@y + cur_tok := (cur_cmd*max_char_val)+cur_chr; +@z + +@x procedure print_kanji(@!s:integer); {prints a single character} begin if s>255 then begin |