summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tex.ch
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-12-19 01:35:49 +0000
committerKarl Berry <karl@freefriends.org>2006-12-19 01:35:49 +0000
commit192c587956426d6922b1495496902ad29b569514 (patch)
tree406ca21c5d1920afdc889ea97116d78674548b3e /Build/source/texk/web2c/tex.ch
parent9a09aff4683470dfbaa491c0e38b230f6c88b6d9 (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.ch26
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