diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-08-20 18:33:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-08-20 18:33:14 (GMT) |
| commit | 9ce269e7ddacdfdd9a7a4d22cfb290c9c28c090c (patch) | |
| tree | 825f4b72bb1c73cce53e01e1d61b1f7066e92890 /generic | |
| parent | d768d45269fd4e4b6012d73d8c27390cd81c84df (diff) | |
| download | tcl-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.c | 10 |
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], |