texlive[46068] Build/source/texk/web2c/eptexdir:

[commits+hironobu at tug.org]

Revision: 46068
          http://tug.org/svn/texlive?view=revision&revision=46068
Author:   hironobu
Date:     2017-12-15 13:01:43 +0100 (Fri, 15 Dec 2017)
Log Message:
-----------
eptexdir/pdfutils.ch: fix an error message (H. Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/ChangeLog
    trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2017-12-15 01:22:34 UTC (rev 46067)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2017-12-15 12:01:43 UTC (rev 46068)
@@ -1,3 +1,8 @@
+2017-12-15  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* pdfutils.ch: Fix a error message "! File ended while ..."
+	while \pdfstrcmp, \pdfmdfivesum, etc. are used.
+
 2017-12-13  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* fam256.ch: \show\odelimiter should be \odelimiter, etc.

Modified: trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch	2017-12-15 01:22:34 UTC (rev 46067)
+++ trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch	2017-12-15 12:01:43 UTC (rev 46068)
@@ -716,6 +716,23 @@
 end
 @z
 
+ at x scan_keyword
+@!k:pool_pointer; {index into |str_pool|}
+begin p:=backup_head; link(p):=null; k:=str_start[s];
+ at y
+@!k:pool_pointer; {index into |str_pool|}
+@!save_cur_cs:pointer; {to save |cur_cs|}
+begin p:=backup_head; link(p):=null; k:=str_start[s];
+save_cur_cs:=cur_cs;
+ at z
+
+ at x scan_keyword
+    scan_keyword:=false; return;
+ at y
+    cur_cs:=save_cur_cs;
+    scan_keyword:=false; return;
+ at z
+
 @x \[if]pdfprimitive : scan_something_internal
 procedure scan_something_internal(@!level:small_number;@!negative:boolean);
   {fetch an internal parameter}
@@ -843,10 +860,12 @@
 pdf_strcmp_code:
   begin
     save_scanner_status := scanner_status;
+    save_warning_index := warning_index;
     save_def_ref := def_ref;
     save_cur_string;
     compare_strings;
     def_ref := save_def_ref;
+    warning_index := save_warning_index;
     scanner_status := save_scanner_status;
     restore_cur_string;
   end;
@@ -1318,11 +1337,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));
     isprint_utf8:=true; s1 := tokens_to_string(def_ref); isprint_utf8:=false;
     delete_token_ref(def_ref);
-    call_func(scan_toks(false, true));
+    cur_cs:=save_cur_cs; call_func(scan_toks(false, true));
     isprint_utf8:=true; s2 := tokens_to_string(def_ref); isprint_utf8:=false;
     delete_token_ref(def_ref);
     i1 := str_start[s1];