diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
| commit | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (patch) | |
| tree | a1a470de893f0f36bb2bf0b879c9e3689876e5a1 /generic/tclConfig.c | |
| parent | f8c457b80f302a4587d875329a789e0906b13989 (diff) | |
| parent | 34acc36d873d6b1ec6a8cd505af4491dfad7fd57 (diff) | |
| download | tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.zip tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.gz tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.bz2 | |
Another round of sentinel improvements
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 97d6111..d97055f 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -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; } @@ -277,7 +277,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; } |