diff options
| author | dgp <dgp@noemail.net> | 2001-09-27 20:32:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2001-09-27 20:32:34 (GMT) |
| commit | 9bdefca25877cca14298b589bf7a3a3a05db2446 (patch) | |
| tree | 588b769345699efc0e369fb5169a677a6d08c569 /generic/tclProc.c | |
| parent | f719b78520f397005129fa6371d5de3ed6685233 (diff) | |
| download | tcl-9bdefca25877cca14298b589bf7a3a3a05db2446.zip tcl-9bdefca25877cca14298b589bf7a3a3a05db2446.tar.gz tcl-9bdefca25877cca14298b589bf7a3a3a05db2446.tar.bz2 | |
* Updated APIs in
generic/tclProc.c and generic/tclVar.c according to the guidelines
of TIP 27. [Patch 465442]
FossilOrigin-Name: e3f244969b6f107e23b5038241294b6ed21d7067
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index d5b7cb3..f2efa09 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.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: tclProc.c,v 1.28 2001/09/17 11:51:59 msofer Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.29 2001/09/27 20:32:35 dgp Exp $ */ #include "tclInt.h" @@ -545,7 +545,7 @@ procError: int TclGetFrame(interp, string, framePtrPtr) Tcl_Interp *interp; /* Interpreter in which to find frame. */ - char *string; /* String describing frame. */ + CONST char *string; /* String describing frame. */ CallFrame **framePtrPtr; /* Store pointer to frame here (or NULL * if global frame indicated). */ { @@ -717,7 +717,7 @@ Tcl_UplevelObjCmd(dummy, interp, objc, objv) Proc * TclFindProc(iPtr, procName) Interp *iPtr; /* Interpreter in which to look. */ - char *procName; /* Name of desired procedure. */ + CONST char *procName; /* Name of desired procedure. */ { Tcl_Command cmd; Tcl_Command origCmd; |