[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