summaryrefslogtreecommitdiffstats
path: root/generic/tclPkg.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-18 21:38:50 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-18 21:38:50 (GMT)
commitbb146c387f42e478b1d8ffbc8617988fb572587c (patch)
tree21613b0eb89c7761720b11b131e69e333052ed9b /generic/tclPkg.c
parentc15c9e5f26e373ec9674b39dc42d2c3500c65b5c (diff)
downloadtcl-bb146c387f42e478b1d8ffbc8617988fb572587c.zip
tcl-bb146c387f42e478b1d8ffbc8617988fb572587c.tar.gz
tcl-bb146c387f42e478b1d8ffbc8617988fb572587c.tar.bz2
make some more internal tables CONST
fix compilation with -DNO_CONST
Diffstat (limited to 'generic/tclPkg.c')
-rw-r--r--generic/tclPkg.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c
index 26a9cff..940d011 100644
--- a/generic/tclPkg.c
+++ b/generic/tclPkg.c
@@ -78,7 +78,7 @@ static void AddRequirementsToResult(Tcl_Interp* interp, int reqc,
static void AddRequirementsToDString(Tcl_DString* dstring,
int reqc, Tcl_Obj *CONST reqv[]);
static Package * FindPackage(Tcl_Interp *interp, CONST char *name);
-static const char * PkgRequireCore(Tcl_Interp *interp, CONST char *name,
+static CONST char * PkgRequireCore(Tcl_Interp *interp, CONST char *name,
int reqx, Tcl_Obj *CONST reqv[],
ClientData *clientDataPtr);
#endif
@@ -261,7 +261,7 @@ Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr)
Tcl_DString command;
#else
Tcl_Obj *ov;
- const char *result = NULL;
+ CONST char *result = NULL;
#endif
/*
@@ -373,7 +373,7 @@ Tcl_PkgRequireProc(
* available. */
ClientData *clientDataPtr)
{
- const char *result =
+ CONST char *result =
PkgRequireCore(interp, name, reqc, reqv, clientDataPtr);
if (result == NULL) {
@@ -383,7 +383,7 @@ Tcl_PkgRequireProc(
return TCL_OK;
}
-static const char *
+static CONST char *
PkgRequireCore(
Tcl_Interp *interp, /* Interpreter in which package is now
* available. */
@@ -1077,7 +1077,7 @@ Tcl_PackageObjCmd(dummy, interp, objc, objv)
break;
}
case PKG_PRESENT: {
- const char *name;
+ CONST char *name;
if (objc < 3) {
goto require;
}