summaryrefslogtreecommitdiff
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
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
-rw-r--r--Build/source/texk/web2c/alephdir/com16bit-rc2.ch4
-rw-r--r--Build/source/texk/web2c/alephdir/comsrcspec.ch3
-rw-r--r--Build/source/texk/web2c/mf.web4
-rw-r--r--Build/source/texk/web2c/omegadir/com16bit.ch4
-rw-r--r--Build/source/texk/web2c/omegadir/comsrcspec.ch2
-rw-r--r--Build/source/texk/web2c/tex.ch26
6 files changed, 23 insertions, 20 deletions
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 <Choose a dependent...> (March 1995).
% Version 2.7182 fixed bugs related to "<unprintable char>" (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
@<Truncate the values of all coordinates that exceed...@>=
-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
@@ -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