diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-28 03:02:13 (GMT) |
| commit | 6be516b44a873f6ced4a54f374e2eb4be624a6ce (patch) | |
| tree | 3b7b8cfca0bef90c815c93d85ac285800be6a935 /generic/tclConfig.c | |
| parent | c6139c195316122d0e72fde74fcaac9b1f7f9dc5 (diff) | |
| parent | 978c979608e7c2abc738ff8e3ac4f472dd893316 (diff) | |
| download | tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.zip tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.gz tcl-6be516b44a873f6ced4a54f374e2eb4be624a6ce.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 9fb2fa7..a297545 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -127,7 +127,7 @@ Tcl_RegisterConfig( */ for (cfg=configuration ; cfg->key!=NULL && cfg->key[0]!='\0' ; cfg++) { - Tcl_DictObjPut(interp, pkgDict, Tcl_NewStringObj(cfg->key, -1), + TclDictPut(interp, pkgDict, cfg->key, Tcl_NewByteArrayObj((unsigned char *)cfg->value, strlen(cfg->value))); } @@ -229,7 +229,7 @@ QueryConfigObjCmd( Tcl_SetObjResult(interp, Tcl_NewStringObj("package not known", -1)); Tcl_SetErrorCode(interp, "TCL", "FATAL", "PKGCFG_BASE", - TclGetString(pkgName), (void *)NULL); + TclGetString(pkgName), (char *)NULL); return TCL_ERROR; } @@ -244,7 +244,7 @@ QueryConfigObjCmd( || val == NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj("key not known", -1)); Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "CONFIG", - TclGetString(objv[2]), (void *)NULL); + TclGetString(objv[2]), (char *)NULL); return TCL_ERROR; } @@ -280,7 +280,7 @@ QueryConfigObjCmd( if (!listPtr) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "insufficient memory to create list", -1)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); return TCL_ERROR; } |