From 192c587956426d6922b1495496902ad29b569514 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 19 Dec 2006 01:35:49 +0000 Subject: update mf.web (from ftp.stanford.edu), and excise unused variables (from Akira) git-svn-id: svn://tug.org/texlive/trunk@2804 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/alephdir/com16bit-rc2.ch | 4 ++-- Build/source/texk/web2c/alephdir/comsrcspec.ch | 3 +-- Build/source/texk/web2c/mf.web | 4 ++-- Build/source/texk/web2c/omegadir/com16bit.ch | 4 ++-- Build/source/texk/web2c/omegadir/comsrcspec.ch | 2 +- Build/source/texk/web2c/tex.ch | 26 ++++++++++++++---------- 6 files changed, 23 insertions(+), 20 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/web2c/alephdir/com16bit-rc2.ch b/Build/source/texk/web2c/alephdir/com16bit-rc2.ch index 453da458352..aa7e8f7f310 100644 --- a/Build/source/texk/web2c/alephdir/com16bit-rc2.ch +++ b/Build/source/texk/web2c/alephdir/com16bit-rc2.ch @@ -1423,7 +1423,7 @@ loop@+ begin begin_file_reading; {set up |cur_file| and new level of input} if a_open_in(cur_file) then goto done; end; @y -var temp_str: str_number; k: integer; +var temp_str: str_number; begin scan_file_name; {set |cur_name| to desired file name} pack_cur_name; loop@+ begin begin_file_reading; {set up |cur_file| and new level of input} @@ -1910,7 +1910,7 @@ flushable_string:=str_ptr-1; @y @z -% If you don't want to remove code with the following change, +% If you don't want to remove code with the following two changes, % please replace the former change by % % @x diff --git a/Build/source/texk/web2c/alephdir/comsrcspec.ch b/Build/source/texk/web2c/alephdir/comsrcspec.ch index 46ee017ee95..1a4999b3878 100644 --- a/Build/source/texk/web2c/alephdir/comsrcspec.ch +++ b/Build/source/texk/web2c/alephdir/comsrcspec.ch @@ -327,7 +327,7 @@ begin end; procedure append_src_special; -var p, q : pointer; +var q : pointer; begin if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin new_whatsit (special_node, write_node_size); @@ -343,4 +343,3 @@ end; @* \[55] Index. @z - diff --git a/Build/source/texk/web2c/mf.web b/Build/source/texk/web2c/mf.web index 81b5302536f..3854d7c2638 100644 --- a/Build/source/texk/web2c/mf.web +++ b/Build/source/texk/web2c/mf.web @@ -23,7 +23,7 @@ % Version 2.71 fixed bug in draw, allowed unprintable filenames (March 1992). % Version 2.718 fixed bug in (March 1995). % Version 2.7182 fixed bugs related to "" (August 1996). -% Version 2.71828 suppressed autorounding in dangerous cases (December 2002). +% Version 2.71828 suppressed autorounding in dangerous cases (June 2003). % A reward of $327.68 will be paid to the first finder of any remaining bug. @@ -8662,7 +8662,7 @@ except when |t| is too large to be stored in a quarterword. else if chopped=0 then chopped:=-1 @= -p:=cur_spec; k:=1; chopped:=0; dmax:=max_allowed/2; +p:=cur_spec; k:=1; chopped:=0; dmax:=half(max_allowed); repeat procrustes(left_x(p)); procrustes(left_y(p)); procrustes(x_coord(p)); procrustes(y_coord(p)); procrustes(right_x(p)); procrustes(right_y(p));@/ diff --git a/Build/source/texk/web2c/omegadir/com16bit.ch b/Build/source/texk/web2c/omegadir/com16bit.ch index 7fb3802d882..98da09fb4ae 100644 --- a/Build/source/texk/web2c/omegadir/com16bit.ch +++ b/Build/source/texk/web2c/omegadir/com16bit.ch @@ -1422,7 +1422,7 @@ loop@+ begin begin_file_reading; {set up |cur_file| and new level of input} if a_open_in(cur_file) then goto done; end; @y -var temp_str: str_number; k: integer; +var temp_str: str_number; begin scan_file_name; {set |cur_name| to desired file name} pack_cur_name; loop@+begin @@ -1910,7 +1910,7 @@ flushable_string:=str_ptr-1; @y @z -% If you don't want to remove code with the following change, +% If you don't want to remove code with the following two changes, % please replace the former change by % % @x diff --git a/Build/source/texk/web2c/omegadir/comsrcspec.ch b/Build/source/texk/web2c/omegadir/comsrcspec.ch index d8e73ad4c7c..17c15263e2c 100644 --- a/Build/source/texk/web2c/omegadir/comsrcspec.ch +++ b/Build/source/texk/web2c/omegadir/comsrcspec.ch @@ -327,7 +327,7 @@ begin end; procedure append_src_special; -var p, q : pointer; +var q : pointer; begin if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin new_whatsit (special_node, write_node_size); diff --git a/Build/source/texk/web2c/tex.ch b/Build/source/texk/web2c/tex.ch index 451ae836e7c..071d47c93ac 100644 --- a/Build/source/texk/web2c/tex.ch +++ b/Build/source/texk/web2c/tex.ch @@ -2336,7 +2336,7 @@ loop@+ begin begin_file_reading; {set up |cur_file| and new level of input} if a_open_in(cur_file) then goto done; end; @y -var temp_str: str_number; k: integer; +var temp_str: str_number; begin scan_file_name; {set |cur_name| to desired file name} pack_cur_name; loop@+begin @@ -3085,6 +3085,13 @@ if length(k)=hn then done: @z +%%%%%%%% dynamic hyph_size +@x 18245 m.934 +@!s,@!t:str_number; {strings being compared or stored} +@y +@!s:str_number; {strings being compared or stored} +@z + %%%%%%%% dynamic hyph_size @x 18274 m.939 begin h:=(h+h+hc[j]) mod hyph_size; @@ -3760,12 +3767,16 @@ def_code: if chr_code=xord_code_base then print_esc("xordcode") % a) the string is already replaced in |scan_file_name| and therefore % b) the wrong string will get flushed!!! % +@x [49.1257] l.23318 unused variable +@!flushable_string:str_number; {string not yet referenced} +@y +@z @x [49.1260] l.23331 new_font: string recycling -- already done flushable_string:=str_ptr-1; @y @z -% If you don't want to remove code with the following change, +% If you don't want to remove code with the following two changes, % please replace the former change by % % @x @@ -3797,13 +3808,6 @@ then kpse_make_tex_discard_errors := 1 else kpse_make_tex_discard_errors := 0; @z -@x [49.1275] l.23434 - Index variable for next fragment of code. -@!n:0..15; {stream number} -@y -@!n:0..15; {stream number} -@!k:integer; -@z - @x [49.1275] l.23441 - Same stuff as for \input, this time for \openin. if cur_ext="" then cur_ext:=".tex"; pack_cur_name; @@ -5046,7 +5050,7 @@ that's a convenient module in which to put it.) @ = procedure print_csnames (hstart:integer; hfinish:integer); -var c,h,where:integer; +var c,h:integer; begin write_ln(stderr, 'fmtdebug:csnames from ', hstart, ' to ', hfinish, ':'); for h := hstart to hfinish do begin @@ -5782,7 +5786,7 @@ begin end; procedure append_src_special; -var p, q : pointer; +var q : pointer; begin if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open] , line)) then begin -- cgit v1.2.3