summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pdftexdir/pdftex.web
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-12-16 18:20:26 +0000
committerKarl Berry <karl@freefriends.org>2017-12-16 18:20:26 +0000
commitd8fefdca44a3ffcaaf8adfc035e07344c75a7534 (patch)
tree5a5df5d10fa5144eb1260f6ff60176950a612c59 /Build/source/texk/web2c/pdftexdir/pdftex.web
parent11f197866a4719d6a0a30d0b4c8c8a750feb911d (diff)
(\pdfstrcmp): correct error message [pdftex r788]
git-svn-id: svn://tug.org/texlive/trunk@46076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir/pdftex.web')
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex.web5
1 files changed, 3 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web
index 52f42f986b5..c7552e264bf 100644
--- a/Build/source/texk/web2c/pdftexdir/pdftex.web
+++ b/Build/source/texk/web2c/pdftexdir/pdftex.web
@@ -33807,11 +33807,12 @@ procedure compare_strings; {to implement \.{\\pdfstrcmp}}
label done;
var s1, s2: str_number;
i1, i2, j1, j2: pool_pointer;
+ save_cur_cs: pointer;
begin
- call_func(scan_toks(false, true));
+ save_cur_cs:=cur_cs; call_func(scan_toks(false, true));
s1 := tokens_to_string(def_ref);
delete_token_ref(def_ref);
- call_func(scan_toks(false, true));
+ cur_cs:=save_cur_cs; call_func(scan_toks(false, true));
s2 := tokens_to_string(def_ref);
delete_token_ref(def_ref);
i1 := str_start[s1];