diff options
author | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
commit | 8304773d8b2ee19516ec98b7f43772b3e3cafd0b (patch) | |
tree | 2fc3ee74f9099dbc66a0d0d154665561411fd654 /generic/tclLoad.c | |
parent | 3b0c004d36f5baf787ca1438ae23df0dc34cafc2 (diff) | |
download | tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.zip tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.gz tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.bz2 |
various "const" additions, in line with TIP #27
FossilOrigin-Name: 81ea4e1335f3c78465e90ec021758c096ba9b544
Diffstat (limited to 'generic/tclLoad.c')
-rw-r--r-- | generic/tclLoad.c | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index b8a8b2c..29e2d01 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.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: tclLoad.c,v 1.15 2005/10/31 15:59:41 dkf Exp $ + * RCS: @(#) $Id: tclLoad.c,v 1.16 2007/02/20 23:24:03 nijtmans Exp $ */ #include "tclInt.h" @@ -125,7 +125,7 @@ Tcl_LoadObjCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ - Tcl_Obj *CONST objv[]) /* Argument objects. */ + Tcl_Obj *const objv[]) /* Argument objects. */ { Tcl_Interp *target; LoadedPackage *pkgPtr, *defaultPtr; @@ -134,7 +134,7 @@ Tcl_LoadObjCmd( Tcl_PackageInitProc *initProc, *safeInitProc, *unloadProc, *safeUnloadProc; InterpPackage *ipFirstPtr, *ipPtr; int code, namesMatch, filesMatch, offset; - CONST char *symbols[4]; + const char *symbols[4]; Tcl_PackageInitProc **procPtrs[4]; ClientData clientData; char *p, *fullFileName, *packageName; @@ -498,7 +498,7 @@ Tcl_UnloadObjCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ - Tcl_Obj *CONST objv[]) /* Argument objects. */ + Tcl_Obj *const objv[]) /* Argument objects. */ { Tcl_Interp *target; /* Which interpreter to unload from. */ LoadedPackage *pkgPtr, *defaultPtr; @@ -507,8 +507,9 @@ Tcl_UnloadObjCmd( InterpPackage *ipFirstPtr, *ipPtr; int i, index, code, complain = 1, keepLibrary = 0; int trustedRefCount = -1, safeRefCount = -1; - char *fullFileName = "", *packageName; - static CONST char *options[] = { + const char *fullFileName = ""; + char *packageName; + static const char *options[] = { "-nocomplain", "-keeplibrary", "--", NULL }; enum options { @@ -918,7 +919,7 @@ Tcl_StaticPackage( * already been loaded into the given * interpreter by calling the appropriate init * proc. */ - CONST char *pkgName, /* Name of package (must be properly + const char *pkgName, /* Name of package (must be properly * capitalized: first letter upper case, * others lower case). */ Tcl_PackageInitProc *initProc, @@ -1031,7 +1032,7 @@ TclGetLoadedPackages( Tcl_Interp *target; LoadedPackage *pkgPtr; InterpPackage *ipPtr; - char *prefix; + const char *prefix; if (targetName == NULL) { /* |