diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-21 16:15:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-21 16:15:02 (GMT) |
| commit | 5555aa01aae3d96fdff9f094f83516fdee086727 (patch) | |
| tree | d183991a71fdd75e4897ee294e7be526f6c599da /generic/tclCmdMZ.c | |
| parent | db0a03daa7752bd0266d80a841014243c6a0169c (diff) | |
| download | tcl-5555aa01aae3d96fdff9f094f83516fdee086727.zip tcl-5555aa01aae3d96fdff9f094f83516fdee086727.tar.gz tcl-5555aa01aae3d96fdff9f094f83516fdee086727.tar.bz2 | |
* Updated APIs in generic/tclCmdMZ.c according to the guidelines
of TIP 27.
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 7e6f1ef..e0cacab 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.55 2002/01/17 04:37:33 dgp Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.56 2002/01/21 16:15:03 dgp Exp $ */ #include "tclInt.h" @@ -3338,7 +3338,7 @@ TclTraceVariableObjCmd(interp, optionIndex, objc, objv) ClientData Tcl_CommandTraceInfo(interp, cmdName, flags, proc, prevClientData) Tcl_Interp *interp; /* Interpreter containing command. */ - char *cmdName; /* Name of command. */ + CONST char *cmdName; /* Name of command. */ int flags; /* OR-ed combo or TCL_GLOBAL_ONLY, * TCL_NAMESPACE_ONLY (can be 0). */ Tcl_CommandTraceProc *proc; /* Procedure assocated with trace. */ @@ -3403,7 +3403,7 @@ int Tcl_TraceCommand(interp, cmdName, flags, proc, clientData) Tcl_Interp *interp; /* Interpreter in which command is * to be traced. */ - char *cmdName; /* Name of command. */ + CONST char *cmdName; /* Name of command. */ int flags; /* OR-ed collection of bits, including any * of TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ Tcl_CommandTraceProc *proc; /* Procedure to call when specified ops are @@ -3453,7 +3453,7 @@ Tcl_TraceCommand(interp, cmdName, flags, proc, clientData) void Tcl_UntraceCommand(interp, cmdName, flags, proc, clientData) Tcl_Interp *interp; /* Interpreter containing command. */ - char *cmdName; /* Name of command. */ + CONST char *cmdName; /* Name of command. */ int flags; /* OR-ed collection of bits, including any * of TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ Tcl_CommandTraceProc *proc; /* Procedure assocated with trace. */ |