From 4e17c396745c40c638047bcd2a68069a332a80d9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 27 Apr 2014 23:04:26 +0000 Subject: 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 --- Build/source/texk/web2c/xetexdir/xetex.ch | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'Build/source') 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 @@ -399,6 +399,15 @@ for j:=1 to n do append_to_name(TEX_format_default[j]); wlog('" ignored)'); @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; @@ -552,6 +561,15 @@ else begin n:=cur_chr; get_r_token; p:=cur_cs; define(p,relax,256); 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; -- cgit v1.2.3