[tex-live] TL and win32
Akira Kakuto
kakuto at fsci.fuk.kindai.ac.jp
Mon Dec 18 14:27:38 CET 2006
Hi,
> Anyway, there is no need to add platform specific dir, as I expect pdftex
> 1.40 ready for all platforms for TL.
>
I've found some differences between TeXLive and W32TeX.
Please sync (if possible) to have the same pool files.
(1) mf.web and tex.ch
(2) alephdir
(3) omegadir
Thanks,
Akira
-----------------------------------------------------------------
(1) mf.web and tex.ch
diff -u web2c/mf.web web2c-w32/mf.web
--- web2c/mf.web Wed Jan 18 06:41:52 2006
+++ web2c-w32/mf.web Mon Jun 23 08:52:00 2003
@@ -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 @@
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 -u web2c/tex.ch web2c-w32/tex.ch
--- web2c/tex.ch Mon Jul 10 07:09:54 2006
+++ web2c-w32/tex.ch Wed Sep 13 18:48:14 2006
@@ -2336,7 +2336,7 @@
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 at +begin
@@ -3086,6 +3086,13 @@
@z
%%%%%%%% dynamic hyph_size
+ at x 18245 m.934
+@!s,@!t:str_number; {strings being compared or stored}
+ at y
+@!s:str_number; {strings being compared or stored}
+ at z
+
+%%%%%%%% dynamic hyph_size
@x 18274 m.939
begin h:=(h+h+hc[j]) mod hyph_size;
@y 18274
@@ -3760,12 +3767,16 @@
% a) the string is already replaced in |scan_file_name| and therefore
% b) the wrong string will get flushed!!!
%
+ at x [49.1257] l.23318 unused variable
+@!flushable_string:str_number; {string not yet referenced}
+ at y
+ at 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 @@
else kpse_make_tex_discard_errors := 0;
@z
- at x [49.1275] l.23434 - Index variable for next fragment of code.
-@!n:0..15; {stream number}
- at y
-@!n:0..15; {stream number}
-@!k:integer;
- at 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 @@
@<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 @@
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
(2) alephdir
diff -u alephdir/com16bit-rc2.ch alephdir-w32/com16bit-rc2.ch
--- alephdir/com16bit-rc2.ch Fri Jun 02 07:43:46 2006
+++ alephdir-w32/com16bit-rc2.ch Tue Sep 19 23:10:34 2006
@@ -1423,7 +1423,7 @@
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 at + begin begin_file_reading; {set up |cur_file| and new level of input}
@@ -1910,7 +1910,7 @@
@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 -u alephdir/comsrcspec.ch alephdir-w32/comsrcspec.ch
--- alephdir/comsrcspec.ch Wed Jan 18 06:41:52 2006
+++ alephdir-w32/comsrcspec.ch Tue Sep 19 23:12:24 2006
@@ -327,7 +327,7 @@
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 @@
@* \[55] Index.
@z
-
(3) omegadir
diff -u omegadir/com16bit.ch omegadir-w32/com16bit.ch
--- omegadir/com16bit.ch Fri Jun 02 07:43:46 2006
+++ omegadir-w32/com16bit.ch Tue Sep 19 23:18:48 2006
@@ -1422,7 +1422,7 @@
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 at +begin
@@ -1910,7 +1910,7 @@
@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 -u omegadir/comsrcspec.ch omegadir-w32/comsrcspec.ch
--- omegadir/comsrcspec.ch Wed Jan 18 06:41:52 2006
+++ omegadir-w32/comsrcspec.ch Tue Sep 19 23:14:44 2006
@@ -327,7 +327,7 @@
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);
More information about the tex-live
mailing list