diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-18 21:38:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-18 21:38:50 (GMT) |
| commit | bb146c387f42e478b1d8ffbc8617988fb572587c (patch) | |
| tree | 21613b0eb89c7761720b11b131e69e333052ed9b /generic/tclPkg.c | |
| parent | c15c9e5f26e373ec9674b39dc42d2c3500c65b5c (diff) | |
| download | tcl-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.c | 10 |
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; } |