diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-19 01:35:49 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-19 01:35:49 +0000 |
commit | 192c587956426d6922b1495496902ad29b569514 (patch) | |
tree | 406ca21c5d1920afdc889ea97116d78674548b3e /Build/source/texk/web2c/tex.ch | |
parent | 9a09aff4683470dfbaa491c0e38b230f6c88b6d9 (diff) |
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
Diffstat (limited to 'Build/source/texk/web2c/tex.ch')
-rw-r--r-- | Build/source/texk/web2c/tex.ch | 26 |
1 files changed, 15 insertions, 11 deletions
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 @@ -3086,6 +3086,13 @@ 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; @y 18274 @@ -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.) @<Basic printing procedures@> = 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 |