From 9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 20 Aug 2002 18:33:14 +0000 Subject: * generic/tclCkalloc.c: CONSTified MemoryCmf and CheckmemCmd. --- ChangeLog | 2 ++ generic/tclCkalloc.c | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index e391f93..3b90b0a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2002-08-20 Don Porter + * generic/tclCkalloc.c: CONSTified MemoryCmd and CheckmemCmd. + * README: Bumped version number to 8.4b3 to distinguish * generic/tcl.h: HEAD from the 8.4b2 release. * tools/tcl.wse.in: 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], -- cgit v0.12