summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-08-20 18:33:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-08-20 18:33:14 (GMT)
commit9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c (patch)
tree825f4b72bb1c73cce53e01e1d61b1f7066e92890 /generic
parentd768d45269fd4e4b6012d73d8c27390cd81c84df (diff)
downloadtcl-9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c.zip
tcl-9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c.tar.gz
tcl-9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c.tar.bz2
* generic/tclCkalloc.c: CONSTified MemoryCmf and CheckmemCmd.macosx_8_4_merge_2002_08_20_trunk
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCkalloc.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c
index fe90a74..d723912 100644
--- a/generic/tclCkalloc.c
+++ b/generic/tclCkalloc.c
@@ -13,7 +13,7 @@
*
* This code contributed by Karl Lehenbauer and Mark Diekhans
*
- * RCS: @(#) $Id: tclCkalloc.c,v 1.17 2002/08/01 18:32:53 mdejong Exp $
+ * RCS: @(#) $Id: tclCkalloc.c,v 1.18 2002/08/20 18:33:14 dgp Exp $
*/
#include "tclInt.h"
@@ -128,9 +128,9 @@ static int ckallocInit = 0;
*/
static int CheckmemCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char *argv[]));
+ Tcl_Interp *interp, int argc, CONST char *argv[]));
static int MemoryCmd _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp *interp, int argc, char **argv));
+ Tcl_Interp *interp, int argc, CONST char **argv));
static void ValidateMemory _ANSI_ARGS_((
struct mem_header *memHeaderP, CONST char *file,
int line, int nukeGuards));
@@ -781,7 +781,7 @@ MemoryCmd (clientData, interp, argc, argv)
ClientData clientData;
Tcl_Interp *interp;
int argc;
- char **argv;
+ CONST char **argv;
{
CONST char *fileName;
Tcl_DString buffer;
@@ -933,7 +933,7 @@ CheckmemCmd(clientData, interp, argc, argv)
ClientData clientData; /* Not used. */
Tcl_Interp *interp; /* Interpreter for evaluation. */
int argc; /* Number of arguments. */
- char *argv[]; /* String values of arguments. */
+ CONST char *argv[]; /* String values of arguments. */
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],