summaryrefslogtreecommitdiffstats
path: root/unix/dltest/pkgc.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/pkgc.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/pkgc.c')
-rw-r--r--unix/dltest/pkgc.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/dltest/pkgc.c b/unix/dltest/pkgc.c
index 484396e..a11e524 100644
--- a/unix/dltest/pkgc.c
+++ b/unix/dltest/pkgc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: pkgc.c,v 1.9 2007/12/13 15:28:43 dgp Exp $
+ * RCS: @(#) $Id: pkgc.c,v 1.10 2008/04/27 22:41:47 dkf Exp $
*/
#include "tcl.h"
@@ -20,9 +20,9 @@
*/
static int Pkgc_SubObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+ Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
static int Pkgc_UnsafeObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+ Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
/*
*----------------------------------------------------------------------
@@ -46,7 +46,7 @@ Pkgc_SubObjCmd(
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 first, second;
@@ -84,7 +84,7 @@ Pkgc_UnsafeObjCmd(
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. */
{
Tcl_SetObjResult(interp, Tcl_NewStringObj("unsafe command invoked", -1));
return TCL_OK;