summaryrefslogtreecommitdiffstats
path: root/unix/dltest/pkga.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-04-27 22:41:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-04-27 22:41:47 (GMT)
commit1c67385eb956a4983ba5a685b4d6a7594a3cb9b3 (patch)
treed2efd43bf3d3c907e89a37f07da572e4bc8702b9 /unix/dltest/pkga.c
parent26c09b8c918f8223a38fc764aa9a39fb8ce45991 (diff)
downloadtcl-1c67385eb956a4983ba5a685b4d6a7594a3cb9b3.zip
tcl-1c67385eb956a4983ba5a685b4d6a7594a3cb9b3.tar.gz
tcl-1c67385eb956a4983ba5a685b4d6a7594a3cb9b3.tar.bz2
Get rid of pre-C89-isms (esp. CONST vs const).
Diffstat (limited to 'unix/dltest/pkga.c')
-rw-r--r--unix/dltest/pkga.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c
index 273270a..b76ca02 100644
--- a/unix/dltest/pkga.c
+++ b/unix/dltest/pkga.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: pkga.c,v 1.12 2007/12/13 15:28:42 dgp Exp $
+ * RCS: @(#) $Id: pkga.c,v 1.13 2008/04/27 22:41:47 dkf Exp $
*/
#include "tcl.h"
@@ -19,9 +19,9 @@
*/
static int Pkga_EqObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+ Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
static int Pkga_QuoteObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+ Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
/*
*----------------------------------------------------------------------
@@ -46,10 +46,10 @@ Pkga_EqObjCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
- Tcl_Obj *CONST objv[]) /* Argument objects. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
{
int result;
- CONST char *str1, *str2;
+ const char *str1, *str2;
int len1, len2;
if (objc != 3) {
@@ -90,7 +90,7 @@ Pkga_QuoteObjCmd(
ClientData dummy, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
- Tcl_Obj *CONST objv[]) /* Argument strings. */
+ Tcl_Obj *const objv[]) /* Argument strings. */
{
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "value");