web2c: Minor cleanup

git-svn-id: svn://tug.org/texlive/trunk@32767 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 14 insertions, 7 deletions

diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog
index 72b4b13c3be..8b8ba2033d0 100644
--- a/Build/source/texk/web2c/omegaware/ChangeLog
+++ b/Build/source/texk/web2c/omegaware/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-23  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* ofm2opl.web, ovf2ovp.web: Drop duplicate semicolon.
+
 2014-01-20  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* ofm2opl.web: Adapted to TFtoPL Version 3.3.
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.web b/Build/source/texk/web2c/omegaware/ofm2opl.web
index 6f92dbd66cb..b466f614880 100644
--- a/Build/source/texk/web2c/omegaware/ofm2opl.web
+++ b/Build/source/texk/web2c/omegaware/ofm2opl.web
@@ -1458,7 +1458,7 @@ for j:=0 to number_entries-1 do begin
   base_counter:=base_counter+4;
   end;
 right;
-start_counter:=start_counter+4;;
+start_counter:=start_counter+4;
 end;
 
 @ @<Do the fvalue parameters@>=
diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.web b/Build/source/texk/web2c/omegaware/ovf2ovp.web
index a85606ca487..a2692694481 100644
--- a/Build/source/texk/web2c/omegaware/ovf2ovp.web
+++ b/Build/source/texk/web2c/omegaware/ovf2ovp.web
@@ -1997,7 +1997,7 @@ for j:=0 to number_entries-1 do begin
   base_counter:=base_counter+4;
   end;
 right;
-start_counter:=start_counter+4;;
+start_counter:=start_counter+4;
 end;
 
 @ @<Do the fvalue parameters@>=
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 8a962bba188..92f3f26d3ed 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-23  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* ptftopl.ch: Slightly simplified.  Fixed some typos.
+
 2014-01-22  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* ptrip/ptrip.diffs: Updated for pTeX 3.14159265.
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch
index 565715d5c29..57dffda83d0 100644
--- a/Build/source/texk/web2c/ptexdir/ptftopl.ch
+++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch
@@ -264,7 +264,7 @@ if file_format<>tfm_format then
     tfm_format: print('Ligature/kern ');
 @.Ligature/kern starting index...@>
     jfm_format,vfm_format: print('Glue/kern ');
-@.Glue/kern index starging index...@>
+@.Glue/kern starting index...@>
     end;
     print('starting index for character '); print_octal(c);
     print_ln(' is too large;'); print_ln('so I removed it.'); reset_tag(c);
@@ -273,9 +273,8 @@ if file_format<>tfm_format then
 @x [76] l.1179 - pTeX: if kanji format, output a glue step not a ligature step
 else @<Output a ligature step@>;
 @y
-else if file_format=tfm_format then @<Output a ligature step@>
-else if (file_format=jfm_format)or(file_format=vfm_format) then
-  @<Output a glue step@>;
+else if file_format<>tfm_format then @<Output a glue step@>
+else @<Output a ligature step@>;
 @z
 
 @x [78] l.1238 - pTeX:
@@ -435,7 +434,7 @@ else
       end;
     right;
   end;
-end;
+end
 
 @ list the |char_type| table in a similar way to the type table