pdfTeX の \pdfstrcmp{}{ で } が終わらない時のエラーの修正（e-pTeX の修正ベース）

20171215-pdftex-pdfstrcmp2.patch

Index: source/texk/web2c/pdftexdir/ChangeLog
===================================================================
--- source/texk/web2c/pdftexdir/ChangeLog	(revision 46068)
+++ source/texk/web2c/pdftexdir/ChangeLog	(working copy)
@@ -1,3 +1,8 @@
+2017-12-15  Hironori Kitagawa  <h_kitagawa2001@yahoo.co.jp>
+
+	* pdftex.web: Fix an error message "! File ended while ..."
+	while \pdfstrcmp is used.
+
 2017-12-02  Karl Berry  <karl@tug.org>
 
 	* am/pdftex.am (pdftex.pdf, pdftex.tex): new convenience targets
Index: source/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- source/texk/web2c/pdftexdir/pdftex.web	(revision 46068)
+++ source/texk/web2c/pdftexdir/pdftex.web	(working copy)
@@ -33807,11 +33807,12 @@
 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];

Reported to http://tug.org/pipermail/tex-k/2017-December/002838.html.