diff options
| author | Karl Berry <karl@freefriends.org> | 2014-04-27 23:04:26 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2014-04-27 23:04:26 +0000 |
| commit | 4e17c396745c40c638047bcd2a68069a332a80d9 (patch) | |
| tree | 4341cc98b24982cb111854c39985018d203e46ec /Build | |
| parent | 1e68ac74cb516c2688e64cdc6a15480551b2f80d (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.ch | 18 |
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 |