diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-27 22:41:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-27 22:41:47 (GMT) |
| commit | 1c67385eb956a4983ba5a685b4d6a7594a3cb9b3 (patch) | |
| tree | d2efd43bf3d3c907e89a37f07da572e4bc8702b9 /unix/dltest/pkgb.c | |
| parent | 26c09b8c918f8223a38fc764aa9a39fb8ce45991 (diff) | |
| download | tcl-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/pkgb.c')
| -rw-r--r-- | unix/dltest/pkgb.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index 084d785..49162ec 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.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: pkgb.c,v 1.9 2007/12/13 15:28:42 dgp Exp $ + * RCS: @(#) $Id: pkgb.c,v 1.10 2008/04/27 22:41:47 dkf Exp $ */ #include "tcl.h" @@ -20,9 +20,9 @@ */ static int Pkgb_SubObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); + Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int Pkgb_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 @@ Pkgb_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 @@ Pkgb_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; |