diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-17 04:37:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-17 04:37:32 (GMT) |
| commit | 0bb265c3bdbc5ca21de5af6238307d73e863603d (patch) | |
| tree | 62a19bfcb6159f9beaa9ffb26dcd2b680126c7c8 /generic/tclInterp.c | |
| parent | 2955a401d559c6249d4f2ad18a4c7b000df1a3de (diff) | |
| download | tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.zip tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.tar.gz tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.tar.bz2 | |
* More TIP 27 updates in tclIOUtil.c and tclIndexObj.c that were
overlooked before. Updated callers.
***POTENTIAL INCOMPATIBILITY***
Includes a source incompatibility in the tablePtr arguments of
the Tcl_GetIndexFromObj* routines.
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index d28758d..da3ab66 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.9 2002/01/16 06:02:34 dgp Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.10 2002/01/17 04:37:33 dgp Exp $ */ #include <stdio.h> @@ -347,7 +347,7 @@ Tcl_InterpObjCmd(clientData, interp, objc, objv) Tcl_Obj *CONST objv[]; /* Argument objects. */ { int index; - static char *options[] = { + static CONST char *options[] = { "alias", "aliases", "create", "delete", "eval", "exists", "expose", "hide", "hidden", "issafe", "invokehidden", "marktrusted", @@ -419,7 +419,7 @@ Tcl_InterpObjCmd(clientData, interp, objc, objv) int i, last, safe; Tcl_Obj *slavePtr; char buf[16 + TCL_INTEGER_SPACE]; - static char *options[] = { + static CONST char *options[] = { "-safe", "--", NULL }; enum option { @@ -582,7 +582,7 @@ Tcl_InterpObjCmd(clientData, interp, objc, objv) case OPT_INVOKEHID: { int i, index, global; Tcl_Interp *slaveInterp; - static char *hiddenOptions[] = { + static CONST char *hiddenOptions[] = { "-global", "--", NULL }; enum hiddenOption { @@ -1829,7 +1829,7 @@ SlaveObjCmd(clientData, interp, objc, objv) { Tcl_Interp *slaveInterp; int index; - static char *options[] = { + static CONST char *options[] = { "alias", "aliases", "eval", "expose", "hide", "hidden", "issafe", "invokehidden", "marktrusted", NULL @@ -1918,7 +1918,7 @@ SlaveObjCmd(clientData, interp, objc, objv) } case OPT_INVOKEHIDDEN: { int global, i, index; - static char *hiddenOptions[] = { + static CONST char *hiddenOptions[] = { "-global", "--", NULL }; enum hiddenOption { |