pTeX: avoid compiler warnings

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

5 files changed, 11 insertions, 5 deletions

diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 0305e4796bb..b3d7f1f9bd7 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,9 @@
+2010-04-15  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* pbibtex.ch, ptex-base.ch, ptftopl.ch: Use conststringcast, not
+	stringcast to cast the get_enc_string() value which is now const.
+	* ptexhelp.h (PDVITYPEHELP): Fixed a typo in help message.
+
 2010-04-14  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* pbibtex.ch: New version from Akira, used on top of bibtex.ch.
diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch
index b4a57ec673a..184f504c087 100644
--- a/Build/source/texk/web2c/ptexdir/pbibtex.ch
+++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch
@@ -53,7 +53,7 @@
 @y
   print (banner);
   print (' (');
-  print (stringcast(get_enc_string));
+  print (conststringcast(get_enc_string));
   print (')');
 @z
 
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index a7c4a2da015..c050f213643 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -337,7 +337,7 @@ if src_specials_p or file_line_error_style_p or parse_first_line_p then
 else
   wterm(banner);
   wterm(' (');
-  wterm(stringcast(get_enc_string));
+  wterm(conststringcast(get_enc_string));
   wterm(')');
 @z
 
@@ -2617,7 +2617,7 @@ then
 else
   wlog(banner);
   wlog(' (');
-  wlog(stringcast(get_enc_string));
+  wlog(conststringcast(get_enc_string));
   wlog(')');
 @z
 
diff --git a/Build/source/texk/web2c/ptexdir/ptexhelp.h b/Build/source/texk/web2c/ptexdir/ptexhelp.h
index b5847de1a53..a8737fa5417 100644
--- a/Build/source/texk/web2c/ptexdir/ptexhelp.h
+++ b/Build/source/texk/web2c/ptexdir/ptexhelp.h
@@ -60,7 +60,7 @@ const_string PDVITYPEHELP[] = {
 "  -page-start=PAGE           type, e.g., `1.*.-5' to specify the first page",
 "                             with \\count0=1, \\count2=4.",
 "                             (see the TeX book chapter 15).",
-"  -show-opcodes              show opcodes in dicimal.",
+"  -show-opcodes              show opcodes in decimal.",
 "  -kanji={jis|euc|sjis|utf8} kanji code for output-file.",
 "  -version                   print version information and exit.",
 "  -help                      print this message and exit.",
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch
index 76bb02afc48..8994f6f4230 100644
--- a/Build/source/texk/web2c/ptexdir/ptftopl.ch
+++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch
@@ -34,7 +34,7 @@ var @!k:integer; {all-purpose initiallization index}
 @y
   print_ln (version_string);
   print ('process kanji code is ');
-  print (stringcast(get_enc_string));
+  print (conststringcast(get_enc_string));
   print_ln('.');
 @z