summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch')
-rw-r--r--Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch11
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