From d8fefdca44a3ffcaaf8adfc035e07344c75a7534 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 16 Dec 2017 18:20:26 +0000 Subject: (\pdfstrcmp): correct error message [pdftex r788] git-svn-id: svn://tug.org/texlive/trunk@46076 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pdftexdir/pdftex.web | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Build/source/texk/web2c/pdftexdir/pdftex.web') 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]; -- cgit v1.2.3