summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-27 23:04:26 +0000
committerKarl Berry <karl@freefriends.org>2014-04-27 23:04:26 +0000
commit4e17c396745c40c638047bcd2a68069a332a80d9 (patch)
tree4341cc98b24982cb111854c39985018d203e46ec /Build
parent1e68ac74cb516c2688e64cdc6a15480551b2f80d (diff)
pool overflow fix from A.N. Kuznetsov, 27 Apr 2014 13:18:37, http://sourceforge.net/p/xetex/bugs/90
git-svn-id: svn://tug.org/texlive/trunk@33705 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/xetexdir/xetex.ch18
1 files changed, 18 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch
index 1c389489fc9..c0b1f9f0a04 100644
--- a/Build/source/texk/web2c/xetexdir/xetex.ch
+++ b/Build/source/texk/web2c/xetexdir/xetex.ch
@@ -400,6 +400,15 @@ for j:=1 to n do append_to_name(TEX_format_default[j]);
@z
@x [29.537] l.10338 - start_input
+var temp_str: str_number;
+begin scan_file_name; {set |cur_name| to desired file name}
+@y
+var temp_str: str_number;
+@!k:0..file_name_size; {index into |name_of_file16|}
+begin scan_file_name; {set |cur_name| to desired file name}
+@z
+
+@x [29.537] l.10338 - start_input
and a_open_in(cur_file, kpse_tex_format) then
goto done;
@y
@@ -553,6 +562,15 @@ else begin n:=cur_chr; get_r_token; p:=cur_cs; define(p,relax,too_big_usv);
@z
@x [49.1275] l.23441 - Same stuff as for \input, this time for \openin.
+var c:0..1; {1 for \.{\\openin}, 0 for \.{\\closein}}
+@!n:0..15; {stream number}
+@y
+var c:0..1; {1 for \.{\\openin}, 0 for \.{\\closein}}
+@!n:0..15; {stream number}
+@!k:0..file_name_size; {index into |name_of_file16|}
+@z
+
+@x [49.1275] l.23441 - Same stuff as for \input, this time for \openin.
and a_open_in(read_file[n], kpse_tex_format) then
read_open[n]:=just_open;
@y