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/tclCmdIL.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/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index cf8681d..1602ab5 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.36 2001/11/14 23:17:03 hobbs Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.37 2002/01/17 04:37:33 dgp Exp $ */ #include "tclInt.h" @@ -373,7 +373,7 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) int objc; /* Number of arguments. */ Tcl_Obj *CONST objv[]; /* Argument objects. */ { - static char *subCmds[] = { + static CONST char *subCmds[] = { "args", "body", "cmdcount", "commands", "complete", "default", "exists", "functions", "globals", "hostname", "level", "library", "loaded", @@ -2743,7 +2743,7 @@ Tcl_LsearchObjCmd(clientData, interp, objc, objv) int dataType, isIncreasing, lower, upper, patInt, objInt; double patDouble, objDouble; Tcl_Obj *patObj, **listv; - static char *options[] = { + static CONST char *options[] = { "-ascii", "-decreasing", "-dictionary", "-exact", "-increasing", "-integer", "-glob", "-real", "-regexp", "-sorted", NULL }; @@ -3105,7 +3105,7 @@ Tcl_LsortObjCmd(clientData, interp, objc, objv) SortInfo sortInfo; /* Information about this sort that * needs to be passed to the * comparison function */ - static char *switches[] = { + static CONST char *switches[] = { "-ascii", "-command", "-decreasing", "-dictionary", "-increasing", "-index", "-integer", "-real", "-unique", (char *) NULL }; |